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: Pią 08:04, 26 Paź 2007<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Jak będę miała chwile dziś po szkole to spróbuje zamieścić....</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>Ic</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: Czw 23:24, 25 Paź 2007<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">ja bym cie z checia wyreczył w tym aczkolwiek moje podejscie do zapisywania tego co jest na zajeciach jest lekko mowiac olewajace i boje sie iz nie mam zapisane tresci tych zadan...</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="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 20:10, 20 Paź 2007<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">To może ktoś inny? <img src="http://picsrv.fora.pl/images/smiles/icon_razz.gif" alt="Razz" border="0" /> Nie pozwólcie mi nabijać postów!</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>informatrix_dumbhead</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: Pią 17:07, 19 Paź 2007<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Przepraszam- mam takie pytanie- czy mógłby ktoś zamieścić 'treść' tych zadań, a przynajmniej tych ostatnich (tzn. m.in. zad.4-7) <img src="http://picsrv.fora.pl/images/smiles/icon_question.gif" alt="Question" border="0" /> <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> <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: Nie 13:54, 07 Paź 2007<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Oj Arku, Arku, jesteś nie grzecznym chłopcem. Do szkoły nie chodzisz, nic tylko byś się lenił <img src="http://picsrv.fora.pl/images/smiles/icon_wink.gif" alt="Wink" border="0" /> <br />Do kąta marsz i masz zakaz czytania <img src="http://picsrv.fora.pl/images/smiles/icon_wink.gif" alt="Wink" border="0" /> <br /> <br />A na serio to co do sensowności poniższych nic nie mogą zagwarantować, chyba działały, ale Reimana nawet sprawdzić się nie dało... <img src="http://picsrv.fora.pl/images/smiles/icon_razz.gif" alt="Razz" border="0" /> <br />Zmienne bywają dość bezsensowne, celem pokazywania tych programów komukolwiek polecam pozmieniać chociaż nazwę programu ;P <br /> <br />Zadanie 5 <br />Newton-Raphson <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 NEWTON; <br />var x:real; <br />procedure oblicz(x:real); <br />var a,d:real; <br />begin <br />d:=1e-6; <br />a:=x; <br />while ABS(a-x/a) >d do <br />a:=(a+x/a)/2; <br />writeln('Pierwiastkiem podanej liczby jest ',a); <br />end; <br />BEGIN <br />Writeln ('Podaj liczb© jakiej chcesz pierwiastek chcesz obliczyc'); <br />Readln(x); <br />oblicz(x); <br />readln; <br />END. <br /> <br /></td> </tr></table><span class="postbody"> <br /> <br />Zadanie 6 <br />Całka Riemana <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 Riman; <br />var a,b: real; n:integer; <br />function f(x:real):real; <br />begin <br />f:=x*x; <br />end; <br />procedure rieman(a,b:real; n:integer); <br />var k,d,p,x:real; <br />begin <br />d:=(b-a)/n; k:=0; p:=0; <br />While k<>n do <br />begin <br />x:=(a+d)*(k+d/2); <br />p:=d*abs(f(x))+p; <br />k:=k+1; <br />end; <br />Writeln ('pole wynosi ',p); <br />end; <br />BEGIN <br />Writeln ('Podaj punkty a i b kt˘re b©dĄ bocznymi granicami pola'); <br />readln(a,b); <br />Writeln ('podaj z jakĄ dokˆadno˜ciĄ chcesz obliczy† pole'); <br />readln(n); <br />rieman(a,b,n); <br />readln; <br />END. <br /></td> </tr></table><span class="postbody"> <br /> <br />Zadanie 7 <br />Metoda bisekcji <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 PASKUDZTWO; <br />var a,b: real; dokl:real ; <br /> <br />function f(x:real):real; <br />begin <br />f:=x+1; <br />end; <br /> <br />procedure bisekcja(a,b,dokl:real); <br />var d:real; <br />begin <br />if f(a)*f(b)>0 then writeln ('mzf w podanym przedziale nie wystepuje'); <br /> <br />while f(a)*f(b)<0 do begin <br /> <br />if f(a)=0 then begin writeln ('mzf to ',a);break;end; <br />if f(b)=0 then begin writeln ('mzf to ',b);break;end; <br /> <br />if b-a < dokl then begin <br /> d:=(a+b)/2; <br /> writeln ('mzf ', d:2:2); break; end <br />else begin <br /> d:=(a+b)/2; <br /> writeln('cosik'); <br /> if f(a)*f(d)<0 then <br /> b:=d <br /> else <br /> a:=d <br /> end; <br />end; <br />end; <br /> <br /> BEGIN <br />Writeln ('Podaj punkty a i b kt˘re b©dĄ bocznymi granicami pola'); <br />readln(a,b); <br />{Writeln ('podaj z jakĄ dokˆadno˜ciĄ chcesz obliczy† pole');} <br />dokl:=1e-6; <br />bisekcja(a,b,dokl); <br />readln; <br />END. <br /></td> </tr></table><span class="postbody"> <br /> <br /> <br />Edit: A! i smacznego ;D</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>Ic</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: Nie 13:16, 07 Paź 2007<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">a co na deser ;D</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="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: Nie 07:13, 07 Paź 2007<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Coś się nie podoba? <br />nie chcesz deserku? <img src="http://picsrv.fora.pl/images/smiles/icon_razz.gif" alt="Razz" 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> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Ic</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: Sob 23:36, 06 Paź 2007<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">taaaa dzieki za takie smacznego ;p</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="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 13:30, 06 Paź 2007<span class="gen"> </span> Temat postu: Zadania z 6.X</span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Zadanie 1 <br />Równania liniowe <br />wersja procedurkowa: <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 r_liniowe; <br />var a,b: integer; <br />procedure liniowe (a,b:integer); <br />var x :real; <br />begin <br />x:= (-b)/a; <br />writeln (x) <br />end; <br />BEGIN <br />writeln ('Podaj wsp r˘wnania liniowego o postaci ax+b=0'); <br />readln (a,b); <br />liniowe (a,b); <br />readln; <br />END. <br /></td> </tr></table><span class="postbody"> <br />wersja funk <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">program r_liniowe; <br />var a,b: integer; <br />function liniowe (a,b:integer):real; <br />var x :real; <br />begin <br />x:= (-b)/a; <br />writeln (x) <br />end; <br />BEGIN <br />writeln ('Podaj wsp r˘wnania liniowego o postaci ax+b=0'); <br />readln (a,b); <br />liniowe (a,b); <br />readln; <br />END. <br /></td> </tr></table><span class="postbody"> <br /> <br />Zadanie 2 <br />Największy Wspólny Dzielnik <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 nwd1; <br />var a,b:integer; <br />function nwd(a,b:integer):real; <br />begin <br />while a<>b do begin <br />if a>b then <br />a:=a-b <br />else <br />b:=b-a <br />end; <br />nwd:=a; <br />end; <br />begin <br />writeln ('podaj dwie liczby'); <br />readln (a,b); <br />nwd (a,b); <br />writeln ('Najwi©kszym wsp˘lnym dzielnikiem jest',' ',nwd(a,b):2:2); <br />readln; <br />end.</td> </tr></table><span class="postbody"> <br /> <br />Wersja uproszczona <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 nwd2; <br />var a,b:integer; <br />function nwd(a,b:integer):real; <br />begin <br />while a>0 do begin <br />a:=a mod b; <br />b:=b-a; <br />end; <br />nwd:=b; <br />end; <br />begin <br />writeln ('podaj dwie liczby'); <br />readln (a,b); <br />writeln ('Najwi©kszym wsp˘lnym dzielnikiem jest',' ',nwd(a,b):2:2); <br />readln; <br />end. <br /></td> </tr></table><span class="postbody"> <br /> <br />Zadanie 3 MIN-MAX <br />Wyznaczyć z k-liczb najmniejszą (na tym samym schemacie -lekko zmodyfikowanym można wyznaczyć największą z k-liczb) <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 minimalna; <br />var a,k:integer; <br />procedure mini(a,k:integer); <br />var min:integer; <br /> begin <br /> min:=a; <br />while k<>1 do begin <br />writeln ('Podaj kolejna liczbe'); <br />readln (a); <br /> k:=k-1; <br /> if a<min then min:=a; <br /> end; <br />Writeln('Najmniejsza wartoscia jest', min); <br />end; <br />begin <br />writeln ('Podaj ile liczb chcesz porownac'); <br />readln (k); <br /> writeln ('podaj jadna z liczb'); <br /> readln (a); <br />mini(a,k); <br />readln; <br />end.</td> </tr></table><span class="postbody"> <br /> <br />Zadanie 4 <br />Sprawdza czy podana liczba jest liczbą pierwszą czy złożoną. <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">program pierwszaki; <br />var n:integer; <br />procedure spr(n:integer); <br />var i:integer; <br />begin <br /> i:=2; <br /> while (i*i<=n) and (n mod i<>0) do i:=i+1; <br /> if i*i>n then <br /> Writeln ('Liczba jest liczba pierwsza') <br /> else <br /> writeln ('Liczba jest liczba zlozona'); <br />end; <br />BEGIN <br />writeln ('Wpisz liczb©, by sprawdzic czy jest liczba pierwsza czy zlozona'); <br />readln(n); <br />spr(n); <br />readln; <br />END.</td> </tr></table><span class="postbody"> <br /> <br />Smacznego! ;D</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