Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лб инф передел / Pascal / Лабораторные по информатике / 2
.txt PROGRAM P2;
VAR x,Y,k: REAL;
BEGIN
Writeln('x='); READLN(x);
Writeln('k='); READLN(k);
IF k=1
Then Y:=sqr(x)*sqr(x);
IF (k=2) AND (x>0)
Then Y:=EXP((1/4)*ln(x));
IF (k>2) AND (x>0)
Then Y:=EXP(-k*ln(x));
Writeln('Y=', Y:6:2);
END.
VAR x,Y,k: REAL;
BEGIN
Writeln('x='); READLN(x);
Writeln('k='); READLN(k);
IF k=1
Then Y:=sqr(x)*sqr(x);
IF (k=2) AND (x>0)
Then Y:=EXP((1/4)*ln(x));
IF (k>2) AND (x>0)
Then Y:=EXP(-k*ln(x));
Writeln('Y=', Y:6:2);
END.
Соседние файлы в папке Лабораторные по информатике