Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
06.09.2007, 19:14
|
|
Banned
Регистрация: 09.08.2007
Сообщений: 56
Провел на форуме:
372630
Репутация:
-63
|
|
Помогите в Паскале
Итак у меня началась школа))
вот сегодня была информатика нам дали ДЗ сделать кое что...
Я представлю вам код паскаля...
Тема: Движение по кривой
Суть в том, что смайлик бегает по синусоиде и вырисовывает надпись 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..
|
|
|
06.09.2007, 19:17
|
|
Banned
Регистрация: 11.08.2006
Сообщений: 1,522
Провел на форуме:
5128756
Репутация:
2032
|
|
никогда не понимал, зачем нужно учиться писать такие проги?
|
|
|
|
06.09.2007, 19:28
|
|
Banned
Регистрация: 09.08.2007
Сообщений: 56
Провел на форуме:
372630
Репутация:
-63
|
|
Вот вот. Начали мы просто с картинок с координатами типа икс 1 икс 2 игрек 1 игрек 2
Я тоже не понимаю, но если учитель сказал - значит учитель сказал)
Просто тренировка.
|
|
|
|
06.09.2007, 19:50
|
|
Постоянный
Регистрация: 16.04.2007
Сообщений: 458
Провел на форуме:
2722721
Репутация:
364
|
|
гыыы я в 9* классе у нас только вчера учили как комп включать ) стоят 3 пни +98 винда на всех компы залил crazy mouse было прикольно  ) |
|
|
|
06.09.2007, 20:29
|
|
Banned
Регистрация: 09.08.2007
Сообщений: 56
Провел на форуме:
372630
Репутация:
-63
|
|
Вообще-то, меня интересует, как написать код с одной переменной...
Просто там должны быть проще, но чуть сложнее выражения...
|
|
|
|
06.09.2007, 22:26
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
var
i,x,y: integer;
a: real;
тупо но:
TProgValue = record
i,x,y: integer;
a: real;
end;
var
x : TProgValue;
>>Вообще-то, меня интересует, как написать код с одной переменной...
вот и ответ на твой вопрос... достаточно тривиальный =/
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
06.09.2007, 22:37
|
|
Banned
Регистрация: 11.08.2006
Сообщений: 1,522
Провел на форуме:
5128756
Репутация:
2032
|
|
Сообщение от 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 и тд . так?
|
|
|
|
06.09.2007, 22:51
|
|
Участник форума
Регистрация: 12.01.2007
Сообщений: 262
Провел на форуме:
4608122
Репутация:
874
|
|
Запустил прогу, не вижу синусоиды!!!! Выглядит примерно так
=)antichat=)antichat=)antichat=)antichat=)antichat =)antichat и т.д.
Так и надо?
По поводу одной переменной. Тут идея должна быть такая:
движение по синусоиде это y=sin(x). из этого видно что нам достаточно переменной х (одной), а вместо y можно подставлять выражение sin(x).
Но это только теория, на паскале нужно еще будет округлять и адаптировать к координатам экрана. Но это уже дело техники, ядро програмки будет все таки y=sin(x). Если не додумаешь код самостоятельно, пиши.
Последний раз редактировалось Red_Red1; 06.09.2007 в 22:58..
|
|
|
|
06.09.2007, 23:32
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
Piflit - да так...
я не понял... Red_Red1 вы о чем?
>>Если не додумаешь код самостоятельно, пиши.
вы задавали вопрос или нет?
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
06.09.2007, 23:40
|
|
Участник форума
Регистрация: 12.01.2007
Сообщений: 262
Провел на форуме:
4608122
Репутация:
874
|
|
А что тут понимать? Автор в первом посте писал
Вот я и дал идею, может ему поможет и ДОЙДЕТ, а если нет то можно помоч.
Я с синусоидами в паскале в свое время ОЧЕНЬ много кода написал, вот и пытался помоч. Или я в чем то не прав? |
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
