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

Форум АНТИЧАТ (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)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

var
i,x,y: integer;
a: real;

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

var
x : TProgValue;

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

Цитата:

Сообщение от W!z@rD

потом юзать
x.x или x.a и тд . так?

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

Piflit - да так...

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

А что тут понимать? Автор в первом посте писал

Цитата:

а то что-то не доходит)

Вот я и дал идею, может ему поможет и ДОЙДЕТ, а если нет то можно помоч.
Я с синусоидами в паскале в свое время ОЧЕНЬ много кода написал, вот и пытался помоч. Или я в чем то не прав?

Цитата:

Сообщение от Red_Red1

Не тут синусойда есть вроде в коде:

Код:

a:= i*pi/180;

x:=round(i/4.5);

y:=round(25+24*sin(a));

Так я и знал не поверил.
Rast1k, ты пробовал запускать свою программу? Не думаю, иначе ты бы не спорил. Еще раз повторю ТВОЙ код не выводит синусоиду.
Объясню почему.
В программе допущено несколько ошибок, которые влияют на вывод изображения в текстовом режиме.
Первая в строке

Код:

x:=round(i/4.5);

Ошибка логическая, суть ее в том что в процедуру gotoxy () нельзя подставлять числа которые меньше или равны нулю и больше 81 и 25 для "x" и "y" соответственно. Если это сделать то процедура просто не выполнится и курсор останется НА МЕСТЕ!!!
Проанализируем значения "х" в начале работы цикла. При i=1 округленное значение данного выражения равно 0 (что не допустимо для передачи в процедуру gotoxy ()), так происходит пока "i" не становится равно 3, тогда х=1. Казалось бы тут должно заработать но…
Вторая ошибка в строке

Код:

y:=round(25+24*sin(a));

При i=2 y=26!!! Вот тут и есть ошибка, выражение 24*sin(a) в этот момент дает 0,83, прибавляем 25 и округляем, в итоге получаем 26. Что опять же не допустимо для передачи в процедуру gotoxy (). Эту ошибку можно исправить поставив минус вместо плюса

Код:

y:=round(25-24*sin(a));

Правда в при этом коде это решит проблему только до того момента пока синус не даст отрицательные числа!!!! Потом снова лажа....
Исправить первую можно вот такой строкой

Код:

gotoxy(x+1,y);

Т.е. не дать "х" быть нулем никогда. Но в любом случае это не решает второй проблемы....
Итак, как же должно быть? (мое решение):
Сначала нужно понять что рисовать на экране (особенно в текстовом режиме), график функции область значения которой от -1 до 1 используя ЧИСТУЮ формулу (в нашем случае y=sin(x) ) не получиться, т.к. график получиться некрасивым. Опять же нужно всегда использовать округление т.к. координаты позиции курсора это ЦЕЛЫЕ ЧИСЛА БОЛЬШЕ НУЛЯ! Итак нужно немного изменить формулу функции. Экспериментально я нашел такой вариант y=7*sin(0.1*x)+12. Число 7 увеличивает амплитуду волны, а 0,1 делает ее шире, 12, я добавляю чтобы синусоида выводилась в центре экрана.
Результат:
Будем брать значения "X" от 1 до 80 т.к. в текстовом режиме максимальный "Х"=80
"Y" вычисляем по формуле

Код:

y= round(7*sin(0.1*x)+12)

У автора в программке был перевод из градусов в радианы т.к. в Паскале в синус идут радианы. В данном случае это нафиг не надо.
Еще был вопрос как это все сделать имея одну переменную. Решение очевидно, вычисления нужно проводить в gotoxy (), т.е. основой программки будет строчка

Код:

gotoxy(x,round(7*sin(0.1*x))+12);

Все, дальше уже дело техники и конечный результат выглядит так

Код:

uses crt;

var x: integer;

begin

clrscr;

for x:=1 to 80 do

                begin

                  gotoxy(x,round(7*sin(0.1*x))+12);

                  write('=)antichat');

                  delay (1500);

                end;

readln;

end.

readln; добавил для того чтобы увидеть результат работы. Нажимаем энтер и выходим из программы.

Я для чего так много писал... Вот человек задал вопрос, попросил помощи, но даже не стал проверять то что ему рассказали, не поверил. Нафига тогда задавать вопросы? Задачка сама по себе пустяковая, но чтобы ее решить нужно все равно ПОДУМАТЬ. А чтобы найти ошибки нужно уметь анализировать код. А в такой простой программе это сделать легко, но такое чувство что автор просто не хотел. Вроде как раздел посвящен кодерам, так давайте думать над кодом, а не делать быстрые выводы...

Цитата:

Сообщение от Rast1k

Не тут синусойда есть вроде в коде:

З.Ы. Может я снова перестарался с описанием ситуации? :)

delay(1500) - слишком много для синусойды=)

особенно для 1 to 80 do.

Минимальное значение: delay(500);

Но это не главное.

Главная ошибка.

Надо, что бы вырисовывалось Смайликом(ctrl+b)...

Должна им выписываться надпись "antichat".

То есть должно быть так(100%):

Код:

gotoxy(x,y);

write('=))))');

delay(500);

gotoxy(x,y);

write('antichat');

end;

end.

С одной переменной синосойда получается только как сказал W!Z@rD.

У тебя получается что-то странное.

Ты наверное перепутал синусоиду с параболой.

Потому что

Код:

1 to 80 do

более характерно для параболы, тем более с одной переменной.

Еще синосойда может не поулучаться изза монитора.

Попрбуй взять код

Код:

y:=round(25-24*sin(a));

А также меняй

Код:

for i:= 1 to 90 do

begin

a=i*pi/90;

Чушь полная. Причем тут много для синусоиды от 1 до 80. Область определения функции от минус до плюс бесконечность.
Как смайликом можно вырисовать АНТИЧАТ и при этом сюда же приделать движение по синусоиде? О_О Тот код который ты привел ОДНОЗНАЧНО этого не нарисует. Хотя есть одно но, может ты не верно формулируешь задание.
Тебе нужно движение по синусоиде или нет. Если да,то что должно двигаться.

Цитата:

более характерно для параболы, тем более с одной переменной.

Тут вообще дикость - иди учи матчасть.....