Разветвляющийся алгоритм. Разработка программы с разветвляющейся структурой

Лабораторная работа 2

Тема: разветвляющийся алгоритм.

Цель: разработать программу с разветвляющейся структурой.

Ход выполнения работы:

Задание 1. Разработать программу, которая запрашивает у пользователя номер дня недели и выводит название соответствующего дня.

Выполнение задания:

Листинг программы:

procedure TForm1.Button1Click(Sender: TObject);

var

n: integer;

begin

n:= StrToInt(Edit1.text);

case n of

1: Showmessage ('Понедельник');

2: Showmessage ('Вторник');

3: Showmessage ('Среда');

4: Showmessage ('Четверг');

5: Showmessage ('Пятница');

6: Showmessage ('Суббота');

7: Showmessage ('Воскресенье');

else

showmessage ('Нет такого дня');

end;

end;

Блок-схема программы представлена на рисунке 2.1.

 

Рисунок 2.1 – Блок-схема программы

Выполнение программы представлено на рисунке 2.2.

 

Рисунок 2.2 – Программа, запрашивающая у пользователя номер дня недели и выводящая название соответствующего дня.

Задание 2. Дан двумерный массив размерностью 10 на 10 элементов. Необходимо заполнить его случайными числами, найти сумму элементов главной диагонали. Если значение суммы больше 20, то заполнить главную диагональ нулями.

Выполнение задания:

Листинг программы:

procedure TForm1.Button1Click(Sender: TObject);

begin

sum_d := 0;

for i := 0 to 9 do

begin

for j := 0 to 9 do

begin

A[i, j] := random(5);

StringGrid1.Cells[j, i] := IntToStr(A[i, j]);

end;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

for i := 0 to 9 do

begin

sum_d := sum_d + A[i, i];

end;

if sum_d > 20 then

begin

for i := 0 to 9 do

begin

A[i, i] := 0;

StringGrid1.Cells[i, i] := '0';

end;

showmessage('Сумма значений всех ячеек главной диагонали: ' +

IntToStr(sum_d) + '. Значения всех ячеек главной диагонали были заменены нулями, так как '+IntToStr(sum_d) + ' > 20');

end

else

showmessage('Сумма значений всех ячеек главной диагонали: ' + IntToStr(sum_d));

end;

Программа состоит из двух процедур: Button1Click и Button2Click. Процедура Button1Click запускается нажатием на кнопку Button1 и заполняет двумерный массив случайными числами в диапазоне от 0 до 5. Процедура Button2Click запускается нажатием на кнопку Button2 и производит вычисления.

Блок-схемы процедур Button1Click и Button2Click представлены на рисунках 2.3 и 2.4 соответственно.

Рисунок 2.3 – Блок-схема процедуры Button1Click

Рисунок 2.4 – Блок-схема процедуры Button2Click

Выполнение программы представлено на рисунке 2.5.

Рисунок 2.5 – Программа, заполняющая массив случайными числами и находящая сумму элементов главной диагонали