alooche.khanoom
کاربر تازه وارد
سلام
برج هانوی به زبان پاسکال نوشتم کامپایل می کنم ارور نمی ده ! ولی موقع اجرا ارورمی ده !
error200=division by zero
این ارورو قبلا هم دیدم نمی دونم یعنی چی ؟ اینم برناممه
program Hanoi;
uses
crt,dos;
var m,h,i:integer;
procedure Move(h:integer; F,T,U:char);
begin
if h = 1 then
begin
write ('Move disk from ');
write (F);
write (' to ');
writeln (T);
end
else
begin
Move(h-1, F,U,T);
write ('Move disk from ');
write (F);
write (' to ');
writeln (T);
Move (h-1, U,T,F)
end
end;
begin
clrscr;
write ('Number of disk =');
readln (h);
Move (h,'A','B','C');
m:=m+1;
for i:=1 to h do
m:=m*2;
writeln('Number of Movement =',m-1);
readln
end.
کسی میدونه این ارور مال چیه و چطور رفع می شه ؟
برج هانوی به زبان پاسکال نوشتم کامپایل می کنم ارور نمی ده ! ولی موقع اجرا ارورمی ده !
error200=division by zero
این ارورو قبلا هم دیدم نمی دونم یعنی چی ؟ اینم برناممه
program Hanoi;
uses
crt,dos;
var m,h,i:integer;
procedure Move(h:integer; F,T,U:char);
begin
if h = 1 then
begin
write ('Move disk from ');
write (F);
write (' to ');
writeln (T);
end
else
begin
Move(h-1, F,U,T);
write ('Move disk from ');
write (F);
write (' to ');
writeln (T);
Move (h-1, U,T,F)
end
end;
begin
clrscr;
write ('Number of disk =');
readln (h);
Move (h,'A','B','C');
m:=m+1;
for i:=1 to h do
m:=m*2;
writeln('Number of Movement =',m-1);
readln
end.
کسی میدونه این ارور مال چیه و چطور رفع می شه ؟