Циклы с предусловием и постусловием - Turbo Pascal (248028)
Формулировка задачи:
F(x)=sin*(x-3)/sqrt(sqr(x+3)/5 интервал x[3;10] количество точек n=10
три спосаба for repeat while пожалуйста.
Решение задачи: «Циклы с предусловием и постусловием»
textual
Листинг программы
var dx, x, f: real; k: integer; begin x := 3; dx := 0.7; for k := 1 to 10 do begin f := sin(x - 3) / sqrt(sqr(x + 3) / 5); writeln('Точка № ', k:4, x:8:2, f:8:2); x := x + dx; end; end.
Объяснение кода листинга программы
- Объявлены переменные: dx, x, f (с типами данных real и integer)
- Инициализированы переменные: x = 3, dx = 0.7
- Задается цикл for, который выполняется 10 раз (от k = 1 до k = 10)
- Внутри цикла вычисляется значение переменной f по формуле sin(x - 3) / sqrt(sqr(x + 3) / 5)
- Выводится сообщение с номером точки и значениями x и f (используется функция writeln, параметры которой оформлены в виде строки с использованием символа '№' и переменных x и f)
- Значение переменной x увеличивается на значение dx (x := x + dx)
- Цикл завершается