[es] - Turbo Pascal

Mydoom.f

Član broj: 49237
Poruke: 42
*.smin.sezampro.yu.

Profil

^{09.09.2006. u 11:51 - pre 214 meseci}

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

"My Guitars are my umbilical cord. They're directly wired into my head"-Kirk Hammett

Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil

Re: Turbo Pascal - niz

^{09.09.2006. u 12:08 - pre 214 meseci}

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 :)

Play Store

Odgovor na temu

Mydoom.f

Član broj: 49237
Poruke: 42
*.smin.sezampro.yu.

Profil

Re: Turbo Pascal - niz

^{09.09.2006. u 13:33 - pre 214 meseci}

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.

"My Guitars are my umbilical cord. They're directly wired into my head"-Kirk Hammett

Odgovor na temu

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
80.93.229.*

ICQ: 346697685
Sajt: www.zeussoftware.rs

Profil

Re: Turbo Pascal - niz

^{09.09.2006. u 16:33 - pre 214 meseci}

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

ex Strog

http://www.zeussoftware.rs

Odgovor na temu

Mydoom.f

Član broj: 49237
Poruke: 42
*.smin.sezampro.yu.

Profil

Re: Turbo Pascal - niz

^{10.09.2006. u 01:59 - pre 214 meseci}

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

"My Guitars are my umbilical cord. They're directly wired into my head"-Kirk Hammett

Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil

Re: Turbo Pascal - niz

^{10.09.2006. u 12:25 - pre 214 meseci}

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.

Play Store

Odgovor na temu

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
*.metrohive.net.

ICQ: 346697685
Sajt: www.zeussoftware.rs

Profil

Re: Turbo Pascal - niz

^{10.09.2006. u 12:33 - pre 214 meseci}

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

ex Strog

http://www.zeussoftware.rs

Odgovor na temu

Mydoom.f

Član broj: 49237
Poruke: 42
*.smin.sezampro.yu.

Profil

Re: Turbo Pascal - niz

^{10.09.2006. u 14:59 - pre 214 meseci}

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]}

"My Guitars are my umbilical cord. They're directly wired into my head"-Kirk Hammett

Odgovor na temu