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

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

Задание:

а) составьте программу, которая рассчитывает некоторый непрерывный ежесуточный расход энергии, для заданного текущего месяца, года;

б) составить программу, использующую развилку ;

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

Блок схема:

а)

 

R=28W

б)

в)

Программы:

а) Program Dolphin_04;

uses crt;

var W,R:real;

god,m:word;

begin

clrscr;

write (‘Введите единичный расход электроэнергии, W=’);

readln (W);

write (‘Введите год, god=’);

readln (god);

write (‘Введите месяц, m=’);

readln (m);

case m of

1,3,5,7,8,10,12:begin

R:=31*W;

writeln (‘R=’,R:8:2);end;

4,6,9,1:begin

R:=30*W;

Writeln (‘R=’,R:8:2);end;

2:begin

if god mod 4=0 then R:=29*W else R:=28*W;

writeln (‘R=’,R:8:2);end;

else  writeln (‘неверный ввод’);

end;

readln;

end.

б) Program Dolphin_05;

uses crt;

var x,m,y:real;

begin

clrscr;

write (‘Введите x=’);

readln (x);

write (‘Введите m=’);

readln (m);

if cos(x)>sin(y) then y:=sqrt(abs(x+m)) else y:=sqrt(3*ln(abs(x+m)));

writeln (‘y=’,y:8:2);

readln;

end.

в) Program Dolphin_06;

uses crt;

var n:integer;

begin

clrscr;

write (‘Введите n=’);

readln (n);

case n of

1,21,31,41,51,61,71,81,91:writeln (‘Ваш возраст ‘,n:2,’ год’);

2,3,4,22,23,24,32,33,34,42,43,44,52,53,54,62,63,64,72,73,74,82,83,84,92,93,94:

writeln (‘Ваш возраст ‘,n:2,’ года’);

else if (n<0) or (n>100) then writeln (‘Неправильный ввод’) else writeln

(‘Ваш возраст ‘,n:2,’ лет’);

end;

readln;

end.

Результаты:

а)W=13, god=2002, m=2: R=403.00.

б) x=3, m=5: y=2.50.

в) n=63: Ваш возраст 63 года.

Вывод:

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