Алгоритмы и программы. Афанасьева Т. В - 83 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

83
Пример 4.6. Табулирование функции y=sin(x) на отрезке [1, 5] с
шагом 0,5.
program tab2;
const
h: real=0.5;
var
a, b, x: real;
begin
writeln('Табулирование функции y=sin(x) на отрезке [1,5] с шагом 0,5');
a:=1;
b:=5;
x:=a;
repeat
writeln('x=',x:2:1,'y=',sin(x));
x:=x+h;
until x>=b;
end.
Пример 4.7. Корректный ввод данных.
program tab2;
const
h:byte=0;
var
i:integer;
begin
repeat
write('Введите номер месяца вашего рождения');
readln( i );
if (i<0) and (i>12) then
begin
writeln('Вы ввели некорректные данные');
end
else
begin
writeln('Вы ввели корректные данные');
h:=1;
end;
until h=1;
readln;
end.
Пример 4.8. Табулирование функции y=sin(x) на отрезке [1, 5] с
шагом 0,5. Вывод предпоследнего положительного значения функции.

Страницы