Все готовые лабы по паскалю (№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

иначе





















































Случайные файлы

Файл
30943-1.rtf
86190.rtf
142950.rtf
~$РПЗ.doc
69987.rtf




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.