Написать программу, которая по заданному значению х вычисляет значение у - Pascal ABC

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

Написать программу, которая по заданному значению х вычисляет значение у. Составить таблицу значений функции на участке от -5 да 10 с шагом 0,5

Решение задачи: «Написать программу, которая по заданному значению х вычисляет значение у»

Листинг программы

const a=-5;
      b=10;
      h=0.5;
var x,y:real;
begin
writeln('-----------------');
writeln('|  x  |    y    |');
writeln('-----------------');
x:=a;
while x<b+h do
 begin
  if x<-2 then y:=1-4/x
  else if x<4 then y:=sqr(x)-1//sqrt это корень квадратный
  else y:=15/(x-3);
  writeln('|',x:4:1,' |',y:8:3,' |');
  x:=x+h;
 end;
writeln('-----------------');
end.

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

const a=-5; b=10; h=0.5;
var x,y:real;
begin
writeln('-----------------');
writeln('| x | y |');
writeln('-----------------');
x:=a;
while x<b+h do
begin
if x<-2 then y:=1-4/x
else if x<4 then y:=sqr(x)-1//sqrt это корень квадратный
else y:=15/(x-3);
writeln('|',x:4:1,' |',y:8:3,' |');
x:=x+h;
end;
writeln('-----------------');
end.

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

14 голосов , оценка 4.214 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы