x-kom hosting

[turbopascal] Division By Zero

tomq90
utworzono
utworzono

Witam Smile

Otóż mam następujący problem z TurboPascalem...

Mam natępujący napisany "program"

program domek;uses crt; var kolor:byte;procedure d;   begin   sound(800);   delay(400);   nosound;   end; procedure rys(c:byte);  var  i:byte;   begin	textcolor©;	gotoxy(11,24);	 write('*************************************');	d;	 gotoxy(11,10);	 write('*************************************');	d;	 for i:=10 to 24 do	  begin	   gotoxy(11,i);	   write('*');	  end;	d; for i:=10 to 24 do	  begin	   gotoxy(48,i);	   write('*');	  end;	d;	   gotoxy(13,13);	   textcolor(white);	   write('**********');	   gotoxy(13,14);	   write('*		*');	   gotoxy(13,15);	   write('*		*');	   gotoxy(13,16);	   write('*********');	d;	   gotoxy(35,13);	   textcolor(white);	   write('*********');	   gotoxy(35,14);	   write('*		*');	   gotoxy(35,15);	   write('*		*');	   gotoxy(35,16);	   write('*********');	d;	   textcolor(c+1);	   gotoxy(23,18);	   write('*********');	   gotoxy(23,19);	   write('*********');	   gotoxy(23,20);	   write('*********');	   gotoxy(23,21);	   write('*********');	   gotoxy(23,22);	   write('*********');	   gotoxy(23,23);	   write('*********');	   gotoxy(23,24);	   write('*********');d;gotoxy(30,1);textcolor(c+2);write('*');gotoxy(27,2);write('*******');gotoxy(24,3);write('*************');gotoxy(21,4);write('*******************');gotoxy(18,5);write('*************************');gotoxy(15,6);write('*******************************');gotoxy(12,7);write('*************************************');gotoxy(9,8);write('*****************************************');gotoxy(6,9);write('***********************************************');d;end;procedure kolory;vari:byte;  beginclrscr;  textcolor(green);  writeln('Podaj kolor za pomocą cyfry: ');  for i:=1 to 12 do	begin	 textcolor(white);	 write(i);	 textcolor(i);	 writeln(' -kolor');	end;writeln;writeln('Co wybierasz?');readln(kolor);end;   begin   clrscr;	kolory;   clrscr;	rys(kolor );	readln;end.

Polega on na tym że trzeba wybrać kolor domku i nacisnąć ENTER a będzie budować się domek z gwiazdek o wybranym wcześniej kolorze...

Wszystko by było fajnie gdyby nie to że u mnie w domu po skompilowaniu Alt+R wyskakuje ERROR Division by zero...

Ktoś wie o co może chodzić ? Dodam że w szkole wszystko ładnie chodzi...

Dodam jeszcze że mam TurboPascala Borland Pascal 7.0 zainstalowanego bezpośrednio na dysku C:\ więc ścieżka dostępu jest taka sama jak w szkole... a w szkole jest wszystko dobrze...

I dziś pytałem się faceta od programowania że to najprawdopodobniej potrzeba patcha (znaczy 2 jakiś plików)

Może wie ktoś o jakiego patcha chodzi...

Jak da rade to proszę o linki :)

Z góry dziękuję :)

tomq90
komentarz
komentarz

Ok działa :)

Wciąż szukasz rozwiązania problemu? Napisz teraz na forum!

Możesz zadać pytanie bez konieczności rejestracji - wystarczy, że wypełnisz formularz.

×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Strona wykorzystuje pliki cookies w celu prawidłowego świadczenia usług i wygody użytkowników. Warunki przechowywania i dostępu do plików cookies możesz zmienić w ustawieniach przeglądarki.