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

Министерство общего и профессионального образования РФ

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

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

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

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

Студент                                                                                                 Робертус Д.В.

Группа                                                                                                              Мт-209

Вариант                                                                                                                   №9

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

2002

Цель:

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

1.Задание

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

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

в) Составить алгоритм и программу решения задачи. Вычислить:

            ln(x + y²), если x и y  - положительные

y  =      ln(|x| + |y|), если x и y – отрицательные

            0, иначе

2.Блок-схема.

а)

111

б)

 

Программа, определяющая

Возраст человека в годах

 

Введите возраст человека

 

     N

 

                                    да                                N>=10,                           нет

N<=20.

 

       Возраст человека n лет                                                                                 N

 

                     1                                            2,3,4                            другое

 

                           Вам n год                               Вам n года                              Вам n лет  

 

 

       Конец

в)

    Начало

 

     Введите x

 

      x

 

    Введите y

 

      y

                                    x>0,y>0                                                               иначе

                                              

			y=ln(|x|+|y|)

 

                                    y=ln(x+y²)                                                             y=0

 

    y

 

   Конец

3.Программа

а)

Program primer;

const god = 2002;

var W,R:real; j:word;

begin

writeln (‘Программа вычисления расхода электроэнергии’);

writeln;

wtite (‘Введите номер месяца 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<12) then writeln (‘в’,j,’-м месяце расходуется’, R:5:2,’кВт/ч’);

write (‘Для выхода нажмите Enter’);

readln;

end.

б)

Program m2;

var h,p:integer;

begin

write (‘Введите возраст’);

readln (n);

if (n>=10) and (n<=20) then write (‘Вам’,n,’лет’) else p:=n mod 10;

case p of 1: writeln (‘Вам’,n,’год’);

2,3,4: writeln (‘Вам’,n,’года’);

else writeln (‘Вам’,n,’лет’);

end;

writeln (‘Нажмите Enter’);

readln;

end.

в)

Program m3;

var x,t:real;

Begin

writeln (‘Введите x,y’);

readln (x;y);

if (x>0) and (y>0) then y:=ln(x+sqr(y))

else if (x<0) and (y<0) then y:=ln(abs(x) + abs(y))

else y:=0;

writeln (‘y=’, y:3:1);

readln;

end.

4.Результат.

а) Если j=1, W=100, тогда R = 3100 кВт/ч.

б) Если n=21, то «Вам 21 год».

в) Если x=2, y=1, тогда y = 1.098

              x=-1, y=-3, тогда y = 1,386

              x=-1, y=3, тогда y = 0

Выводы:

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