היי אנשים...
קיבלתי עבודה להכין שעון בפסקל...מממ עד כה רשמתי -
ציטוט:
begin {main}
begin {main}
for i:=1 to 100 do
begin
clrscr;
gettime(h,m,s,s100);
writeln(h,':',m,':',s);
delay(50);
end;
end.
|
מממ הגדרתי את הפרוצדורות של gettime ו clrscr ו delay והקומפיילר אומר שהכל בסדר (טורבופסקל) אבל! כשאני מריץ הוא אומר לי error 200:devision by zero.
יש הצעות? תודה!