Протабулировать функцию - 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.