Форум АНТИЧАТ - Показать сообщение отдельно

Так я и знал не поверил.
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

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

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