Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лб инф передел / Pascal / Лабораторные по информатике / Лб 2.1 / Соловаров ИС_148 Л.Б. 2.1 Вар 10
.pas PROGRAM LB2;
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) and (x>0)
Then Y:=(1/ABS(x+1));
IF (k>5) or (k<3) and (x>0) or (x>=1)
Then Y:=SQRT(SQRT(1/3)*ln(1/3)*(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) and (x>0)
Then Y:=(1/ABS(x+1));
IF (k>5) or (k<3) and (x>0) or (x>=1)
Then Y:=SQRT(SQRT(1/3)*ln(1/3)*(ABS(x+k))+SQRT(ABS(x-1)));
Writeln('Y=', Y:6:2);
END.
Соседние файлы в папке Лб 2.1