Пример программы с оператором CASE

Program PloFig;

{Вычисление площадей геометрических фигур.

Входные данные: t - тип фигуры,

a,l,h,r - параметры фигур.

Выходные данные: s - площадь фигуры. }

Var t:Byte;

a,l,h,r,s:Real;

Begin {Ввод и контроль}

WriteLn('Задайте тип фигуры:');

Write('1-квадрат,2-прямоугольник,3-круг? ->');

ReadLn(t);

If (t<1)or(t>3)

Then Begin WriteLn('Ошибочный тип фигуры!');

Write(‘Нажмите Enter ->’);

ReadLn; Halt;

End;

{Вычисление площади}

Case t Of

1: Begin Write('Сторона квадрата? ->');

ReadLn(a);

s:=a*a;

End;

2: Begin Write('Стороны прямоугольника? ->');

ReadLn(l,h);

s:=l*h;

End;

3: Begin Write('Радиус круга?->');

ReadLn(r);

s:=Pi*r*r;

End;

End;

WriteLn('Площадь фигуры: ',s:10:5);

End.

Лабораторная работа №3. Циклы

Объем в часах: аудиторных занятий - 3, самостоятельных - 4.

Цель лабораторной работы:

изучение концепций и освоение технологии структурного программирования, приобретение навыков программирования на языке Турбо Паскаль циклических вычислений.

Задание на программирование

Используя технологию структурного программирования, разработать программу решения двух индивидуальных задач, содержащую 3 вида циклических управляющих структур: Цикл - Пока (с предусловием), Цикл - До (с постусловием), Цикл - Для (с параметром).

Не нашли, что искали? Воспользуйтесь поиском: