Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лб инф передел / Pascal / Лабораторные по информатике / ЛБ инф / Лб 2.1 / Program2
.pas PROGRAM P1;
VAR x,Y,k: REAL;
BEGIN Writeln('Введите через пробел x и k'); READLN(x,k);
IF (k=2) or (K=3)
Then Y:=(EXP(k*ln(x)))+x+1;
IF (k=4) or (k=5)
Then Y:=(1/ABS(x+1));
IF (k>5) or (k<3)
Then Y:=SQRT(SQRT(ABS(x+k))+SQRT(ABS(x-1)));
Writeln('Y=', Y:6:2);
END.
VAR x,Y,k: REAL;
BEGIN Writeln('Введите через пробел x и k'); READLN(x,k);
IF (k=2) or (K=3)
Then Y:=(EXP(k*ln(x)))+x+1;
IF (k=4) or (k=5)
Then Y:=(1/ABS(x+1));
IF (k>5) or (k<3)
Then Y:=SQRT(SQRT(ABS(x+k))+SQRT(ABS(x-1)));
Writeln('Y=', Y:6:2);
END.
Соседние файлы в папке Лб 2.1