Paskal zadatak

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

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

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

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

[Link mogu videti samo ulogovani korisnici]