Форум АНТИЧАТ
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Помогите в Паскале (https://forum.antichat.xyz/showthread.php?t=48469)

Rast1k 06.09.2007 19:14
Помогите в Паскале
 
Итак у меня началась школа))

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

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

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

Суть в том, что смайлик бегает по синусоиде и вырисовывает надпись 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.
кстати если можете выложите код с одной переменной, а то что-то не доходит)

Piflit 06.09.2007 19:17
никогда не понимал, зачем нужно учиться писать такие проги?

Rast1k 06.09.2007 19:28
Вот вот. Начали мы просто с картинок с координатами типа икс 1 икс 2 игрек 1 игрек 2

Я тоже не понимаю, но если учитель сказал - значит учитель сказал)

Просто тренировка.

Cawabunga 06.09.2007 19:50
гыыы я в 9* классе у нас только вчера учили как комп включать ) стоят 3 пни +98 винда на всех компы залил crazy mouse было прикольно :))

Rast1k 06.09.2007 20:29
Вообще-то, меня интересует, как написать код с одной переменной...

Просто там должны быть проще, но чуть сложнее выражения...

W!z@rD 06.09.2007 22:26
var
i,x,y: integer;
a: real;

тупо но:
TProgValue = record
i,x,y: integer;
a: real;
end;

var
x : TProgValue;

>>Вообще-то, меня интересует, как написать код с одной переменной...
вот и ответ на твой вопрос... достаточно тривиальный =/

Piflit 06.09.2007 22:37
Цитата:
Сообщение от W!z@rD
var
i,x,y: integer;
a: real;

тупо но:
TProgValue = record
i,x,y: integer;
a: real;
end;

var
x : TProgValue;

>>Вообще-то, меня интересует, как написать код с одной переменной...
вот и ответ на твой вопрос... достаточно тривиальный =/
потом юзать
x.x или x.a и тд . так?

Red_Red1 06.09.2007 22:51
Запустил прогу, не вижу синусоиды!!!! Выглядит примерно так
=)antichat=)antichat=)antichat=)antichat=)antichat =)antichat и т.д.
Так и надо?
По поводу одной переменной. Тут идея должна быть такая:
движение по синусоиде это y=sin(x). из этого видно что нам достаточно переменной х (одной), а вместо y можно подставлять выражение sin(x).
Но это только теория, на паскале нужно еще будет округлять и адаптировать к координатам экрана. Но это уже дело техники, ядро програмки будет все таки y=sin(x). Если не додумаешь код самостоятельно, пиши.

W!z@rD 06.09.2007 23:32
Piflit - да так...

я не понял... Red_Red1 вы о чем?
>>Если не додумаешь код самостоятельно, пиши.
вы задавали вопрос или нет?

Red_Red1 06.09.2007 23:40
А что тут понимать? Автор в первом посте писал
Цитата:
а то что-то не доходит)
Вот я и дал идею, может ему поможет и ДОЙДЕТ, а если нет то можно помоч.
Я с синусоидами в паскале в свое время ОЧЕНЬ много кода написал, вот и пытался помоч. Или я в чем то не прав?


Время: 17:45
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице