Skorašnje poruke

81

Škola / Odg: Pismeni, informatika

Poslednja poruka Microsoft - Decembar 20, 2012, 09:02:57 pre podne

Optimisti.
Radi se na papiru.

82

Škola / Odg: Pismeni, informatika

Poslednja poruka Quickfap the Jebivetar - Decembar 20, 2012, 08:48:43 pre podne

Ignorisite Pericu, postavite sve zadatke.

83

Škola / Odg: Pismeni, informatika

Poslednja poruka Carce - Decembar 20, 2012, 08:46:31 pre podne

Dajte zadatke ja sam bolestan

Probacu odavde da uradim... ali bez kompajlera tao da vi ispravljajte

I jel su Olga, Bujak i Duki na kompovima?

84

Škola / Odg: Pismeni, informatika

Poslednja poruka the Pera - Decembar 20, 2012, 07:49:32 pre podne

Stavite sto vise mozete ovde,moram da uradim nesto da mi ne zakljuci keca.

85

Škola / 6.ZADATAK?

Poslednja poruka Lana :) - Decembar 19, 2012, 09:16:00 posle podne

jel neko uradio 6.zadatak iz slogova :)?

86

Opšte / Novi domen i mejl adrese

Poslednja poruka Microsoft - Decembar 19, 2012, 09:01:21 posle podne

Sajt je dostupan i sa perinageometrija.tk

Ako zelite personalizovanu mejl adresu npr.
[email protected]
okacite zahtev na ovoj temi. Sa te adrese ce se kada vam to omogucimo prosledjivati mejl na vasu privatnu mejl adresu.
Administratore mozete kontaktirati na
[email protected]
[email protected]

Uprava sajta

87

Škola / Pismeni, informatika

Poslednja poruka Microsoft - Decembar 19, 2012, 08:55:25 posle podne

Sumnjam da ce ova tema biti potrebna, ali na Cedin zahtev, evo otvaram.

88

Škola / Odg: Informatika - Zadaci i re...

Poslednja poruka Microsoft - Decembar 19, 2012, 08:52:05 posle podne

Jos jednom da vas zamolim da koristite code tagove oko koda da bi bilo preglednije tj:

Kod Izaberi Expand

stavite [code] ispred i [/code] iza koda :)

89

Škola / SKUPOVI

Poslednja poruka Lana :) - Decembar 19, 2012, 03:55:25 posle podne

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

90

Škola / Odg: Informatika - Zadaci i re...

Poslednja poruka dusan - Decembar 19, 2012, 03:39:43 posle podne

E ajde okacite zadatke iz skupova... ;)