Создание программ, использующих алгоритмы разветвляющихся структур (Создание программы для вычисления месячного расхода электроэнергии)

Министерство образования Российской федерации

УГТУ – УПИ

Филиал в г. Краснотурьинске

Кафедра вычислительной техники

Отчет

По лабораторной работе № 2

По теме ,, Создание программ разветвляющегося алгоритма.”

Преподовалель                                                                                              Бывшева М.А.

Студент                                                                                                          Килин И. С.

Группа                                                                                                            МТ-235

2003

Цель работы : Создать программы, использующие алгоритмы разветвляющихся структур

1.  Задания :

а) Непрерывное производство ежесуточно расходует W кВт/ч электроэнергии. Для заданного месяца текущего года  вычислить общий расход электроэнергии R.

б) Составить программу определяющую возраст n человека в годах (n ≤ 100).

нет

нет

да

2

4,6,9,11

1,35,7,8,10,12

, X >O иначе

в

 

2.  Блок – схемы

начало

а)                                                                     

нет

да

5,6,7,8,9,0

2,3,4

1

n

Введите возраст

начало

б)

Введите Х

начало

в)

 

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 =  

 Вывод: Создал программы, использующие алгоритмы разветвляющихся структур.