--> Archiwum Forum
@@@ [ Generaďż˝ ]
zadania z Pascala !!!
Cze , mam nadzieje że znajdzie się tu ktoś kto ma pascala w jednym palcu , poniewaz moja nauczycielka po przeprowadzeniu jednej marnej lekcji tego języka zadała kilka zadań,które mają decydowac o ocenie końcowej z informatyki.Błagam o pomoc :DDD Oto jedno z tych zadań , jeżeli komuś nie sprawia ono kłopotów prosze o pomoc :
"Napisz program sprawdzający podzielność danej liczby całkowitej przez inną liczbę" ???
Regis [ ]
Hnmmmmm... A blade pojecia chociaz masz ? Bo calego programu to niestety nie mam czasu pisac :( Jak tak, to po porostu piszesz program, ktory prosi o 2 liczby. Potem dzielicz jedna przez druga. I spradza, czy jest calkowita.
@@@ [ Generaďż˝ ]
Pewnie jakies pojęcie bym miał , ale nie po jednej lekcji jaką przeprowadziła nauczycielka (w dodatku tak że nikt nie ma pojęcia o co jej chodzi :D ) . A może w takim razie zna ktoś stronę o pascalu gdzie byłyby przykładowe programy , może tam bym cos znalazł...
Drag [ Pretorianin ]
Poszukaj w polskim necie stronki Binboy'a... A tak ogolnie to polecam kursy, ktorych w Internecie mozna znalezc naprawde bardzo duzo Pozdrawiam
DUBROLES [ Animator ]
To zależy... bo jeśli chodzi o liczby całkowite, to musi być podzielne przez jeden i dwa...Sprawdzę na swoim serwerze bo pamiętam, że napisałem coś takiego!
@@@ [ Generaďż˝ ]
Jeśli to nie kłopot to sprawdż (dzięki) , z może jakies konkretne adresy stronek bo naprawde dobre trudno znalezc ??
Drag [ Pretorianin ]
.
TAILEREKK [ Senator ]
o kurczeeeeeeeee paskal......... anwet święty Boże nie pomoże....
Regis [ ]
TAILEREKK --> No co ? :) Fajny jest Pascal i latwy :) W sam raz na poczatek :)
Regis [ ]
TAILEREKK --> No co ? :) Fajny jest Pascal i latwy :) W sam raz na poczatek :)
fifalk [ fifalkowiec ]
piszesz program taki: prosi o dwie liczby i dzielisz je mod'em (resta z dzielenia calkowitego). jesli wychodzi 0 to znaczy, ze sie dziela, jak nie 0 to sie nie dziela.
Loonatyk [ ]
Ae.... zajrzyj na moj wątek " Jestem początkującym programistą..."
inqistor [ Pretorianin ]
Uh, cóż za skomplikowane zadanie ;) Akurat po jednej lekcji powinieneś umieć napisać taki program. var a,b:real; begin writeln('Podaj liczbę '); readln(a); writeln('przez co ją podzielić? '); readln(b); write('Liczba ',a:0:0); if a/b<>int(a/b) then write(' nie'); writeln(' jest podzielna przez ',b:0:0); end. Ostrzegam, że program nie jest idiotoodporny.
fifalk [ fifalkowiec ]
inqistor --> liczby mialy byc calkowite, wiec proponowalbym to co wczesniej. kod mniej wiecej taki: var a,b:integer; begin writeln('Podaj 2 liczby'); readln(a,b); if a mod b=0 then writeln('dziela sie') else writeln('Nie dziela sie'); end.
Y(H)ans [ Pretorianin ]
inqistor ja bym zrobil tak jak radzi fifalk czyli var x,y,r,w:integer; begin readln(x); readln(y); w:=x div y; r:=x mod y; if r>0 then writeln(Liczba ',x,'nie jest podzielna ',y); writeln('Liczba ',x,' jest podzielna przez ',y,' i wynikiem jest ',w); readln; end. ps to co radziles jest zaskomplikowane jak na poczatek :) i tutaj uzywasz liczb calkowitych
Y(H)ans [ Pretorianin ]
hmmmmmmm chyba zadlugo pisalem :))))))
fifalk [ fifalkowiec ]
a jesli mialby byc idioto doporny to wpisz: var a,b:integer; begin writeln('co podzielic'); readln(a); writeln('przez co podzielic?'); repeat readln(b); until b<>0; if.... itd
fifalk [ fifalkowiec ]
DODATEK: tzn nie jest w pelni idiotoodporny - jest taki tylko jesli choddzi o kwestie mianownik rozny od zera.
Y(H)ans [ Pretorianin ]
Jeszcze mozna dodac pytanie czy o zakonczeniu czy kontynuowaniu :) var x,y,w,r:integer; c:char; begin repeat ..... ..... ..... repeat writeln('Czy Kontynuowac T/N ?'); c:=upcase(readkey); until c='T' or c='N'; untli c='T'; end. kurde musze se przypomniec pascala bo mam pytanie z pascala na dyplomowej :(
@@@ [ Generaďż˝ ]
Wielkie wam DZIĘKI ale mam inne zadanie , napisać program wyznaczający nawiększy wspólny dzielnik ??? Po raz kolejny muszę się zdać na was :D
Y(H)ans [ Pretorianin ]
var x,y,r:integer; begin writeln('Podaj liczbe '); readln(x); y:=x; repeat r:=x mod y; if r=0 then writeln('Liczba ',x,' dzieli sie przez ',y); y:=y-1; untli y=0; readln; end. jezeli dobrze zrozumialem pytanie to chyba o to chodzi + wszystkie dzielne(dzeilnki hmmmm) danej liczby
DUBROLES [ Animator ]
Znalazłem mój program, ale chyba jusz nie ma sensu, żebym ci go wysyłał...
Y(H)ans [ Pretorianin ]
Mala errata do wczesniejszego przykladu :) uses crt; var x,y,w,r:integer; c:char; begin repeat ..... ..... ..... repeat writeln('Czy Kontynuowac T/N ?'); c:=upcase(readkey); until (c='T') or (c='N'); untli (c='T'); end.
inqistor [ Pretorianin ]
Największy wspólny dzielnik - to znaczy, że podajemy dwie liczby i program znajduje największą liczbę przez jaką się obie dzielą :)
Skrzypu [ Pretorianin ]
hej a procedura 'clrscr' ? Dzie? Kurce tylu t programistów ze hyba niemusze pisać? Chcesz dobrą i tanią książke do pascala to proponuje: Tytuł: Borland Pascal 7.0 Autor:Keith Weiskamp Tam jest praktycznie wszystko co powinieneś wiedzieć na początku a nawet troche wiencej. Mozebyć również Tytuł: Turbo Pascal 7.0 Autor: Jarża Ale ona to naprawde dla początkujących. Wszystkiego w dodatku nie da sie zrozumieć.
Regis [ ]
Heh... z prosciutkiego zadania na informe zaraz zrobi sie jaka aplikacja, albo co :) A ja do Pascala polecam ksiazke Marciniaka (chyba tak mu bylo) Turbo Pascal 7.0 Reklamopwali ja kiedys w kaciku Pascala w CDA i dobre, bo jest naprawde spox.
mithos [ Senator ]
Widze same madre glowy, moze mi ktos pomoze :)) Zapraszam do mojego watku. Z gory wielkie dzieki