Постановка задачи. Известны два числа. Вычислить произведение этих чисел, если они оба положительные.
Согласно поставленной задаче выполните ручную отладку:
 опишите математическую модель задачи с указанием имен и назначения переменных;
 опишите спецификацию программы;
 запишите алгоритм программы;
 создайте листинг программы
 выполните отладку логики программы методом тестирования на контрольных значениях переменных;
 создайте документ Word, в котором разместите ответы на во и скрины проверки работы программы (не менее трех) для разных числовых значений.

АЛГОРИТМ:Дискретность (прерывность, раздельность) — алгоритм должен представлять процесс решения задачи как последовательное выполнение простых (или ранее определенных) шагов. Результативность (конечность) — алгоритм должен приводить к решению задачи за конечное число шагов.ПРОГРАММА :Свойства хорошей программы?

Отказоустойчивость – возможность восстановления программы и данных в случае сбоев в работе

Безопасность – сбои в работе программы не должны приводить к опасным последствиям (авариям)

Защищенность от случайных или преднамеренных внешних воздействий (защита от дурака, вирусов, спама).

Объяснение:

В чем разница между алгоритмом и программой ясно уже из терминологии. Казалось бы, в обоих случаях мы видим упорядоченные действия, приводящие к конечному результату. Как понятно из определений, программа может состоять из нескольких алгоритмов, однако иерархия “общее — частное” здесь не прослеживается. Алгоритм — это вообще любая инструкция, в которой четко перечислены действия.Привет ты учишся в 24 шг в 6 классе? мне просто интересноМожешь поставить лайк и отметить как лучший ответ я старалась

2) procedure TForm1.Button1Click(Sender: TObject);

var a: array[1..8] of integer; i:integer;

begin

for i := 1 to 8 do

a[i] := StrToInt(Memo1.Lines[i-1]);

Shape1.Height:=a[1];

Shape2.Height:=a[2];

Shape3.Height:=a[3];

Shape4.Height:=a[4];

Shape5.Height:=a[5];

Shape6.Height:=a[6];

Shape7.Height:=a[7];

Shape8.Height:=a[8];

end;  

3) procedure TForm1.Button1Click(Sender: TObject);

var a: array [1..8] of real; b: array [1..8] of TShape; i: integer; min: real;

begin

for i := 1 to 8 do

a[i] := StrToInt(Memo1.Lines[i-1]);

min := a[1];

for i := 1 to 8 do

If a[i] < min Then min := a[i];

b[1] := Shape1; b[2] := Shape2; b[3] := Shape3; b[4] := Shape4;

b[5] := Shape5; b[6] := Shape6; b[7] := Shape7; b[8] := Shape8;

for i := 1 to 8 do

If a[i] = min Then b[i].Brush.Color:= clgreen else b[i].Brush.Color:= clgray;

end;