www.infocos.fora.pl
Forum gdyńskiej grupy informatycznej Cosinus - zapraszamy też na www.niebieski1.webpark.pl
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Profil
Zaloguj się, by sprawdzić wiadomości
Zaloguj
Forum www.infocos.fora.pl Strona Główna
->
Programowanie strukturalne i obiektowe
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 EET (Europa)
Skocz do:
Wybierz forum
Ogólne
----------------
Ogłoszenia forumowe
Zajęcia
----------------
Urządzenia Techniki Komputerowej
Oprogramowanie biurowe
Programowanie strukturalne i obiektowe
Systemy operacyjne i sieci
Multimedia i grafika komputerowa
Język angielski zawodowy
Cosinus
----------------
Zjazdy
Sekretariat
Offtopic
----------------
Informatyka
Muzyka
Film
Dowcipy
Książki
Polityka
Sport
O nas
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>Yui</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: Sob 16:44, 29 Wrz 2007<span class="gen"> </span> Temat postu: Zadania z zajęć z 29IX</span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Nie daje 100% gwarancji że działa, nie są to też "jedyne słuszne rozwiązania" <img src="http://picsrv.fora.pl/images/smiles/icon_wink.gif" alt="Wink" border="0" /> <br /> <br />Zadanie 1 <br />Napisz program który wypisze na ekranie kolejne liczby naturalne z przedziału zamkniętego od 23 do 45 oddzielone spacjami. <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">Program zadanie1; <br />var i : integer; <br />BEGIN <br />FOR i:=23 TO 45 DO <br />write(i); <br />readln; <br />END. <br /></td> </tr></table><span class="postbody"> <br /> <br />Zadanie 2 <br />Napisz program który pobiera z klawiatury liczby podane przez użytkownika aż do momentu gdy ich suma jest równa 50 <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">Program zadanie2; <br />var i,suma : integer; <br />BEGIN <br />suma:=0; <br />repeat <br />writeln ('Podaj liczbe jaka Ci sie podoba'); <br />readln (i); <br />suma:=i+suma; <br />i:=i+1; <br />until suma>50; <br />writeln ('Suma Twoich cyferek wynosi ', suma); <br />readln <br />END. <br /></td> </tr></table><span class="postbody"> <br /> <br />Zadanie 3 <br />Napisz program który wypisze wszystkie dwucyfrowe liczby parzyste podzielne przez 3 <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">Program zadanie3; <br />var i: integer; <br />BEGIN <br />for i:=10 to 99 do <br />if (i mod 2=0) and (i mod 3=0) then <br />writeln(i); <br />readln; <br />END.</td> </tr></table><span class="postbody"> <br /> <br />Zadanie 4 <br />Napisz program który pobiera trzy liczby i wyznacza najmniejszą z nich <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">Program zadanie4; <br />var a,b,c,min :integer; <br />BEGIN <br />writeln ('Podaj trzy liczby, oddzielajac je enterem, z kt˘rych chcesz zobaczyc jaka jest najmniejsza '); <br />readln (a,b,c); <br />if a<b then <br />min:=a <br />else <br />min:=b; <br />if min<c then <br />writeln ('Najmniejsza liczba jest ', min) <br />else <br />writeln ('Najmniejsza liczba jest ', c); <br />readln; <br />END.</td> </tr></table><span class="postbody"> <br /> <br />Zadanie 5 <br />Napisz program który pobiera trzy liczby i wyświetla je w kolejności malejącej</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">Program zadanie5; <br />uses crt; <br />var a,b,c,min,max :integer; <br />BEGIN <br />clrscr; <br />writeln ('Podaj trzy liczby, oddzielajac je enterem '); <br />readln (a,b,c); <br />writeln ('a = ', a); <br />writeln('b= ',b); <br />if a<b then <br /> begin <br /> min:=a; <br /> max:=b; <br /> end <br />else <br /> begin <br /> min:=b; <br /> max:=a; <br /> end; <br /> <br />if c<min then <br /> writeln (max,' ',min,' ',c) <br />else <br /> begin <br /> if c>max then <br /> writeln (c,' ',max,' ',min) <br /> else <br /> writeln (max,' ',c,' ',min); <br /> end; <br />readln; <br />END.</td> </tr></table><span class="postbody"> <br /> <br />Zadanie 6 <br />Napisz program który pobierze dwie liczby (całkowite) i zapyta użytkownika o ich iloczyn, a w przypadku złej odpowiedzi wyświetli komunikat o błędzie - chodzi o program do nauki tabliczki mnożenia </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">Program zadanie6; <br />var a,b,c,iloczyn :integer; <br />BEGIN <br />Writeln ('Wpisz dwie liczby, pamietaj o oddzieleniu ich enterem'); <br />readln (a,b); <br />iloczyn:=a*b; <br /> <br />repeat <br /> Writeln ('Podaj ile wynosi iloczyn liczb ', a, ' i ', b); <br /> Readln (c); <br /> if iloczyn <>c then <br /> writeln('Sorry, pomysl jeszcze raz') <br /> else <br /> writeln('Gratulacje!'); <br />until iloczyn =c; <br />readln; <br />END.</td> </tr></table><span class="postbody"> <br /> <br />Ostatnie zadanie jest bez tej pętli powodującej iż po poprawnej odpowiedzi użytkownik może zacząć od początku <img src="http://picsrv.fora.pl/images/smiles/icon_wink.gif" alt="Wink" 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