Witam
Piszę na forum z prośbą o pomoc w sprawie niżej podanego programu. Ten program rozdziela liczbę całkowitą na cyfry, a mi zależy na tym, aby potrafiło rozdzielić liczbę rzeczywistą na cyfry.
Z góry dziękuje i proszę o szybką pomoc.
program cyferki;
uses crt;
var
n:integer;
x,y:shortint;
begin
clrscr;
writeln('Rozbieram liczbe n na cyferki');
write('n=');
readln(n);
if n<0
then begin
n:=n*-1;
write('-');
y:=trunc(ln(n)/ln(10))+1+2+1;
end
else
y:=trunc(ln(n)/ln(10))+1+2;
x:=2;
repeat
gotoxy(x,y);
write(n mod 10);
n:=n div 10;
dec(y);
delay(200);
until n<=0;
readln;
end.