Turbo Pascal - niz

Turbo Pascal - niz 09.09.2006. u 12:51 · pre 245 meseci #1

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

Potpis

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

Re: Turbo Pascal - niz 09.09.2006. u 13:08 · pre 245 meseci #2

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

Potpis

Play Store

Re: Turbo Pascal - niz 09.09.2006. u 14:33 · pre 245 meseci #3

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.

Potpis

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

Re: Turbo Pascal - niz 09.09.2006. u 17:33 · pre 245 meseci #4

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

Potpis

ex Strog

http://www.zeussoftware.rs

Re: Turbo Pascal - niz 10.09.2006. u 02:59 · pre 245 meseci #5

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

Potpis

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

Re: Turbo Pascal - niz 10.09.2006. u 13:25 · pre 245 meseci #6

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.

Potpis

Play Store

Re: Turbo Pascal - niz 10.09.2006. u 13:33 · pre 245 meseci #7

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

.

Potpis

ex Strog

http://www.zeussoftware.rs

Re: Turbo Pascal - niz 10.09.2006. u 15:59 · pre 245 meseci #8

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?

Potpis

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

Forum kao aplikacija na telefonu

Srodne teme