Министерство образования Российской Федерации
Уральский государственный технический университет – УПИ
филиал в г. Краснотурьинске
кафедра вычислительной техники
по теме: «Создание программ разветвляющегося алгоритма»
преподаватель: Мезенцева О.В.
студент: Бурлов А.С.
группа: Р-131КТ
2003
Цель работы: создать программы, использующие алгоритмы разветвляющихся структур.
1. Задание:
а) создать программу для вычисления месячного расхода электроэнергии.
б) создать программу, которая выводит на экран: Вам n лет (год, года).
в) вычислить:
2. Блок-схема:
а)
б)
в)
3. Программа:
а) program primer;
uses crt;
const god=2001;
var w,r:real;
j:word;
begin clrscr;
{заставка}
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('В ',j,'-м месяце расходуется ',r:5:2,' кВт/ч');
write('для выхода нажмите ENTER');
readln;
end.
б) program vozrast;
uses crt;
var n,k:integer;
begin clrscr;
writeln('Введите ваш возраст');
readln(n);
if (n>=10) and (n<=20) then writeln('Вам ',n,' лет')
else begin
k:=n mod 10;
case k of
1: writeln('Вам ',n,' год');
2,3,4: writeln('Вам ',n,' года');
5,6,7,8,9,0: writeln('Вам ',n,' лет');
end;
end;
writeln('нажмите <Enter>');
readln;
end.
в) program variant_10;
uses crt;
var x,y:real;
begin clrscr;
writeln('введите числа');
write('x=');
readln(x);
write('y=');
readln(y);
if (cos(x)>sin(y)) then y:=sqrt(abs(x+y))
else y:=exp((1/3)*ln(abs(x+y)));
writeln('y=',y:5:2);
writeln('нажмите <Enter>');
readln;
end.
4. Результат:
а) номер месяца j=1, суточный расход w=2, месячный расход 62 кВт/ч;
б) возраст 17, вам 17 лет; возраст 21, вам 21 год; возраст 23, вам 23 года; возраст 25, вам 25 лет;
в) если x=2, y=4, то y=2,45.
Вывод: научились создавать программы, использующие алгоритмы разветвляющихся структур.
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.