Turbo Pascal

[ Mydoom.f @ 09.09.2006. 11:51 ] @

Interesuje me kako da ispisem sve brojeve do 100 koji se zavrsavaju sa 6. Znam da uradim sa for petljom, ali sad treba da koristim niz (da ucitam brojeve iz niza)!

[ Srki_82 @ 09.09.2006. 12:08 ] @

Nizu, uglavnom, pristupas kroz for petlju kada zelis da ga inicijalizujes ili celog istampas.

U sustini, treba da definises niz brojeva (integer) u koji ce stati svi brojevi do 100 koji se zavrsavaju sa 6... posto znas da ih ima tacno deset (6, 16, 26, 36, 46, 56, 66, 76, 86, 96) mozes napraviti niz za smestanje 10 brojeva:

Code:
var
Niz: attay[0..9] of Integer;

Taj niz zatim treba ispuniti podacima... kod koji bi ga ispunio brojevima koji ti trebaju bi izgledao otprilike ovako:

Code:
var
  I: Integer;
begin
  for I := 0 to 9 do
    Niz[I] := I * 10 + 6;
end;

Kada imas niz, ispisivanje je lako:

Code:
var
  I: Integer;
begin
  for I := 0 to 9 do
    WriteLn(Niz[I]);
end;

Ne vidim razlog zbog cega bi koristio niz za ispisivanje ovih brojeva jer moras dva puta da protrcis kroz petlju (jednom da popunis niz, drugi put da ga procitas), ali ako vec to hoces to je tvoja stvar :)

[ Mydoom.f @ 09.09.2006. 13:33 ] @

Mislio sam da niz bude od 1 do 100 pa da odatle on izbaci brojeve koji se zavrsavaju sa 6!
Uradio sam ja prog ovako

Code:

program primer1;
uses crt;
var
x:integer;
begin
     clrscr;
     for x:=1 to 100 do
     if x mod 10 = 6 then
     writeln(x);
     readkey
end.

sad hocu samo da probam sa nizom onako, iz zezanja.

[ Bojan Kopanja @ 09.09.2006. 16:33 ] @

Pa isto kao i sa tim petljom

... Samo prvo u jednoj petlji ubacis u niz brojeve od 1 do 100 kako ti je Srki rekao pa onda u ovoj petlji koju si sam napisao samo zamenis ono x mod 6 sa Niz[x] mod 6 i to ti je to...

[ Mydoom.f @ 10.09.2006. 01:59 ] @

E, hajde molim te postuj kod! Skroz sam se pogubio!

[ Srki_82 @ 10.09.2006. 12:25 ] @

Code:
program primer1;
uses crt;

var
  X: Integer;
  Niz: array[1..100] of Integer;
begin
  ClrScr;
  for X := 1 to 100 do
    Niz[X] := X;
  for X := 1 to 100 do
    if Niz[X] mod 10 = 6 then
      WriteLn(X);
  ReadKey;
end.

[ Bojan Kopanja @ 10.09.2006. 12:33 ] @

Srki, samo si na praju napravio mali previd

... Hoce covek da koristi nizove, tako da na kraju umesto Writeln(X) ide Writeln(Niz[X])...

To je to

[ Mydoom.f @ 10.09.2006. 14:59 ] @

E hvala vam!
Jel ima neko od vas neki tutorial sa nizovima?
Imam jos jedan problem, sa function! Da li da postavim novu temu ili ovde da izlozim problem?

_{[Ovu poruku je menjao Mydoom.f dana 10.09.2006. u 17:03 GMT+1]}

Turbo Pascal - niz

Turbo Pascal - niz