Регистрация
Артем2090
01.08.2022 15:28
Информатика
Есть ответ 👍

Как продолжить программу? турбо паскаль нужно чтобы мяч возвратился обратно в начальные координаты.! program myach; uses crt,graphabc; var x: integer; begin x: =1; for x: =190 to 465 do begin clrscr; circle(150,150,15); line(150,165,150,250); line(150,250,130,270); line(150,250,170,270); line(150,180,180,175); line(150,180,180,180); circle(500,150,15); line(500,165,500,250); line(500,250,480,270); line(500,250,520,270); line(500,180,470,175); line(500,180,470,180); circle(x,170,10); delay(5); end; end.

102
392
Посмотреть ответы 2

Ответы на вопрос:

настяWebStorage
настяWebStorage
4,5(86 оценок)
Program myach;   uses crt,graphabc;   var x: integer;   begin  x: =1;   for x: =190 to 465 do  begin  clrscr;   circle(150,150,15);   line(150,165,150,250);   line(150,250,130,270);   line(150,250,170,270);   line(150,180,180,175);   line(150,180,180,180);   circle(500,150,15);   line(500,165,500,250);   line(500,250,480,270);   line(500,250,520,270);   line(500,180,470,175);   line(500,180,470,180);   circle(x,170,10);   delay(5);   end;   for x: =465 downto 190 do  begin  clrscr;   circle(150,150,15);   line(150,165,150,250);   line(150,250,130,270);   line(150,250,170,270);   line(150,180,180,175);   line(150,180,180,180);   circle(500,150,15);   line(500,165,500,250);   line(500,250,480,270);   line(500,250,520,270);   line(500,180,470,175);   line(500,180,470,180);   circle(x,170,10);   delay(5);   end;   end.
CoolCaroot
CoolCaroot
4,8(59 оценок)
Var   i, j, n, s: integer;   a: array[1..100] of integer; begin   read(n);   for i : = 1 to n do read(a[i]);   for i : = 1 to n - 1 do     for j : = i + 1 to n do       if a[i] = a[j] then inc(s);   write(s); end.

Популярно: Информатика