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

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

Уральский государственный технический университет – УПИ

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

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

ОТЧЕТ

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

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

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

студент:                                                                                               Бурлов А.С.

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

2003

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

1. Задание:

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

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

в) вычислить:

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

а)

б)

в)

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

а)   program primer;

      uses crt;

      const god=2001;

      var w,r:real;

                j:word;

      begin clrscr;

      {заставка}

      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('В ',j,'-м месяце расходуется ',r:5:2,' кВт/ч');

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

      readln;

      end.

б)   program vozrast;

      uses crt;

      var n,k:integer;

      begin clrscr;

      writeln('Введите ваш возраст');

      readln(n);

      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;

      writeln('нажмите <Enter>');

      readln;

      end.

в)   program variant_10;

      uses crt;

      var x,y:real;

      begin clrscr;

      writeln('введите числа');

      write('x=');

      readln(x);

      write('y=');

      readln(y);

      if (cos(x)>sin(y)) then y:=sqrt(abs(x+y))

      else y:=exp((1/3)*ln(abs(x+y)));

      writeln('y=',y:5:2);

      writeln('нажмите <Enter>');

      readln;

      end.

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

а) номер месяца j=1, суточный расход w=2, месячный расход 62 кВт/ч;

б) возраст 17, вам 17 лет; возраст 21, вам 21 год; возраст 23, вам 23 года; возраст 25, вам 25 лет;

в) если x=2, y=4, то y=2,45.

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