Upotreba datoteka
Zadatak 1: U kreiranu datoteku: d (‘dslog.txt’) unesite podatke za n učenika ( ime, izostanci i uspjeh )
Zadatak 2: Prikazati sadržaj datoteke: dslog.txt
Zadatak 3: Pozvati datoteku: dslog.txt, sdrtirati podatke po uspjehu i nove sortirane podatke unjeti u datoteku
Potprogrami – Funkcije
pored unapred definisanih standardnih funkcija, programer može kreirati i svoje funkcije. Odlika funkcije je da daje samo jednu izlaznu vrednost, koja se pridružuje imenu funkcije.
npr. napisati funkciju koja vraca sumu parnih brojeva od k do n:
funkcija se može napisati i bez argumenata:
zadatak sa regionalnog takmičenja:
program novi_niz;
type nizn=array[1..50] of integer;
nizp=array[1..50] of real;
var
a,bn:nizn;
bp:nizp;
i,j,n:integer;
suma:real;
begin
write(‘n=’); read(n);
suma:=0;
writeln(‘unesite ‘,n,’ elemenata niza:’);
for i:=1 to n do
begin
read(a[i]); suma:=suma+a[i];
end;
i:=1;
{kreiranje neparnih elemenata niza}
for j:=1 to n*2 do
if j mod 2<>0 then
begin bn[j]:=a[i] ; i:=i+1; end;
{kreiranje parnih elemenata niza}
j:=2; bp[j]:=suma/n;
for j:=3 to 2*n do
if j mod 2 = 0 then begin
bp[j]:=bp[j-2]+1; write(bp[j]:7:2); end;
writeln;writeln;
{prikazivanje elemenata novog niza}
for i:=1 to n*2 do
if i mod 2 <>0 then
write(bn[i]:5)
else
write(bp[i]:7:2);
readln;readln end.
Najmanji zajednički sadržalac:
dragana 