Question

Необходимо написать программу используя оператор выбора CASE. Формулировка: Составить программу, которая по введенной с клавиатуры буквы (P,K,T) будем высчитывать площади прямоугольника, квадрата и треугольника соответственно. Попробовал решить самостоятельно: program HW; uses crt; VAR x,y:integer; { длинна и ширина прямоугольника } a,b:integer; { основание и высота треугольника } d:integer; { длина стороны квадрата } rez:real; { результат } ploshad:real; { площадь } P:real; { прямоугольник } K:real; { квадрат } T:real; { треугольник } BEGIN Write ('Если вы желаете вычеслить площадь прямоугольника, введите его длину и ширину, если же нет, оставьте это поле пустым:'); Readln (x,y); Write ('Если вы желаете вычеслить площадь квадрата, введите длину его стороны, если же нет, оставьте это поле пустым:'); Readln (d); Write ('Если вы желаете вычеслить площадь треугольника, введите его основание, а затем высоту, если же нет, оставьте это поле пустым:'); Readln (a,b); Write ('Укажите букву площади которую хотите вычеслить: прямоугольника(P),квадрата(K) или же треугольника(T) - '); Readln (ploshad); CASE ploshad OF P:rez:=x*y; K:rez:=d*d; T:rez:=0.5*a*b; Else write ('Извините, вы ввели не верный символ.'); end; begin Writeln ('Результат = ',rez:100:3); end; end. _____________________________________________ Но, при запуске программы в строке "CASE ploshad OF" выдает ошибку, что "Ожидался порядковый или строковый тип". Как исправить?

Answer 1

Исправил решение. Теперь все работает как нужно. код программы в файле.