Informatyczne.fora
Forum pośiwęcone informatytce
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Profil
Zaloguj się, by sprawdzić wiadomości
Zaloguj
Forum Informatyczne.fora Strona Główna
->
Programownie
Napisz odpowiedź
Użytkownik
Temat
Treść wiadomości
Emotikony
Więcej Ikon
Kolor:
Domyślny
Ciemnoczerwony
Czerwony
Pomarańćzowy
Brązowy
Żółty
Zielony
Oliwkowy
Błękitny
Niebieski
Ciemnoniebieski
Purpurowy
Fioletowy
Biały
Czarny
Rozmiar:
Minimalny
Mały
Normalny
Duży
Ogromny
Zamknij Tagi
Opcje
HTML:
NIE
BBCode
:
TAK
Uśmieszki:
TAK
Wyłącz BBCode w tym poście
Wyłącz Uśmieszki w tym poście
Kod potwierdzający: *
Wszystkie czasy w strefie CET (Europa)
Skocz do:
Wybierz forum
Administracja forum
----------------
Regulamin
Ogłoszenia
Pomysły/Uwagi
Systemy operacyjne
----------------
Windows XP
Windows 95/98/2000/Me/Server system 2003/NT...
Linux/Gnu/Open source
Unix/Macintosh
Inne ciekawe alternarywy...nie tylko PC
Komputery
----------------
Hardware
Bezpieczeństwo
Sieci komputerowe
WEBmastering
Programownie
Grafika/Fotografia
Inne
Inne
----------------
Wszystko i nic...
Gry
Filmy ,muzyka i książki
Przegląd tematu
<table border="0" cellpadding="3" cellspacing="1" width="100%" class="forumline"> <tr> <th class="thCornerL" width="22%" height="26">Autor</th> <th class="thCornerR">Wiadomość</th> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>pater</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Pon 16:58, 11 Kwi 2011<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Hej . <br />Nie jestem pewien swojej odpowiedzi bo programowałem jakieś 2 lata temu :/ Ale spróbuj w tym kodzie zmienić to : <br /> <br />begin <br />gotoxy(1,20); <br />writeln('Czy chcesz narysowa† jeszcze jednĄ ramk ?'); <br />writeln('1.Tak, Chc'); <br />writeln('2.Nie.'); <br />readln(z); <br />while z<span style="font-weight: bold">!=</span>2 do <br />begin prostokat; <br />while z=2 do exit; <br /> <br />I jeszcze jak możesz to opisz dokładnie na czym polega błąd jeśli to nie ten , z chęcią spróbuje pomóc <img src="http://picsrv.fora.pl/images/smiles/icon_smile.gif" alt="Smile" border="0" /> <br />pozdrawiam pater</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>kro0p3k</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Wto 14:42, 01 Cze 2010<span class="gen"> </span> Temat postu: Rysowanie Ramki.</span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Witam. Mam pewien problem. <br />Mamy na zadanie napisać program, który: <br />1. Pyta użytkownika o współrzędne : <br />a)Lewego górnego rogu <br />b)Prawego dolnego rogu. <br /> <br />Następnie rysuje owy Prostokąt. <br /> <br />2. Trzeba było zabezpieczyć program, aby ramka nie wychodziła poza ekran tj. Szerokość 80, wysokość 25. <br /> <br />3.Na samym końcu trzeba użyć procedury w pkt. 1 i zapytać użytkownika, czy Chce narysować jeszcze jedną ramkę. <br />jeżeli nie program się wyłącza, jeżeli tak wywołuje się procedurę z pkt. 1 i rysuje się drugą ramkę. <br /> <br />Problem w Tym, że w pkt. 3 mam pewien problem i nie wiem jak go rozwiązać. próbowałem na różne sposoby i nic. <img src="http://picsrv.fora.pl/images/smiles/icon_cry.gif" alt="Crying or Very sad" border="0" /> <br /> <br />Więc chciałbym Was prosić o pomoc. <br />Oto program: <br /> <br /></span><table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"><tr> <td><span class="genmed"><b>Kod:</b></span></td> </tr> <tr> <td class="code">USES crt; <br /> <br />VAR a,b,x1,y1,x2,y2,z:byte; <br /> <br />PROCEDURE prostokat(lx1,ly1,lx2,ly2:byte); <br /> var pi,pj:byte; <br /> <br /> <br /> begin <br /> Gotoxy(lx1,ly1); <br /> write(chr(201)); <br /> FOR pi:=lx1+1 TO lx2-1 DO <br /> begin <br /> Gotoxy(pi,ly1); <br /> write(chr(205)); <br /> end; <br /> pi:=pi+1; <br /> Gotoxy(pi,ly1); <br /> write(chr(187)); <br /> FOR pj:=ly1+1 TO ly2-1 DO <br /> begin <br /> Gotoxy(pi,pj); <br /> write(chr(186)); <br /> end; <br /> pj:=pj+1; <br /> Gotoxy(pi,pj); <br /> write(chr(188)); <br /> FOR pi:=pi-1 DOWNTO lx1+1 DO <br /> begin <br /> Gotoxy(pi,pj); <br /> write(chr(205)); <br /> end; <br /> Gotoxy(lx1,pj); <br /> write(chr(200)); <br /> FOR pj:=pj-1 DOWNTO ly1+1 DO <br /> begin <br /> <br /> Gotoxy(lx1,pj); <br /> write(chr(186)); <br /> end; <br /> end; <br /> <br />BEGIN <br />clrscr; <br /> gotoxy(1,20); <br /> writeln('Podaj wsp˘ˆrz©dne lewego g˘rnego rogu:'); <br /> readln(x1,y1); <br />Repeat <br /> clrscr; <br /> writeln('Podaj wsp˘ˆrz©dne prawego dolnego rogu'); <br /> readln(x2,y2); <br /> Until (x2>x1+1) and (y2>y1+1) and <br /> (x1>0) and (y1>0) and (x1<=78) and (y1<=25) and <br /> (x2<80) and (y2<25); <br /> prostokat(x1,y1,x2,y2); <br />begin <br />gotoxy(1,20); <br />writeln('Czy chcesz narysowa† jeszcze jednĄ ramk© ?'); <br />writeln('1.Tak, Chc©'); <br />writeln('2.Nie.'); <br />readln(z); <br />while z<>2 do <br />begin prostokat; <br />while z=2 do exit; <br /> <br /> readkey; <br />end.</td> </tr></table><span class="postbody"> <br /> <br />a problem mam z tą częścią programu: <br /> <br /> <br /></span><table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"><tr> <td><span class="genmed"><b>Kod:</b></span></td> </tr> <tr> <td class="code">begin <br />gotoxy(1,20); <br />writeln('Czy chcesz narysowa† jeszcze jednĄ ramk© ?'); <br />writeln('1.Tak, Chc©'); <br />writeln('2.Nie.'); <br />readln(z); <br />while z<>2 do <br />begin prostokat; <br />while z=2 do exit;</td> </tr></table><span class="postbody"> <br /> <br />Myślę, że ktoś pomoże mi rozwiązać ten problem <img src="http://picsrv.fora.pl/images/smiles/icon_biggrin.gif" alt="Very Happy" border="0" /></span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> </table>
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2005 phpBB Group
Regulamin
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj