Программирование разветвляющихся вычислительных процессов с использованием операторов, реализующих базовые структуры ветвления

Программирование в среде TurboPascal 7.0

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

Тема – программирование разветвляющихся вычислительных процессов с использованием операторов, реализующих базовые структуры ветвления.

Цель работы – освоить на практике программирование несложных разветвляющихся вычислительных процессов, используя для этого простейшие операторы управления, в частности условный оператор и оператор безусловного перехода.

Выполнил: студент гр.ТO-07

Шапочкин А.С.

Проверил: Журов Г.Н.

Дата: 7.04.08.

В - 9

Задача 1. Составить программу вычисления по формуле

при произвольных значениях .Напечатать значения .

Программу составить двумя способами:

а) с помощью условного оператора;

б) с помощью оператора безусловного перехода.

Решение.

Блок – схема:

 

                                                Да                                         Нет

Программа:

а)

Program Prim1;

Var

 x,y,t,z:real;

Begin

WriteLn;

WriteLn('Vvedite x,y');

ReadLn(x,y);

t:=sqr(x)+sqr(y);

if x<y then z:=sin(t)

else z:=cos(t);

WriteLn;

WriteLn('x=',x:3:1,'  y=',y:3:1,'   z=',z:8:6);

End.

Вид печати:

x=1.6  y=7.0   z=0.962077

x=5.0  y=1.2   z=0.260498

x=5.0  y=5.0   z=0.964966

б)

Program Prim1;

Var

 x,y,t,z:real;

 Label 1,2;

Begin

WriteLn;

WriteLn('Vvedite x,y');

ReadLn(x,y);

t:=sqr(x)+sqr(y);

if x<y then goto 1;

 z:=cos(t);

goto 2;

1: z:=sin(t);

2: WriteLn;

WriteLn('x=',x:3:1,'  y=',y:3:1,'   z=',z:8:6);

End.

Вид печати:

x=1.6  y=7.0   z=0.962077

x=5.0  y=1.2   z=0.260498

x=5.0  y=5.0   z=0.964966

Задача 2. Составить программу вычисления и печати по формуле