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 -> выводим результат на экран -> конец
фигуры блок-схемы сам нарисуешь?
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 -> выводим результат на экран -> конец
фигуры блок-схемы сам нарисуешь?