Paskal zadatak

Paskal zadatak

offline
  • Pridružio: 09 Feb 2016
  • Poruke: 1

Имам сутра полагање испита из Паскала, радим писмено, па да питам да ли може неко да ми одради овај задатак:

1. Написати програм којим се формира датотека olimpijada.dat која садржи име такмичара, годину рођења, број освојених поена и земљу из које је долази такмичар. Слог датотеке има поља ime, godina, poeni и zemlja. Унос података се завршава када се уместо имена такмичара унесе реч ‘kraj’.
Након формирања датотеке омогућити штампање на екрану имена такмичара који су освојили више од 100 поена, као и њихове земље. Одредити и на екрану исписати колико постоји различитих земаља у датотеци. Једна земља може имати више такмичара.

Унапред хвала на одговору.



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 15 Maj 2009
  • Poruke: 963

To su onda binarne datoteke?
Koji kompajler koristis?
Evo u Free Pascal sta sam uspeo da uradim:

ime programa; deklaracija tipa: slog = record    ime, zemlja: string;    godina, poeni: integer; kraj; deklaracija promenljivih    podaci: slog;    datoteka: fajl od slog;    i, broj, ucitano: integeri;        { i za petlju, u broj cemo da pamtimo koliko ima razlicitih zemalja a u ucitano koliko je podataka ucitano iz datoteke }    zemlje: niz clanova npr. 1..100 od string; { ovde cemo da pamtimo koje smo sve zemlje ucitali iz fajla }    nalazi: boolean; { kada proveravamo da li je neka zemlja vec ucitana } pocetak glavnog programa    dodeli promeljivoj datoteka naziv 'olimpijada.dat';    otvori datoteku za pisanje;    pitaj korisnika da unese ime i ucitaj(podaci.ime);    dokle god je podaci.ime razlicito od 'kraj' radi    pocetak       pitaj za godinu i ucitaj(podaci.godina);       pitaj za zemlju i ucitaj(podaci.zemlja);       pitaj za poene i ucitaj(podaci.poeni);       pitaj za ime i ucitaj(podaci.ime);    kraj;    zatvori datoteku;    otvori datoteku za citanje;    postavi ucitano na 0 i broj na 0;     dokle god nije kraj fajla(datoteka) radi     pocetak         ucitaj podatke;         ako su podaci.poeni veci od 100 onda               ispisi podaci.ime i podaci.zemlja;         povecaj ucitano za 1;         postavi nalazi na false;         { sada cemo da prodjemo kroz petlju da bi videli da li se podaci.zemlja stvarno ne nalazi u nizu ucitnih zemalja. ako se ne nalazi onda cemo da povecamo broj (zemalja) za 1 i upisacemo tu zemlju u niz }                 pusti ciklus da vrti brojac 'i' od 1 do broj         pocetak             ako su podaci.zemlja = zemlje[i] onda             pocetak                   postavi nalazi na true;                   nasilno prekini ciklus;             kraj;          kraj;                   ako je nalazi = false onda         pocetak                povecaj broj za 1;                postavi zemlje[ucitano] na podaci.zemlja;         kraj;     kraj;    zatvori fajl;    ispisi broj razlicitih zemalja; kraj.

Mnogo dobar tekst o radu sa datotekama: http://suetf.org/materijali/oo1p1/Programiranje1-zadaci(datoteke).pdf

EDIT: Ispravio gresku u programu



offline
  • Srđan Tot
  • Am I evil? I am man, yes I am.
  • Pridružio: 12 Jul 2005
  • Poruke: 2483
  • Gde živiš: Ljubljana

Znam da svi vole rešene zadatke, pa evo izvoli Smile

https://www.mycity.rs/must-login.png

Ko je trenutno na forumu
 

Ukupno su 496 korisnika na forumu :: 54 registrovanih, 5 sakrivenih i 437 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 2413 - dana 03 Okt 2019 05:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: _Sale, A.R.Chafee.Jr., amaterSRB, Apok, Bane san, beowl, black venom, bulovic, cropape, darkangel, Dicus, duskovuk63, Eyes Wide Shut, flash12, Gibli, hooraay, ivance95, ivica976, Jezekijel, Kaplar2, krkalon, Kruger2, Lucije Kvint, Maja Maya Manic, Mali Veseljak, MarKhan, MB120mm, menges, Milan A. Nikolic, miodrag2, Nomenklatura, Novi, pedja2000_9, PrintZip, repac, Revolucion, ruso2, S-lash, sandra.serbia, slonic_tonic, StefanNBG90, Stoorb, suton2, trajkoni018, ucenik32, USSVoyager, vladas87, vlvl, voja64, wizzardone, Wrangler2, Zerajic, zillbg, Zmaj 99