Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лб инф передел / Pascal / Лабораторные по информатике / Возможные варианты / AKUMA2
.PAS PROGRAM LAB_1;
{
Laboratornaya rabota N 10
Variant N 10
O.A Zotova, st. gr. M-178
}
VAR
A,B,C,D,X :real;
BEGIN
A:=1e-1;
B:=1.2;
C:=5.1;
D:=2.05;
x:=0.25*(sin(A)/(5.21e-6*exp(B))-4*sqrt(C*Ln(C))) - Pi*D*D;
Writeln ('x= ' ,x:12);
END.
{
Laboratornaya rabota N 10
Variant N 10
O.A Zotova, st. gr. M-178
}
VAR
A,B,C,D,X :real;
BEGIN
A:=1e-1;
B:=1.2;
C:=5.1;
D:=2.05;
x:=0.25*(sin(A)/(5.21e-6*exp(B))-4*sqrt(C*Ln(C))) - Pi*D*D;
Writeln ('x= ' ,x:12);
END.
Соседние файлы в папке Возможные варианты