Министерство образования РФ
УГТУ-УПИ
Филиал в г.Краснотурьинске
кафедра вычислительной техники
По лабораторной работе №3
По теме: «Создание программ разветвляющегося алгоритма»
преподаватель: Мезецева О. В.
студент: Боробов И. С.
группа: Р-131 КТ
2003г.
Цель работы: Создать программы, использующие алгоритмы разветвляющихся структур.
Блок схемы.
Программа №1
Создать программу для вычисления месячного расхода энергии.
Программа №2
Составить алгоритм и программу, которая для натурального числа n (n<=100), определяет возраст человека в годах, выводит на экран сообщения: «Возраст человека n лет (год, года)».
Программа№3
Вычислить: , если x>0
, иначе
Текст программ.
Программа №1.
Program primer;
Const god=2001;
Var
W, R:real;
j:word;
begin
{заставка}
Writeln ('Програма вычисления расхода электроэнергии');
Writeln;
{Ввод исходных данных}
Write ('Введите номер месяца j=');
Readln (j);
Write ('Введите суточный расход энергии W=');
readln (W);
{Конец ввода исходных данных}
Case j of {начало оператора варианта}
1,2,5,7,8,10,12:R:=31*W;
4,6,9,11:R:=30*W;
2:if god mod 4=0 then R:=29*W else R:=28*W
else Writeln ('Ошибочный номер месяца')
end; {Конец опиратора варианта}
{Вывод результата}
if (j>0) and (j<13) then Writeln ('B',j,'-м месяце расходуется',R:5:2,'кВт/ч');
write ('Для выхода нажмите ENTER');
Readln;
End.
Программа№2.
Program Goda;
var n,k: integer;
begin;
Writeln ('введите возраст');
Readln (n);
begin;
if (n>=10) and (n<=20)
then writeln ('вам',n,'лет')
else
begin k:= n mod 10;
case k of
1:begin
writeln ('вам ',n,' год');
end;
2,3,4:begin
writeln ('вам ',n,' года');
end;
5,6,7,8,9,0:begin
writeln ('вам ',n,' лет');
end;
end;
end;
end;
Writeln ('для выхода нажмите ENTER');
readln;
end.
Программа№3.
Вывод: в этой лабораторной работе мы создали программы с использованием разветвляющегося алгоритма.
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.