Программирование элементов разветвляющейся структуры

ПЕНЗЕНСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

Кафедра МО и ПЭВМ

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

Тема: «Программирование элементов разветвляющейся структуры»

Выполнил: студент гр. 02ТП1

Пахомов В. Е.

Проверил: Ракова А. Н.

2003

Задание А.

Если первое из трех веденных с клавиатуры чисел отрицательное, то

вычислить среднеарифметическое всех этих чисел. В противном случае

рассчитать произведение двух первых.

Программа:

uses crt;

var

a,b,c,e:real;

begin

clrscr;

writeln('Введите первое число ');

readln(a);

writeln('Введите второе число ');

readln(b);

writeln('Введите третье число ');

readln(c);

if a<0 then

begin

e:=(a+b+c)/3

end

else

e:=a*b;

writeln ('Результаты вычилений ',e:3:3);

readkey;

end.

Блок-схема

Задание Б.

Разработать алгоритм и составить программу вычисления значений функции,

заданной графиком

4

3

2

1

-1 1 2 3 4

-2

-3

Программа:

uses crt;

var

y,x : real;

begin

writeln('Введите значение Х ');

readln(x);

if x<-1 then

y := -1

else

if (X>=-1)and (X<0) then

y := 2*x+1

else

if (x>=0) and (x<3) then

y := -1/3*x+1

else

if (x>=3) and (x<4) then

y := 2*x-6

else

y := 2;

writeln('Результат', y:2:3);

readkey;

end.

Блок-схема

-----------------------

result

Конец

result := a * b;

result := (a + b + c) div 3;

a < 0

a, b, c

Начало

у

y := 2;

y := 2*x-6

(x>=3) and (x<4)

y := -1/3*x+1

(x>=0) and (x<3)

y := 2*x+1

(X>=-1)and (X<0)

y := -1

X < -1

Конец

х

Начало