Программирование разветвлённых алгоритмов.

Операторы передачи управления

 

Вычислить значение функции в зависимости от интервала, в который попадает вводимый с клавиатуры аргумент:

 

1. Для t [0,3], at²lnt при 1 ,

где a=-0.5,b=2 z= 1 при t<1,

e^atcosbt при t>2,

Текст программы

 

program Lab2;

 

const a=-0.5; b=2; { Описание констант }

var t,z:real; { Описание переменных }

 

begin

 

write('Ввести t ');{ Ввод данных }

 

readln(t);

 

if (t>=0) and (t<=3) then begin

if t>2 then z:=exp(a*t)*cos(b*t){ вычисление z }

else if (t<1) and (t<=3) then z:=1

else z:=a*t*t*ln(t);

writeln('z = ',z:10:2); { вывод результатов}

end

else Writeln('При данном t функция не определена');

 

end.

 

Результат выполнения программы

Рис. 3. Результат выполнения лабораторной работы №2

 

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

Программирование циклических алгоритмов

С заданным числом повторений

 

Вычислить значения двух функций в n равномерно расположенных в диапазоне a<x<b точках. Результаты оформит в виде таблицы.

№ п/п	a	b	n	F1(х)	F2(х)
		2		sin x cos x	sin x + cos x -1

 

 

Текст программы

 

Program Lab3;

Uses CRT;

const a=0; b=2*pi; { Описание констант}

n=10;

var f1, f2: real; { Описание переменных }

x, dx:real;

i:integer;

Begin

clrscr;

dx:=abs((b-a)/(n-1)); {шаг по х

x:=a;

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

writeln('| I | X | F1 | F2 |');

writeln('|-------|-------|--------|--------|');

for i:=1 to n do begin

f1:=sin(x)*cos(x);

f2:=sin(x)+cos(x)-1;

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

x:=x+dx;

end;

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

readkey;

End.

 

Результат выполнения программы

Рис. 4. Результат выполнения лабораторной работы №3

 

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

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

 

Модифицировать (изменить) программу лабораторной работы №3 для вычисления функций F1(x) и F2(x) с применением вместо счетного цикла оператора цикла с предусловием. Выполнить ее и сравнить результаты с полученными в пре­дыдущей работе.

Текст программы

 

program Lab4;

 

const a=0; b=2*pi;

n=10;

var f1, f2: real;

x, dx:real;

i:integer;

begin

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

writeln ('_______________________________________');

writeln ('| I | X | F1 | F2 |');

writeln ('|----|---------|-----------|----------|');

x:=a; i:=0;

while x <=b do { цикл с предусловием}

begin

i:=i+1;

f1:=sin(x)*cos(x);

f2:=sin(x)+cos(x)-1;

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

x:=x+dx;

end;

writeln('|______________________________________|');

 

end.

Рис. 5. Результат выполнения лабораторной работы №4

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

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

 

Модифицировать программу лабораторной работы №3 для вычисления функций F1(x) и F2 (x) с применением оператора цикла с постусловием. Выполнить ее и сравнить результаты с полученными ранее.

 

Текст программы

 

Program Lab5;

uses CRT;

const a=0; b=2*pi;

n=10;

var f1, f2: real;

x, dx:real;

i:integer;

Begin

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

x:=a;i:=0;

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

writeln('| I | X | F1 | F2 |');

writeln('|-------|-------|--------|--------|');

repeat { цикл с постусловием }

i:=i+1;

f1:=sin(x)*cos(x);

f2:=sin(x)+cos(x)-1;

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

x:=x+dx;

until x>b;

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

readkey;

end.

 

Рис. 6. Результат выполнения лабораторной работы №5

 

 

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