Вывести на экран значения функции по заданному условию - 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.

Объяснение кода листинга программы

  1. Объявление переменных:
    • k, w, z, q, t - тип данных real (вещественные числа).
  2. Цикл повторения ввода начала интервала:
    • Пользователю выводится сообщение Введите начало интервала k>0 k=, после чего считывается введенное значение в переменную k.
    • Цикл повторяется, пока k не будет больше 0.
  3. Цикл повторения ввода конца интервала:
    • Пользователю выводится сообщение Введите конец интервала w>, сначала указывается значение k, затем w, и после этого считывается введенное значение в переменную w.
    • Цикл повторяется, пока w не станет больше k.
  4. Цикл повторения ввода шага:
    • Пользователю выводится сообщение Введите шаг z<, причем значение z указано как разница между w и k, затем считывается введенное значение в переменную z.
    • Цикл повторяется, пока z не станет меньше разницы между w и k.
  5. Вычисление и вывод результатов:
    • Переменная q устанавливается равной k.
    • Выводится сообщение Результаты:.
    • Запускается цикл, в котором вычисляется значение функции для каждого значения q в интервале от k до w с шагом z.
    • Для каждого вычисленного значения t проверяется, не равно ли оно 3.2, и если нет, то выводится сообщение в формате При q=значение_как_десятичная_дробь t=значение_как_десятичная_дробь.
    • Значение q увеличивается на z.
    • Цикл продолжается, пока q не превысит w.
  6. Конец программы.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.125 из 5
Похожие ответы