Лабы Паскаль / лабы 5 / lab4_2

ИВТ-118 Малахов А.А

Лабораторная работа №4

Тема: Программирование циклических алгоритмов с предусловием

Задание 2: Модифицируйте программу 3_2 для вычисления функций f1 и f2 с применением вместо счетного цикла оператора цикла с предусловием. Выполнить ее и сравнить результаты

program lab_4_2;

const

a = -1;

b = 3;

n = 20;

var

i : integer;

dx, x, f1, f2: real;

begin

dx := abs(b - a) / (n - 1);

x := a;

while i <= n do begin

f1 := exp(2*LN(-x)) / 100;

f2 := 20 / (1 + x*x);

writeln('|', i:3, '|', x:8:3, '|', f1:8:4, '|', f2:8:4, '|');

x := x + dx;

i := i + 1;

end;

readln;

end.