7 Створити малюнок за допомогою графіки

Вариант №12

Створити малюнок використовуючи основні графічні елементи.( 10 – 15 фрагментів) Використовувати цикл для зміни розміру, містознаходження або кольору фрагменту малюнку.

program zadan4;

uses crt,graph;

var a,b,c,d:integer;

begin

c:=5;

initgraph(a,b,'c:\dos\bp7\bgi');

setbkcolor(red);

setcolor(c);

setlinestyle(0,0,3);

line(270,300,348,300);

line(418,300,500,300);

line(500,300,550,200);

line(550,200,500,200);

line(500,200,460,250);

line(460,250,290,250);

ellipse(330,250,0,180,40,20);

line(290,250,220,270);

line(220,270,270,300);

line(220,270,200,270);

line(530,200,495,255);

line(495,255,522,255);

SetFillStyle(10,c);

FloodFill(525,230,c);

line(330,280,420,380);

ellipse(365,280,0,180,35,10);

line(400,280,490,380);

SetFillStyle(6,c);

ellipse(455,380,0,360,35,10);

floodfill(390,320,c);

SetFillStyle(9,c);

FloodFill(455,380,c);

line(330,230,380,160);

ellipse(415,160,0,180,35,10);

line(450,160,395,250);

SetFillStyle(6,c);

FloodFill(420,200,c);

setlinestyle(0,0,0);

SetFillStyle(8,c);

FloodFill(250,270,c);

setcolor(green);

settextstyle(0,0,2);

outtextxy(375,290,'R');

outtextxy(405,320,'P');

outtextxy(425,350,'09');

outtextxy(363,220,'R');

outtextxy(383,190,'P');

outtextxy(403,160,'09');

while d<700 do begin

if keypressed then exit;

setcolor(blue);

d:=d+5;

outtextxy(550-d,100,'Zdelal Sikorsky Eduard');

setcolor(green);

delay(10);

outtextxy(550-d,100,'Zdelal Sikorsky Eduard');

if d=560 then d:=0;

end; end.

5 Обробка рядкових змінних

Вариант №12

Дано текст. Слово, яке стоїть останнім поставити першим.