01 семестр / Лабораторные работы / Все готовые лабы по паскалю / 2 лабораторка / №3

3. дано целое число L. Определите W , используя оператор CASE.

W=

• Текст программы

Program number 3;

var

k, L: integer;

w: real;

Begin

Readln (L);

If (L mod 7) =0 then k: =1

Else

If (L mod 7) =2. 3 then k: =2

Else

If (L mod 5) =5 then k: =3

Else k: =4;

Case k of

1: w: =pi*sqr (1) + sqrt (1);

2: w: =exp (5)*Ln (1)/ (L+2);

3: w: =exp (L*sin (L))/*(1+L*Ln (L));

4: w: =75.3;

end;

writeln (w);

readln;

end.

• Исходные данные: 3; Результат: 7.5300000000E+01

Блок-схема

0

2, 3

5

иначе