Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / LENA / KRASOTA
.PAS {‘ва®Ёв „ўЁ¦гйЁҐбп Ё§®Ўа. Ќ‹Ћ 䮥 §ўс§¤®Ј® ҐЎ }
Program Xa;
Uses Graph, crt;
var Driver, Mode, x, y, r, i:integer;
Begin
R:=40;
x:=r*5;
y:=r*2;
Driver:=Detect;
Initgraph(Driver, Mode, '');
Setcolor(3);
For i:=1 to 600 do
Putpixel(Random(i), Random(i), i);
repeat
Ellipse(x, y, 0, 360, r, (r div 3)+2);
ellipse(x, y-4, 190, 357, r, r div 3);
line(x-17, y-16, x-25, y-22);
line(x+17, y-16, x+25, y-22);
circle(x+25, y-25, 2);
circle(x-25, y-25, 2);
Setfillstyle(1, 3);
Floodfill(x+1, y+4, 3);
Delay(150);
Cleardevice;
for i:=1 to 600 do
Putpixel(random(i), random(i), i);
x:=x+random(10);
y:=y+random(10);
Until(Keypressed);
Closegraph
END.
Program Xa;
Uses Graph, crt;
var Driver, Mode, x, y, r, i:integer;
Begin
R:=40;
x:=r*5;
y:=r*2;
Driver:=Detect;
Initgraph(Driver, Mode, '');
Setcolor(3);
For i:=1 to 600 do
Putpixel(Random(i), Random(i), i);
repeat
Ellipse(x, y, 0, 360, r, (r div 3)+2);
ellipse(x, y-4, 190, 357, r, r div 3);
line(x-17, y-16, x-25, y-22);
line(x+17, y-16, x+25, y-22);
circle(x+25, y-25, 2);
circle(x-25, y-25, 2);
Setfillstyle(1, 3);
Floodfill(x+1, y+4, 3);
Delay(150);
Cleardevice;
for i:=1 to 600 do
Putpixel(random(i), random(i), i);
x:=x+random(10);
y:=y+random(10);
Until(Keypressed);
Closegraph
END.
Соседние файлы в папке LENA