Министерство образования Российской федерации
УГТУ – УПИ
Филиал в г. Краснотурьинске
Кафедра вычислительной техники
По лабораторной работе № 2
По теме ,, Создание программ разветвляющегося алгоритма.”
Студент Килин И. С.
Группа МТ-235
2003
Цель работы : Создать программы, использующие алгоритмы разветвляющихся структур
1. Задания :
а) Непрерывное производство ежесуточно расходует W кВт/ч электроэнергии. Для заданного месяца текущего года вычислить общий расход электроэнергии R.
б) Составить программу определяющую возраст n человека в годах (n ≤ 100).
|
|
|
|
|
|
|
2. Блок – схемы
|
|
|
|
|
|
|
|
|
|
|
3. Программы :
а) 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.
б) program age;
uses crt;
var n,k: integer;
t: char;
begin
repeat
clrscr;
writeln (‘введите ваш вазраст’);
readln(n);
if n<100 then begin
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;
end
else writeln (‘ столько не живут ‘);
writeln (‘ продолжить? (y/n) ‘);
readln(t);
until t<> ‘y’;
end.
в) program reshenie;
var x,y:real;
begin
writeln('Введите переменную x=');
readln(x);
if x>0 then y:=sin(2*x)/cos(2*x)+cos(2*x)/sin(2*x)
else
y:=sin(x)*sin(x)/cos(x)*cos(x);
writeln('Функция равна ',y:15:2);
readln;
end.
4. Результат
а) при J = 4 , W = 40 , R = 1200
б) при n = 18 – вам 18 лет
в) при x = 3, y =
Вывод: Создал программы, использующие алгоритмы разветвляющихся структур.
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.