docstxt/1279478951101372.txt
} Programmi seletus Programm koosneb peaprogrammist int main ning kolmest alamprogrammist: 1) int sisendfaili_kontroll(void) 2) void tekita_failid(void) 3) void andmed_failidesse(void) Töö alguses kontrollib programm esimese alamprogrammi abiga sisendfaili olemasolu ning selle lugemisõigust. Vea korral väljastatakse teade ja väljutakse programmist. Ühtlasi loetakse kirjete arv failis, mille alusel määratakse tellitava mälu hulk. Seejärel toimub peaprogrammis sisendfailist andmete lugemine palgaandmete struktuuri massiivi ning leitakse isikute keskmine vanus ja palk. Järgmiseks toiminguks kutsutakse välja teine alamprogramm, mis tekitab ja tühjendab väljundfailid, et sinna hiljem andmeid lisada. Viimasena kutsutakse välja kolmas alamprogramm, mis väljastab isikuandmed failidesse vastavalt ülesande püstituses esitatud tingimustele. Märkused: 1. Isiku nime pikkus ei tohi olla pikem kui 99 tähemärki. 2
Näiteks programm otsib isand Orumetsa ja ütleb väljastamisel selle nime juurde "sai eksmati." 2. Proovige kombineerida eelmises harjutustunnis vaadeldud tabeliprogrammile (näide 8) faili sisestamise osa. 4. ARVESTUSÜLESANNE. Metsandusfirma palkidearvestus. Eraldi väikese programmiga luua fail, mille igale reale sisestatakse ühe palgi pikkus ning kummagi otsa läbimõõt (oletame, et palk muutub ühtlaselt peenemaks, s.o. on tüvikoonuse kujuga). Peaprogrammi ülesandeks on lugeda sisendfailist palkide andmed ning leidapalkide ruumala. Ruumalad tuleb väljastada teise faili, palkide kogu- ruumala aga väljastada ekraanile. PASCAL, 5. loeng; ALAMPROGRAMMID. Seni vaadeldud programmid olid kõik n.ö. ühes tükis, kogu programm moodustas ühtse terviku. Enamiku reaalsete, suuremate programmeerimisülesannete juures ei ole selline lahendus otstarbekas, mõnel juhul isegi on see võimatu - kogu programm ei mahu tervikuna arvuti mällu
printf("nTekstifaili nimi : ");
scanf("%s", txt_nimi);
infile = fopen(txt_nimi, "r");
if (!infile) /* sama, kui (infile != NULL) */
{
printf("Ei saa avada faili %s!n", txt_nimi);
return 1;
}
printf("ASCII-8 faili nimi : ");
scanf("%s", asc_nimi);
outfile = fopen(asc_nimi, "w");
if (!outfile)
{
printf("Ei saa luua faili %s!n", asc_nimi);
return 1;
}
teine = ' ';
while (!feof(infile)) /* senikui sisendfail ei ole otsas */
{
fscanf(infile,"%c",&esimene);/*võtame sisendfailist uue sümboli*/
if ( esimene == '"') /*kontrollime, ega pole täpitäht? */
{
for( i=0; i
annaabi.ee 
