Informatika - Zadaci i resenja

[Carce]

Ovde lepite zadatke i resenja iz informatike!

[Carce]

Kod Izaberi Expand

program Project5;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  datum = record
            dan:1..31; mesec:1..12;
            god:integer;
            end;
  licnost=record
            ime,adresa:string[30];
            datumeRodjenja:datum;
            end;
var
  a,b:licnost;
  xa,xb:integer;
procedure DajLicnost(var x:licnost);
begin
  write('Ime: ');
  readln(x.ime);
  write('Adresa: ');
  readln(x.adresa);
  write('Datum.dan: ');
  readln(x.datumeRodjenja.dan);
  write('Datum.mesec: ');
  readln(x.datumeRodjenja.mesec);
  write('Datum.god: ');
  readln(x.datumeRodjenja.god);
end;
function DateToInt(x:datum):integer;
var t:integer;
begin
  t:=x.dan+100*x.mesec+10000*x.god;
  DateToInt:=t;
end;

begin
  writeln('Prva licnost:');
  DajLicnost(a);
  writeln('Druga licnost:');
  DajLicnost(b);

  if DateToInt(a.datumeRodjenja)>DateToInt(b.datumeRodjenja) then
    Writeln('Druga licnost je stariuja!')
  else Writeln('Prva licnost je stariuja!');

  Writeln(DateToInt(a.datumeRodjenja),' ',DateToInt(b.datumeRodjenja));

  Readln;
end.


[the Pera]

i am d Pera.

[Microsoft]

Moram da dodam thanks dugme da dam peri :)
Radim 5.

[Quickfap the Jebivetar]

7. zadatak

Kod Izaberi Expand

program Project21;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type
tacka = record x,y,z,m: real;
end;
skup = array [1..100] of tacka;
var
s: skup;
n, i: integer;
c: tacka;
begin
readln(n);
for i := 1 to n do
  begin
   readln(s[i].x);
   readln(s[i].y);
   readln(s[i].z);
   readln(s[i].m);
  end;
for i := 1 to n do
  c.m:= c.m + s[i].m;
for i := 1 to n do
  c.x:= c.x + s[i].x * s[i].m;
c.x:= c.x / c.m;
for i := 1 to n do
  c.y:= c.y + s[i].y * s[i].m;
c.y:= c.y / c.m;
for i := 1 to n do
  c.z:= c.z + s[i].z * s[i].m;
c.z:= c.z / c.m;
writeln(c.x:0:2,' ',c.y:0:2,' ',c.z:0:2);
readln
end.

[Marusic]

3. zadatak

Kod Izaberi Expand

program zad3;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  reka=record
    naziv:string[20];
    duzina:integer;
  end;
  var lista:array[1..100] of reka;i,n,max:integer;s:string;
begin
readln(n);
for i := 1 to n do
begin
readln(lista[i].naziv);
readln(lista[i].duzina);
writeln;
end;
max:=lista[1].duzina;
s:=lista[1].naziv;
for i := 2 to n do
  begin
    if lista[i].duzina>max then
      begin
        max:=lista[i].duzina;
        s:=lista[i].naziv;
      end;
  end;
writeln('Najduza reka je ',s);
readln
end.

[Microsoft]

5. zadatak bez sort-a

Kod Izaberi Expand

program zad5;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type  ucenik= record
              ime : string;
              broj_srpski:1..20;
              broj_matematika:1..20;
              end;
var lista:array [1..500] of ucenik;
    n,i:integer;

procedure ispis_polozili();
var j:integer;
begin
j:=1;
while j<=n do
  begin
    if lista[j].broj_srpski>=10 and (lista[j].broj_matematika>=10) then
    begin
    writeln(lista[j].ime,' ',lista[j].broj_srpski,' ',lista[j].broj_matematika);
    j:=j+1;
    end;
  end;
end;
procedure najbolji_matematika();
var j,max:integer;
    ime_max:string;
begin
j:=1;
max:=1;
while j<=n do
  begin
    if lista[j].broj_matematika>=max then
    begin
    ime_max:=lista[j].ime;
    max:=lista[j].broj_matematika;
    end;
    j:=j+1;
  end;
  writeln(ime_max,' sa ',max,' poena');
end;

    begin
  readln(n);
  i:=1;
  while i<=n do
    begin
    readln(lista[i].ime);
    readln(lista[i].broj_srpski);
    readln(lista[i].broj_matematika);
    i:=i+1;
    end;
    writeln('Polozili su sledeci ucenici:');
    ispis_polozili();
    writeln('Test iz matematike je najbolje uradio ucenik:');
    najbolji_matematika();

  readln;

end.

[babicuni]

1. zadatak

Kod Izaberi Expand


type
slog=record
    prezime,adresa:string[30];
    tel:string[15]
end;
niz=array[1..100] of slog;
procedure razmeni(var a,b:slog);
var
t:slog;
begin
t:=a;
a:=b;
b:=t;
end;
procedure sort(n:integer; var x:niz);
var i,j:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if x[i].prezime>x[j].prezime then razmeni(x[i],x[j]);
end;
var
x:niz;
i,j,n:integer;
begin
writeln('Unesite koliko ima osoba');
readln(n);
for i:=1 to n do
begin
writeln('Unesite prezime ',i,' osobe');
readln(x[i].prezime);
writeln('Unesite adresu ',i,' osobe');
readln(x[i].adresa);
writeln('Unesite telefon ',i,' osobe');
readln(x[i].tel);
end;
sort(n,x);
for j:=1 to n do
begin
write(x[j].prezime);
write('    ',x[j].adresa);
write('    ',x[j].tel);
writeln;
end;
readln
end.


[Quickfap the Jebivetar]

