Программа выдает только последнюю цифру при вычислениях

@leito.pr · Регистрация: 04.04.2011

Author24 — интернет-сервис помощи студентам

Проверьте правильно или нет ?!

Постоянно выдает последнюю цифру (y)!

???....

Pascal

program s8;
Uses crt;
var
x,y,e:real;
begin
clrscr;
write (' vvedit x= '); readln (x);
write (' vvedit y= '); readln (y);
if ((abs(x))<1) and (x<0) then
y:=(x+y)/(exp(x*y*ln(e)));
if (2<x) and (y<=0) then
y:=(-exp(2*ln(ln(x))));
if (0<y) and (0<=x) and (x<=2) then
y:=ln(sqrt(y)/ln(10));
writeln('  y= ',y:2:2);
readln;
end.

@TAVulator · 09.04.2011, 15:25

Сообщение от leito.pr

Проверьте правильно или нет ?!

какое задание-то?

@TAVulator ⚽ 4190 / 1291 / 237 Регистрация: 27.07.2009 Сообщений: 3,962
	09.04.2011, 15:25	2
	Сообщение от leito.pr Проверьте правильно или нет ?! какое задание-то? 0