Вычислить значения функции y=sin(x2) на отрезке [1,2], если шаг изменения её аргумента Dx=0,1. Схема алгоритма.
Блок-схема
Текст программы на языке Pascal
program sinus;
var
x,y,dx,a,b: real;
begin
write(‘введите a, b, dx - ‘);
read(a,b,dx); x:=a; {присваивание текущему значению аргумента его начального
значения}
Repeat
y:=sin(x*x); {вычисление очередного значения функции}
writeln ('x=',x:10:3,' y=',y:10:3); {печать строки таблицы}
x:=x+dx {вычисление очередного значения аргумента}
untilx>b {проверка условия выхода из цикла}
end.
Примечание. Операторные скобки begin-end, ограничивающие тело цикла, можно опустить. Здесь их роль сыграют слова repeat и until.
