[es] - Niz u pascal-u??

dalmasica
Slučajna prolaznica
Croatia

Član broj: 107777
Poruke: 35
*.cmu.carnet.hr.

Profil

^{15.09.2007. u 14:10 - pre 202 meseci}

Upisati 10 cijelih brojeva, svaki cijeli broj x će postati x modulo od 42.
Odredite koliko je različitih ostataka?

Jel tko zna, da mi napiše dio programa koji će izračunati koliko je različitih brojeva, može mi i općenito napisati, bez obzira na program?!

HVALA!!!

Blago onome ko zna da ne zna, a hoće da zna

Odgovor na temu

Nemanja_666
Nemanja Tatic
Gradiska

Član broj: 116292
Poruke: 221
217.23.204.*

+19 Profil

Re: Niz u pascal-u??

^{15.09.2007. u 22:28 - pre 202 meseci}

Code:

program neko_ime;
var
  Niz : array[1..10] of integer;
  Count : integer;
  Find : boolean;
  Buff, i, j : integer;

begin
  for i := 1 to 10 do
    begin
      Readln(Buff);
      Buff := Buff mod 42;
      Niz[i] := Buff;
    end;
  Count := 0;
  for i := 1 to 10 do
    begin
      Find := false;
      for j := 1 to i - 1 do
        if Niz[i] = Niz[j] then
          begin
            Find := true;
            Break;
          end;
        if not Find then Count := Count + 1;
    end;
  Writeln(Count);
end.

Nisam kompajlirao ali bi trebalo raditi.

Odgovor na temu

dalmasica
Slučajna prolaznica
Croatia

Član broj: 107777
Poruke: 35
*.cmu.carnet.hr.

Profil

Re: Niz u pascal-u??

^{19.09.2007. u 21:56 - pre 202 meseci}

Evo ja napisah ovaj program u Pascal-u (što je Nemanja napisao), al mi NE RADI, možeš li
pogledati gdje si pogriješio (uvijek mi ga prekine), bila bih ti puno zahvalna!!!

Blago onome ko zna da ne zna, a hoće da zna

Odgovor na temu

dalmasica
Slučajna prolaznica
Croatia

Član broj: 107777
Poruke: 35
*.cmu.carnet.hr.

Profil

Re: Niz u pascal-u??

^{20.09.2007. u 14:46 - pre 202 meseci}

Jel tko zna kako ovo točno riješiti, ako zna molila bih da mi napiše, ili izmjeni ovaj iznad!!!!

HVALA!!!

Blago onome ko zna da ne zna, a hoće da zna

Odgovor na temu

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
*.cpe.vektor.net.

+6 Profil

Re: Niz u pascal-u??

^{20.09.2007. u 19:36 - pre 202 meseci}

Ovo sto je Nemanja napisao je dobro samo sto nema "ReadLn" na kraju pa se program "prekine"! Evo njegovog koda sa tim "dodatkom":

Code:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  Niz : array[1..10] of integer;
  Count : integer;
  Find : boolean;
  Buff, i, j : integer;

begin
  for i := 1 to 10 do
    begin
      Readln(Buff);
      Buff := Buff mod 42;
      Niz[i] := Buff;
    end;
  Count := 0;
  for i := 1 to 10 do
    begin
      Find := false;
      for j := 1 to i - 1 do
        if Niz[i] = Niz[j] then
          begin
            Find := true;
            Break;
          end;
        if not Find then Count := Count + 1;
    end;

  //ovo sam izmenio samo da bi bilo preglednije
  Writeln('Broj razlicitih ostataka je: ' + IntToStr(Count));

  //program se ne prekida dok jos jednom ne pritisnes Enter ili nesto drugo
  readLn;
end.

Trebalo bi da radi, ako ne videcemo sta nije u redu

Odgovor na temu