ПЕНЗЕНСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
Кафедра МО и ПЭВМ
Лабораторная работа № 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Задание Б. Разработать алгоритм и составить программу вычисления значений функции, заданной графиком 4 3 2 1 -1 1 2 3 4 -2 -3 Программа: uses crt; var y,x : real; begin writeln('Введите значение Х '); readln(x); if x=-1)and (X=0) and (x=3) and (xБлок-схема result Конец result := a * b; result := (a + b + c) div 3; a =3) and (x=0) and (x=-1)and (X
Нашли опечатку? Выделите и нажмите CTRL+Enter