Министерство образования Российской Федерации
Уральский Государственный Технический Университет
Филиал в г. Краснотурьинске
Кафедра вычислительной техники
Студент Козлов И.В.
Группа Мт-209
Вариант 6
Преподаватель Мезенцева О.В.
2002
Цель работы: создать программу с разветвляющимся алгоритмом.
1. Задание.
а) Непрерывное производство ежесуточно расходует W кВт/ч электроэнергии. Для заданного месяца текущего года вычислить общий расход электроэнергии R.
б) Составить программу, определяющую возраст человека в годах и выводящую на экран сообщение: “Возраст человека n лет (год, года)”.
|x| + |y| если x>y
в) y=
|y| - |x| иначе
2. Блок-схема: a)
Начало
Вычисление месячного
Расхода электроэнергии
Введение номера
Месяца и суточной
Расход энергии
J, W
J
1,3,5,7,8,10,12 4,6,9,11 2
R=31*W R=30*W
нет Високосный да
Год
R=28*W R=29*W
да нет
0<J<13
R ошибочный
месяц
Конец
б)
Начало
Программа, определяющая
Возраст человека в годах
Введите возраст человека
N
да N>=10, нет
N<=20.
Возраст человека n лет N
1 2,3,4 другое
Вам n год Вам n года Вам n лет
Конец
в)
Начало
Введите x
x
Введите y
y
x>y иначе
y:=|x| + |y| y:=|y| - |x|
y
Конец
3. Программа:
a)
program primer;
const god=2002;
var W, R:real; j:word;
begin
writeln;
writeln('Программа вычисления расхода электроэнергии');
writeln;
write('Введите номер месяца j=');
readln(j);
write('Введите суточный расход энергии W=');
readln(W);
case j of
1, 3, 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,' кВт/ч');
writeln('Для выхода нажмите ENTER');
readln;
end.
б)
program vozrast_cheloveka;
var k, n: integer;
begin
writeln;
writeln(‘Программа, определяющая возраст человека в годах’);
writeln;
write ('Введите возраст человека');
readln (n);
if (n>=10) and (n<=20) then write ('Возраст человека ',n,' лет.')
else
begin
k:=n mod 10;
case k of
1: writeln ('Возраст человека - ',n,' год.');
2, 3, 4: writeln (''Возраст человека - ',n,' года.');
else writeln (''Возраст человека - ',n,' лет.');
end;
end;
readln;
end.
в)
program zad_3;
var x, y: real;
begin
writeln(‘Введите x’);
readln(x);
writeln(‘Введите y’);
readln(y);
if x>y then y:=abs(x)+abs(y)
else y:=abs(y)-abs(x);
writeln(‘y=’,y:5:2);
end.
4. Результат
а) Рассчитать расход электроэнергии за октябрь 2002 г.
j=10, W=18, R=31*18=558
б) n=21 Возраст человека 21 год.
n=22 Возраст человека 21 года.
N=25 Возраст человека 25 лет.
в) x:=4, y:=-4, y = |4| + |-4| = 8
x:=0, y:=2, y = |2| - |0| = 2
x:=50, y:=50, y = |50| - |50| = 0
Вывод: В ходе данной лабораторной работы я научился составлять программу с учётом нескольких условий (при помощи разветвляющегося алгоритма).
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.