Вывести на экран значения функции по заданному условию - Pascal
Формулировка задачи:
составить поставку,алгоритм и программу выдачи на экран в PASCALe неравных 3.2 значений функции t=ln(14.5q/152.9)+Sin5.3q на отрезке [k.w] с шагом z
не работает
что не так то а:!?!?
readln(a); if a>k then writeln('а должен быть больше k'); until a>k; begin writeln('Введите шаг z'); readln(z); c:=k; writeln('Результаты:'); repeat begin t:=ln(14.5q /152.9)+Sin 5.3q; if t<>3.2 then writeln('при с=',c,'t=',t:10:2); c:=c+z; end; until t<=a; end; end.
Решение задачи: «Вывести на экран значения функции по заданному условию»
textual
Листинг программы
var k,w,z,q,t:real; begin repeat write('Введите начало интервала k>0 k='); readln(k); until k>0; repeat write('Введите конец интервала w>',k:0:1,' w='); readln(w); until w>k; repeat write('Введите шаг z<',w-k:0:1,' z='); readln(z); until z<w-k; q:=k; writeln('Результаты:'); repeat t:=ln(14.5*q/152.9)+sin(5.3*q); if t<>3.2 then writeln('При q=',q:0:2,' t=',t:6:2); q:=q+z; until q>w; end.
Объяснение кода листинга программы
- Объявление переменных:
k
,w
,z
,q
,t
- тип данныхreal
(вещественные числа).
- Цикл повторения ввода начала интервала:
- Пользователю выводится сообщение
Введите начало интервала k>0 k=
, после чего считывается введенное значение в переменнуюk
. - Цикл повторяется, пока
k
не будет больше 0.
- Пользователю выводится сообщение
- Цикл повторения ввода конца интервала:
- Пользователю выводится сообщение
Введите конец интервала w>
, сначала указывается значениеk
, затемw
, и после этого считывается введенное значение в переменнуюw
. - Цикл повторяется, пока
w
не станет большеk
.
- Пользователю выводится сообщение
- Цикл повторения ввода шага:
- Пользователю выводится сообщение
Введите шаг z<
, причем значение z указано как разница междуw
иk
, затем считывается введенное значение в переменнуюz
. - Цикл повторяется, пока
z
не станет меньше разницы междуw
иk
.
- Пользователю выводится сообщение
- Вычисление и вывод результатов:
- Переменная
q
устанавливается равнойk
. - Выводится сообщение
Результаты:
. - Запускается цикл, в котором вычисляется значение функции для каждого значения
q
в интервале отk
доw
с шагомz
. - Для каждого вычисленного значения
t
проверяется, не равно ли оно 3.2, и если нет, то выводится сообщение в форматеПри q=значение_как_десятичная_дробь t=значение_как_десятичная_дробь
. - Значение
q
увеличивается наz
. - Цикл продолжается, пока
q
не превыситw
.
- Переменная
- Конец программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д