Напишите программу для системы уравнений, которая выводит таблицу значений функций - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Интервал: [0.1; 1], шаг

Решение задачи: «Напишите программу для системы уравнений, которая выводит таблицу значений функций»

textual
Листинг программы
var x,y:real;
begin
x:=0.1;
while x<=1 do
 begin
  if 1.5*x<1 then y:=1.5*x-ln(1.5*x)/ln(10)
  else if 1.5*x>1 then y:=1.5*x+ln(1.5*x)/ln(10)
  else y:=1;//это условие никогда не выполнится
  writeln('x=',x:0:1,'  y=',y:5:3);
  x:=x+0.1;
 end;
end.

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

  1. Объявляются переменные x и y типа real.
  2. Значение переменной x устанавливается равным 0.1.
  3. Задается условие для цикла while: x <= 1.
  4. Если условие выполняется, то вычисляется значение переменной y по формуле y = 1.5x - ln(1.5x)/ln(10).
  5. Если условие не выполняется, то вычисляется значение переменной y по формуле y = 1.5x + ln(1.5x)/ln(10).
  6. Если ни одно из условий не выполняется, то значение переменной y устанавливается равным 1.
  7. Выводится строка 'x=', за которой следует значение переменной x в формате 0.1:0.0:1, а затем строка 'y=', за которой следует значение переменной y в формате 5.0:3.
  8. Значение переменной x увеличивается на 0.1.
  9. Цикл while повторяется, переходя к следующему значению переменной x.

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

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