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

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

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

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

Лабораторная работа № 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=-1)and (X=0) and (x=3) and (x=3) and (x=0) and (x=-1)and (X<0)

y := -1

X < -1

Конец

х

Начало