![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Составить блок схему алгоритма и написать программу вычисления площади треугольника,прямоугольника или круга в зависимости от заданной фигуры(перед вычислением следует прочитать слово или символ,означающие заданную фигуру,проанализировать его и выбрать нужную формулу в среде Delphi)
|
#2
|
|||
|
|||
![]() ну и?
Как я понял - консоль. тогда типа: Код:
Program Ploschad; {$APPTYPE CONSOLE} function sTriangle : Double; begin ... end; function sPoligone : Double; var W. H : Double; begin write('Укажите ширину: '); readln(W); write('Укажите высоту: '); readln(H); result := W*H; end; function sCircle : Double; begin ... end; var S : Double; F : Integer; begin writeln('Фигура'); writeln('1 - Треугольник'); writeln('2 - Прямоугольник'); writeln('3 - Круг'); write('Выберите фигуру:'); readln(F); case F of 1 : S := sTriangle; 2 : S := sPoligone; 3 : S := sCircle' else begin WriteLn('Неверный выбор'); Exit; end; end; WriteLn('Площадь указанной фигуры S = ',S); end. для одной функции расчет написал. для остальных - "сама, сама", лень формулы искать ![]() Последний раз редактировалось lmikle, 03.06.2017 в 01:13. |