[ dalmasica @ 15.09.2007. 14:10 ] @
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!!!
[ Nemanja_666 @ 15.09.2007. 22:28 ] @
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.

[ dalmasica @ 19.09.2007. 21:56 ] @
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!!!

[ dalmasica @ 20.09.2007. 14:46 ] @
Jel tko zna kako ovo točno riješiti, ako zna molila bih da mi napiše, ili izmjeni ovaj iznad!!!!

HVALA!!!
[ bojan21 @ 20.09.2007. 19:36 ] @
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 !