Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лб инф передел / Pascal / Лабораторные по информатике / ЛБ 1.1 / Шаблон
.pas Program pr1;
{Kurs1 is-148 Solovarov R.A Lab1}
Var a,b,x,y: Real;
Begin
Writeln('Enter x=a,b');
Readln(a,b);
x:=(SIN(70*PI/180)+PI*EXP(-(a+b))/COS(75*PI/180)*LN(SQR(a)+SQR(b)));
Y:=(EXP((ABS(x)+2.5)-(a+b+1.5))+sin(EXP(-x)+1.5)/
a*b+EXP(a+b)*SQRT(SQR(a)+SQR(b)+1));
Writeln('x= ',x:8:6,'y= ',y:8:6);
End.
{Kurs1 is-148 Solovarov R.A Lab1}
Var a,b,x,y: Real;
Begin
Writeln('Enter x=a,b');
Readln(a,b);
x:=(SIN(70*PI/180)+PI*EXP(-(a+b))/COS(75*PI/180)*LN(SQR(a)+SQR(b)));
Y:=(EXP((ABS(x)+2.5)-(a+b+1.5))+sin(EXP(-x)+1.5)/
a*b+EXP(a+b)*SQRT(SQR(a)+SQR(b)+1));
Writeln('x= ',x:8:6,'y= ',y:8:6);
End.
Соседние файлы в папке ЛБ 1.1