И снова Паскаль!!

[NitriNKa]

Я опять обращаюсь с просьбой о помощи Протабулировать функцию f(x) на отрезке [0..n] с шагом h = 0,1*n, где n =18. Разработать программу с использованием цикла с постусловием REPEAT − UNTIL. Результаты вычислений вывести на экран в виде таблицы пар чисел x, y. Сама функция(на Паскале) - abs(sin(x*x/1.5-2))+11.73*cos(1.6*x-1)

[Sazary]

Что конкретно непонятно? Ответ "все" не принимается.
В прошлой теме вы писали, что "что-то" знаете. Вот и напишите решение в меру своих знаний. Будут конкретные вопросы - спрашивайте.

ps Здесь решалось море задач на табулирование. Так что даже примеры можете найти.

[NitriNKa]

Program Lab2;
Uses CRT;
Var h,g,youble;
const n=18;
begin
clrscr;
g:=0;
repeat
h:=0.1*n+g;
g:=h;
y:=abs(sin(h*h/1.5-2))+11.73*cos(1.6*h-1);
Writeln (h:2:3,' ',y:2:3);
until h>=n;
readkey;
end.

ВОт ошибку выдаёт в строке g:=0; - не пойму что не нравится!!

[NitriNKa]

ой ёй, после "y" там двоеточие и d

[Sazary]

ой ёй, после "y" там двоеточие и d

Именно поэтому код нужно заключать в тег CODE (значок "#" на панели в окне редактирования). Тогда код будет выглядеть так, как вы его написали.

Все правильно. И у меня работает. Попробуйте еще раз.

Program Lab2;
Uses CRT;
Var h,g,y : double;
const n=18;
begin
clrscr;
g:=-(0.1*n);
repeat
h:=0.1*n+g;
g:=h;
y:=abs(sin(h*h/1.5-2))+11.73*cos(1.6*h-1);
Writeln (h:2:3,' ',y:2:3);
until h>=n;
readkey;
end.

upd Одна оговорка: у вас x от 0 влючительно, поэтому лучше присвоить g начальное значение -(0.1*n)

[NitriNKa]

и всё равно не работает. Вот как говорила выше, при компиляции ошибка на строке g:=0; (пишет: Must be in 8087 mode to compile this) и что это значит???

[Sazary]

пишет: Must be in 8087 mode to compile this

Значит нужно включить в опциях компилятора соответствующий режим (в TP7 - Options-> Compiler).
Или просто измените тип переменных на real.

[NitriNKa]

вот, на real поменяла, всё работает. Спасибо за помощь, вы меня спасли

[Sazary]

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

Спасибо за помощь, вы меня спасли

Как вы можете видеть, вы все сделали сами )