Question

1)Напишите программу нахождения наименьшего среди трех целых чисел.

 

2)Напишите алгоритм в виде блок схемы  нахождения периметра прямоугольника.

Answer 1

1) Код на Делфи, коды вставить в рамки события нажания на ЛКМ на кнопку

var a, b, c, d, f: Integer;

begin

a:= StrToFloat (Edit1.Text);

b:= StrToFloat (Edit2.Text);

c:= StrToFloat (Edit3.Text);

If a<b Then d=a Else d=b;

If d<c Then f=d Else f=c;

Edit1.Text:= FloatToStr(f);

end;

2)

начало -> вводим размеры сторон прямоугольника -> вычисляем периметр по формуле  

p=(a+b)*2 -> выводим результат на экран -> конец

фигуры блок-схемы сам нарисуешь?