Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

лабораторная работа / Текст лабы 2

.1.txt
Скачиваний:
46
Добавлен:
10.02.2014
Размер:
293 б
Скачать
Лаба 2.1
х=1
f=0.993

Program lab_2.1;
Const a=20.3;
Var f,x: real;
Begin
Writeln ('Введите х');
Read (x);
If x>1 then f:=0.4343*Ln(x+1)
Else f:=Sqr (Sin (sqrt (abs (a*x))));
Writeln ('f= ',f:8:3);
End.

Программироваие алгоритмов разветвляющейся структуры на языке TURBO PASCAL