Niz u pascal-u??

Niz u pascal-u?? 15.09.2007. u 15:10 · pre 232 meseca #1

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!!!

Potpis

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

Re: Niz u pascal-u?? 15.09.2007. u 23:28 · pre 232 meseca #2

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.

Re: Niz u pascal-u?? 19.09.2007. u 22:56 · pre 232 meseca #3

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!!!

Potpis

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

Re: Niz u pascal-u?? 20.09.2007. u 15:46 · pre 232 meseca #4

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

HVALA!!!

Potpis

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

Re: Niz u pascal-u?? 20.09.2007. u 20:36 · pre 232 meseca #5

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

!

Forum kao aplikacija na telefonu

Srodne teme