tomq90 utworzono 16 listopada 2007 utworzono 16 listopada 2007 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ę
ugresia komentarz 16 listopada 2007 komentarz 16 listopada 2007 http://www.shitsoft.net/download/programowanie/pascal.rar ten pascal powinien działać
Wciąż szukasz rozwiązania problemu? Napisz teraz na forum!
Możesz zadać pytanie bez konieczności rejestracji - wystarczy, że wypełnisz formularz.