Ljudi, pa kakav je to hate prema parnim brojevima? Fale nam 6. 4. i 2.

[Carce]

Ljudi, pa kakav je to hate prema parnim brojevima? Fale nam 6. 4. i 2.

Pitaj ljude da rade.. i radi ti jos jedan...

[babicuni]

4. zadatak

Kod Izaberi Expand

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  ucenik = record
            prezime:string;
            pol:(m,z);
            kurs:1..5;
           end;
    niz=array[1..100] of ucenik;
    niz1=array[1..10] of integer;
  procedure cit(var x:ucenik);
  var tvt:char;
   begin
    write('Unesi prezime osobe: ');
     readln(x.prezime);
     write('Unesi m za musko z za zensko: ');
          readln(tvt);
    case tvt of
      'm':x.pol:=m;
      'z':x.pol:=z;
    end;
    write('Unesi broj kursa: ');
    readln(x.kurs);
   end;
  var
a:niz;
n,s,i,max:integer;
p:niz1;
begin
  write('Unesi broj osoba: ');
  readln(n);
  p[1]:=0;
  p[2]:=0;
  p[3]:=0;
  p[4]:=0;
  p[5]:=0;
  for i := 1 to n do
   begin
  cit(a[i]);
  if a[i].pol = m then
  case a[i].kurs of
   1:p[1]:=p[1]+1;
   2:p[2]:=p[2]+1;
   3:p[3]:=p[3]+1;
   4:p[4]:=p[4]+1;
   5:p[5]:=p[5]+1;
  end;
    end;
max:=p[1];
s:=1;
for i := 2 to 5 do
   if p[i]> max then begin
                     max:=p[i];
                     s:=i;
                     end;
writeln('Kurs sa najvise muskih ucenika je: ',s);
readln
end.

[Microsoft]

1000 random brojeva od -10000 do + 10000:

Kod Izaberi Expand


program randomxybrojeva;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
    f:text;
    i:integer;
    g:integer;
    s:string;
begin
writeln('Napisite ime fajla:');
read(s);
assign(f,s+'.txt');
rewrite(f);
Randomize();
i:=1;
while i<=1000 do
begin
g:=random(20000) - 10000;
writeln(f,g);
i:=i+1;
end;
writeln('Ispisao!!!');
readln;
readln;
end.


[Microsoft]

Korisni linkovi za skupove, slogove i fajlove:
http://www.cet.rs/CETcitaliste/CitalisteTekstovi/566.pdf
rti.etf.bg.ac.rs/rti/ir1p1/materijali/vezbe/P1_7_8_Pascal_uvod_kontrolne_strukture.pdf
http://www.scribd.com/mobile/doc/17375446

[dusan]

E ajde okacite zadatke iz skupova... ;)

[Lana :)]

evo ti dusane sad sva tri samo sto nisam radila onaj glupi slucaj kada iza teksta nema razmaka kod reci znas kao i u striingovima onaj zadatak, primetices :):

1.

Kod Izaberi Expand


program Project1skup1;

{$APPTYPE CONSOLE}
{1. Unose se prirodni brojevi dok se ne unese 0. Stampati ih u neopadajucem poretku.}
uses
  SysUtils;

type
  a=set of 0..100;
var
  n,x,i,y:integer;
  b:a;
begin
writeln ('Unesi  brojeve');

    b:=[];
    n:=300;

  while n <>0 do

     begin
    readln (y);
    n:=y;
    b:=b+[n];
     end;

    for i := 0 to 100 do
      begin

    if i in b then   write (i,' ');

    end;

      readln
end.



2.

Kod Izaberi Expand


program Project1skup2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

{2. U datom stringu odstampati rec sa najvise samoglasnika.}
type
skup=set of 'a'..'z';
niz= array[1..100] of string;
var
a:skup;
s,max1,s1:string;
poc,i,x,j,z,br,max:integer;
n:niz;
begin
  a:=['a','e','i','o','u'];

  readln (s);
     poc:=1;
     x:=0;
  for i := 1 to length (s) do

    begin

   if s(i) = '  '  then
      begin
         x:=x+1;
         n (x):= copy (s,poc,i-poc) ;
          poc:=i+1;
       end;
    end;



    max:=0;
    br:=0;

    for j:= 1 to x do
    begin
    s1:=n[j];
            for z := 1 to length (s1) do
          begin
            if s1[z] in a then begin br:=br+1;
                                if br>max then begin max:=br;  max1:=s1;
                                               end;
                                  end;

           end;

           br:=0;
    end;
    writeln (max1);
    readln;

end.


3.

Kod Izaberi Expand


program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  {3. N ucenika ima neke od 10 hobija (unos zavrsiti 0).
  NP koji proverava da li postoji hobi kojim se niko ne bavi
   i da li postoji hobi kojim se svi bave.
}

type
skup=set of 1..10;
niz=array[1..1000] of skup;
var
u:niz;

n,i,z,y,h,j,a,v:integer;
begin
writeln ('Unesi broj ucenika');
readln (n);

for i  := 1 to n do
begin
  u(i):=[];
  writeln ('Koliko hobija ima ', i,'. ucenik(hobiji 1-10)');
  readln (y);
   for z := 1 to y do

     begin
       writeln ('Unesi ',z,'. hobi ',i,'. ucenika');
       readln (h);

       u(i):= u(i)+[h] ;
     end;
end;

for j := 1 to 10 do
begin
  a:=0;
    for v := 1 to n do
      begin
        if not (j in u[v]) then
                                 a:= a+1;

      end;    if a=n then writeln ('Postoji hobi kojim se niko ne bavi-',j);
if a=0 then writeln ('Postoji hobi kojim se svi bave-',j);
end;

readln
end.

NE znam da li moze lakse ali ovo radi :P