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

Министерство образования РФ

УГТУ-УПИ

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

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

ОТЧЕТ

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

По теме: «Создание программ разветвляющегося алгоритма»

преподаватель:  Мезецева О. В.

             студент:  Боробов И. С.

              группа:  Р-131 КТ

2003г.

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

Блок схемы.

Программа №1

Создать программу для вычисления месячного расхода энергии.

Программа №2

Составить алгоритм и программу, которая для натурального числа n (n<=100), определяет возраст человека в годах, выводит на экран сообщения: «Возраст человека n лет (год, года)».

Программа№3

Вычислить:                                    , если x>0

                                                       , иначе

Текст программ.

Программа №1.

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.

Программа№2.

Program Goda;

var n,k: integer;

begin;

      Writeln ('введите возраст');

      Readln (n);

      begin;

      if (n>=10) and (n<=20)

              then writeln ('вам',n,'лет')

              else

              begin k:= n mod 10;

              case k of

              1:begin

                writeln ('вам ',n,' год');

                end;

              2,3,4:begin

                    writeln ('вам ',n,' года');

                    end;

              5,6,7,8,9,0:begin

                          writeln ('вам ',n,' лет');

                          end;

              end;

              end;

              end;

Writeln ('для выхода нажмите ENTER');

readln;

end.

Программа№3.

Вывод: в этой лабораторной работе мы создали программы с использованием разветвляющегося алгоритма.