Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лб инф передел / Pascal / Лабораторные по информатике / ЛБ инф / ЛБ 1.1 / Program1
.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(2*PI*70/360)+PI*EXP(-(a+b))/COS(2*PI*75/360)*LN(SQR(a)+SQR(b)));
Y:=(EXP((ABS(x)+2.5)-(a+b+1.5))+(EXP(-x)+1.5)/a*b+EXP(a+b)*SQRT(SQR(a)+SQR(b)));
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(2*PI*70/360)+PI*EXP(-(a+b))/COS(2*PI*75/360)*LN(SQR(a)+SQR(b)));
Y:=(EXP((ABS(x)+2.5)-(a+b+1.5))+(EXP(-x)+1.5)/a*b+EXP(a+b)*SQRT(SQR(a)+SQR(b)));
Writeln('x= ',x:8:6,'y= ',y:8:6);
End.
Соседние файлы в папке ЛБ 1.1