Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лб инф передел / Pascal / Лабораторные по информатике / Лб 3.1 / Program3 - не то
.pas Program LB4;
Var a,b,x:real;
Begin
Writeln('Значение переменных A и B?');Readln(a,b);
Begin
If (x>=1) and (x>0)
Then X:=ln(a*b-EXP((1/3)*ln((a*a+b*b)/(a*a-b*b))));
writeln('X=',x:6:2)
End;
Begin
If (A=-1) and (A<0)
Then X:=ln(a*b-EXP((1/3)*ln((a*a+b*b)/(a*a-b*b))));
writeln('X=',x:6:2)
End;
Begin
If (B=1) and (B>0)
Then X:=ln(a*b-EXP((1/3)*ln((a*a+b*b)/(a*a-b*b))));
End;
writeln('X=',x:6:2);
End.
Var a,b,x:real;
Begin
Writeln('Значение переменных A и B?');Readln(a,b);
Begin
If (x>=1) and (x>0)
Then X:=ln(a*b-EXP((1/3)*ln((a*a+b*b)/(a*a-b*b))));
writeln('X=',x:6:2)
End;
Begin
If (A=-1) and (A<0)
Then X:=ln(a*b-EXP((1/3)*ln((a*a+b*b)/(a*a-b*b))));
writeln('X=',x:6:2)
End;
Begin
If (B=1) and (B>0)
Then X:=ln(a*b-EXP((1/3)*ln((a*a+b*b)/(a*a-b*b))));
End;
writeln('X=',x:6:2);
End.
Соседние файлы в папке Лб 3.1