Информатика. Паскаль программасына колобок суретінің программасын құру керек.

Question

Информатикадан. Паскаль программасына колобок суретінің программасын құру керек.

Answer 1

PROGRAM kolobok;
USES GRAPH,crt;
VAR gd,gm,i:INTEGER;
BEGIN
clrscr;
gd:=detect;

setcolor(2);
for i:=0 to 640 do begin
circle(i,trunc(200+30*sin(i/80)),1);
delay(1);
end;
i:=0;
repeat
setcolor(0);
putpixel(i+3,trunc(184+30*sin((i-1)/80)),0);  
putpixel(i-5,trunc(184+30*sin((i-1)/80)),0);
ellipse(i-1,trunc(190+30*sin((i-1)/80)),180,0,4,2);
circle(i-1,trunc(187+30*sin((i-1)/80)),10);
setcolor(14);
putpixel(i+4,trunc(184+30*sin(i/80)),14);
putpixel(i-4,trunc(184+30*sin(i/80)),14);  
ellipse(i,trunc(190+30*sin(i/80)),180,0,4,2);
circle(i,trunc(187+30*sin(i/80)),10);
delay(60);
i:=1+i;
if i=655 then i:=0;
until keypressed;
readln;
closegraph;
end.

Answer 2

уеркулан сиз информатиканы жаксы менгергенсизба? мумкин болса паскальдан жеке сабак откизерсиз?Интернет аркылы.