Programiranje – PASCAL

zadatak sa regionalnog takmičenja:

zadt1      prt1

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.

zadatak 2:

zamjenat2

zadatak 3:

zadt3

zadatak 5:

meta

Najmanji zajednički sadržalac:

slika nzs

Prva vježba

Picture1

Gradivo prvog polugodišta:

Capture

Gradivo drugog polugodišta:

Capture

Matrice

matrice

Rad sa modulima

Potprogrami, funkcije

jedan primjer: korisnik unosi …

Komentariši

Upišite vaše podatke ispod ili kliknite na jednu od ikona da se prijavite:

WordPress.com logo

You are commenting using your WordPress.com account. Odjava / Promijeni )

Twitter slika

You are commenting using your Twitter account. Odjava / Promijeni )

Facebook fotografija

You are commenting using your Facebook account. Odjava / Promijeni )

Google+ photo

You are commenting using your Google+ account. Odjava / Promijeni )

Povezivanje na %s