Создание программы с разветвляющимся алгоритмом

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

Уральский Государственный Технический Университет

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

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

Отчет по лабораторной работе №2

Студент                                                                                        Козлов И.В.

Группа                                                                                          Мт-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

Вывод: В ходе данной лабораторной работы я научился составлять программу с учётом нескольких условий (при помощи разветвляющегося алгоритма).