07.06.2010, 22:36
общий
это ответ
Здравствуйте, Демьян Осмоновский.
Ниже приведен код. При необходимости поправьте названия и формулы в разделе констант.
Приложение:
{
Составить схему алгоритма, написать и отладить программу в соответствии
с вариантом.
написать программу, которая на название фигуры (треугольник, квадрат,
ромб, прямоугольник) выводит формулу, по которой вычисляется площадь
этой фигуры.
}
{
Схема алгоритма:
на введенные пользователем данные с помощью ветвления осуществляется вывод
нужной формулы.
}
Uses
Crt;
Const
Figures: Array[1..4] of String = ('Triangle', 'Square', 'Rhombus', 'Rectangle');
Formulas: Array[1..4] of String = ('S=a*h/2', 'S=a*a', 'S=a*h', 'S=a*b');
Var
st: String;
index: Byte;
function getIndex(st: String): Byte;
var
result: Byte;
begin
result := 0;
if st = Figures[1] then result := 1;
if st = Figures[2] then result := 2;
if st = Figures[3] then result := 3;
if st = Figures[4] then result := 4;
getIndex := result;
end;
begin
ClrScr;
Write('Type figure: ');
Readln(st);
index := getIndex(st);
if index = 0 then
Writeln('Figure unknown.')
else if (index > 0) and (index < 5) then begin
Writeln(Formulas[index]);
end;
Write('Done. Press any key...');
readkey;
end.