Люди, помогите написать программу в Паскале. Нужно, чтобы сравнивалась дробная и целая часть вещественного числа, если она одна и та же, то тру, если нет, то false. Допустим 12.12 будет тру, а если нет, то фолс. Проблема в том, что через fruc и int сравнивается 12 и 0.12. Домножать на 100 нельзя, тк это универсальная программа, может быть и число 123.123

Question

Информатика

Ким

26 декабря, 13:34

Люди, помогите написать программу в Паскале. Нужно, чтобы сравнивалась дробная и целая часть вещественного числа, если она одна и та же, то тру, если нет, то false. Допустим 12.12 будет тру, а если нет, то фолс. Проблема в том, что через fruc и int сравнивается 12 и 0.12. Домножать на 100 нельзя, тк это универсальная программа, может быть и число 123.123

+1

Ответы (1)

Знаете ответ на вопрос?

Ганя · Answer 1

Var

V: real;

c, b: integer;

begin

writeln ('Введите число') ;

readln (V) ;

c:=round (V) ;

V:=V-c;

b:=c;

while c>0 do begin

c:=c div 10;

V:=V*10;

end;

c:=round (V) ;

V:=V-c;

if round (V*10000) 0 then

writeln ('части не равны')

else begin

if b=c then

writeln ('части равны')

else

writeln ('части не равны') ;

end;

end.