Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

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

Ответ оставил Гость

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

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

begin

a:= StrToFloat (Edit1.Text);

b:= StrToFloat (Edit2.Text);

c:= StrToFloat (Edit3.Text);

If a

If d

Edit1.Text:= FloatToStr(f);

end;

2)

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

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

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

Оцени ответ