'a': write('Вы ввели символ а');
'b': write('Вы ввели символ b');
'c': write('Вы ввели символ c');
'd': write('Вы ввели символ d')
Else write('Вы ввели символ, которого нет среди меток')
end; readkey;
End.
З А Д А Н И Я:
1. Набрать приведенные выше программы и выполнить их.
2. Во второй программе после <clrscr> ввести МЕНЮ для выбора меток.
ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 9
ОПЕРАТОР ВАРИАНТА (продолжение)
Вычислить площади фигур, выбирая их из списка (меню) :
Program PLFigur; Uses crt;
var s,a,b,h,r:real;
n:integer;
Begin
ClrScr;
writeln(' П Л О Щ А Д И');
writeln(' =============');
writeln(' 1. Прямоугольника.');
writeln(' 2. Трапеции.');
writeln(' 3. Круга.');
writeln(' 4. Конец работы.');
writeln;
write('Введите номер строки :'); readln(n);
Case n of
Begin
clrscr;
write('Введите стороны прямоугольника a,b :');
readln(a,b);
s:=a*b;
write('Площадь прямоугольника S=',s)
end;
Begin
clrscr;
write('Введите основания и высоту трапеции a,b,h :');
readln(a,b,h);
s:=(a+b)*h/2;
write('Площадь трапеции S=',s)
end;
Begin
clrscr;
write('Введите радиус круга r=');
readln(r);
s:=pi*r*r;
write('Площадь круга S=',s)
End
else write(' ***** Работа окончена *****');
end;
readkey;
End.
З А Д А Н И Я:
1. Набрать программу и выполнить ее для четырех строк меню.
2. Самостоятельно дописать в программу вычисление площади треугольника.
ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 10
