www.techinf1.fora.pl

tehran

program zapelnianie;
uses crt;
var
x:array[1..10] of integer;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
x[i]:=5;
end;
for i:=1 to 10 do
writeln(x[i]);
readln;
end.

isar

nie wszyscy tutaj beda wiedziec o co chodzi, wrzucaj komentarze

program zapelnianie;
uses crt;
var
x:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do {petla, ktora sluzy do sterowania tablica}
begin
x[i]:=5;{tablica sterowania zmienna i, (wiecej pisze pod programem;)}
end;
readln; {czyli musimy wciskac enter zeby program przeszedl}
{dalej.}
end.

*************************************************************

for i:=1 to 10 do
x[i]:=5;

a wiec tak, w petli uzywamy zmiennej I, ktora co obieg petli zwieksza sie o 1.
do sterowania tablica tez uzywamy tej samej zmiennej. a wiec przy pierwsyzm obiegu petli bedziemy przypisywac do pierwszej pozycji w tablicy, a po nastepnym obiegu juz do drugiej pozycji.

*************************************************************
zastosowany USES CRT; jest tutaj uzyty do obslugi ekranu, np dodawanie koloru teksu, koloru tła, czyszczenie ekranu. opis dodawania kolorow jest w dziale z rzeczami ponad programowymi.