Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
ПЕНЗЕНСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
Лабораторная работа № 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
Конец
х
Начало