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

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

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

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

Задание 1: Начертите структ. схему алгоритма, напишите и отладьте программу для табуляции след. функций:

при 0 <= x <= 2 формула z = ln(a+x*x/ корень(a))

при 2< x <= 3.6 формула z = 2 * exp(2*x)

x*x = х в квардате

exp(2*х) = е в степенеи 2х

program lab_4_1;

var

a, x, z:real;

begin

a := 1.0;

writeln(' a | x | z ');

writeln('-----+------------+------------');

while a <= 1.61 do begin

x := 0;

while x <= 3.61 do begin

if x <= 2 then

z := ln(a+x*x/sqr(a))

else

z := 2*exp(2*x);

writeln(a:5:2, '|', x:12:2, '|', z:12:2);

x := x + a / 4;

end;

a := a + 0.3;

end;

readln;

end.