01 семестр / Лабораторные работы / Все готовые лабы по паскалю / 2 лабораторка / №3
.doc3. дано целое число 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
иначе