Форум АНТИЧАТ - Помогите в Паскале

Помогите в Паскале

06.09.2007, 19:14

~~Rast1k~~

Banned

Регистрация: 09.08.2007

Сообщений: 56

Провел на форуме:
372630

Репутация: -63

Отправить сообщение для Rast1k с помощью ICQ

Помогите в Паскале

Итак у меня началась школа))

вот сегодня была информатика нам дали ДЗ сделать кое что...

Я представлю вам код паскаля...

Тема: Движение по кривой

Суть в том, что смайлик бегает по синусоиде и вырисовывает надпись antichat.

Посколько дома нету возможности проверить код проверьте плиз правильность.

Код:

program antichat;
uses crt;
var i,x,y: integer;
           a: real;
begin
textbackground(9);
clrscr;
for i:= 1 to 360 do
begin
a:= i*pi/180;
x:=round(i/4.5);
y:=round(25+24*sin(a));
gotoxy(x,y);
write('=)');
delay(1500);
gotoxy(x,y);
write('antichat');
end;
end.

кстати если можете выложите код с одной переменной, а то что-то не доходит)

Последний раз редактировалось Rast1k; 06.09.2007 в 19:31..