№3 (Все готовые лабы по паскалю)
Описание файла
Файл "№3" внутри архива находится в следующих папках: 1kyrs_1semestr_paskal_labworks, 2 лабораторка. Документ из архива "Все готовые лабы по паскалю", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве МГТУ им. Н.Э.Баумана. Не смотря на прямую связь этого архива с МГТУ им. Н.Э.Баумана, его также можно найти и в других разделах. Архив можно найти в разделе "лабораторные работы", в предмете "информатика" в общих файлах.
Онлайн просмотр документа "№3"
Текст из документа "№3"
3. дано целое число L. Определите W , используя оператор CASE.
-
Текст программы
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
иначе