Протабулировать функцию - Pascal ABC (13017)

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

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

Вычислить таблицу значений функции для значений аргумента х в интервале от xn до xk с шагом hx . Исходные данные приведены в таблице. Задачу решить, используя циклы: а) WHILE; б) REPEAT; в) FOR.

Решение задачи: «Протабулировать функцию»

textual
Листинг программы
const a=15;
      xn=10;
      xk=20;
      hx=0.5;
function F1(x:real):real;
begin
F1:=sin(pi*x);
end;
function F2(x:real):real;
begin
F2:=sqr(ln(3*x+1));
end;
 
var x,y:real;
Begin
x:=xn;
while x<=xk do
 begin
  if x<=a then y:=F1(x)
  else y:=F2(x);
  writeln('x=',x:5:1,'  y=',y:7:3);
  x:=x+hx;
 end;
End.

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

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