нарисуйте что нибуть в pascal abc, кроме зайцев, домиков и елок.пож
5-9 класс
|
Снежинка типа
uses graphabc;
var a:array[1..5] of record x,y,x0,y0,g:real; end; i,c:integer;
begin
setwindowsize(800,600);
setpenwidth(2);
a[1].x:=400+150*cos(a[1].g/180*pi);
a[1].y:=300+150*sin(a[1].g/180*pi);
a[1].x0:=a[1].x;
a[1].y0:=a[1].y;
a[1].g:=a[1].g+1-(trunc(a[1].g) div 360)*360;
for i:=2 to 5 do begin
a[i].x:=a[i-1].x+150*power(0.65,i)*cos(a[i].g/180*pi);
a[i].y:=a[i-1].y+150*power(0.65,i)*sin(a[i].g/180*pi);
a[i].x0:=a[i].x;
a[i].y0:=a[i].y;
a[i].g:=a[i].g+power(10,i-1)-(trunc(a[i].g) div 360)*360;
end;
for c:=1 to 360 do
begin
a[1].x:=400+150*cos(a[1].g/180*pi);
a[1].y:=300+150*sin(a[1].g/180*pi);
line(round(a[1].x0),round(a[1].y0),round(a[1].x),round(a[1].y));
a[1].x0:=a[1].x;
a[1].y0:=a[1].y;
a[1].g:=a[1].g+1-(trunc(a[1].g) div 360)*360;
for i:=2 to 5 do begin
a[i].x:=a[i-1].x+150*power(0.65,i)*cos(a[i].g/180*pi);
a[i].y:=a[i-1].y+150*power(0.65,i)*sin(a[i].g/180*pi);
line(round(a[i].x0),round(a[i].y0),round(a[i].x),round(a[i].y));
a[i].x0:=a[i].x;
a[i].y0:=a[i].y;
a[i].g:=a[i].g+power(10,i-1)-(trunc(a[i].g) div 360)*360;
end;
end;
end.
Другие вопросы из категории
строку с интервалом 4 пункта.
Ребят, помогите, пожалуйста, вообще не понимаю как делать)
наугад ввела кол-во баллов, не знаю , что они значат
подмножества. Назовите для него хотя бы одно дополнительное свойство: Книга,бензин,врач,молоко,строитель,учебник,жидкость,справочник,человек
64 знаков. Каков объем сообщения после перекодировки?
Читайте также
2) дано четырёхзначное число. Что больше: произведение цифр числа или их утроенная сумма. pascal ABC
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
Количество частей N вводится с клавиатуры. 2.Нарисовать пирамиду из разноцветных прямоугольников.Количество прямоугольников вводится с клавиатуры. 3.С клавиатуры вводятся целые числа, пока не встретится ноль (ноль служит только для ограничения ввода и в дальнейших подсчётах не участвует) Вычислить произведение максимального и минимального числа. 4.С клавиатуры вводятся целые числа, пока не встретится ноль (ноль служит только для ограничения ввода и в дальнейших подсчётах не участвует). Известно, что среди первых двух чисел нуля нет. Найти сумму двух наибольших чисел. 5.С клавиатуры вводятся целые числа, пока не встретится ноль (ноль служит только для ограничения ввода и в дальнейших подсчётах не участвует). Известно, что среди первых трех чисел нуля нет. Найти среднее арифметическое трёх наименьших чисел.
Вот проверьте здесь гдето ошибка
program abc;
var a,b,c:integer;
begin;
write ('Длина равна=')
read(a);
write ('Ширина равна=')
read(b);
c:=a*b
write ('Площадь='c');
readln;
end.
Мне показало что в строке