BORLAND PASCAL

[Слим]

Хмммм... помогите мне разобратся с масивом array, никак не могу понять для чего он предназначен и как им пользоватся! ПРОЩУ ПРОСВЯТИТЕ!

[Atyla]

Представь, что тебе в программе нужно использовать много переменных и чем объявлять их в большом количестве:

Код: Выделить всё

Var
              A1,A2,A3,A4,A5.... AN: Integer; 

Легче будет использовать массивы.
Представляй себе массивы как набор переменных. Скажем тебе нужно в программе использовать 100 переменных, то их будет легче объявить как массив:

Код: Выделить всё

Var
            A: Array [1..100] Of Integer; 

Ты можешь обращаться к каждому эллементу/переменной массива следующим образом:

Код: Выделить всё

 A[1]:=0;
          A[2]:=3;
          A[4]:=4;
          A[5]:=A[2]+A[4]; 

Легче всего работать с массивами, используя цикл:

Код: Выделить всё

   Var A:Array [1..100] Of Integer;
         I:Byte

   Begin
    For I:=1 To 100 Do A[I]:=I;
   End.

Теперь пример простой программы. Предположим тебе нужно найти сумму цифр от 1 до 100:

Код: Выделить всё

 Var I:Byte;
      Sum:Integer;
      A:Arrya [1..100] Of Integer;

 Begin
  Sum:=0;
  For I:=1 To 100 Do A[I]:=I; {Назначаем значения эллементам массива}
  For I:=1 To 100 Do Sum:=Sum+A[I]; {Складываем цифры от 1 до 100}
  WriteLn('Сумма от 1 до 100=',Sum); {Выводим на экран}
  ReadLn;
 End.

Если будут вопросы, спрашивай.

[Слим]

О!! Это наподобие type да?

а если вот будет

type Zi=(L, Ma, Mi, J, V, S, D);
Venit=array[Zi] of real;
var v : venit;

это из молдавского учебника! тута ZI дни недели Venit это доход! Ну так как тут узнать сколько чел. заработал за неделю?

[Atyla]

Код: Выделить всё

 Type Zi=(L, Ma, Mi, J, V, S, D);
         Venit=Array [Zi] Of Real;

 Var V:Venit;
       I:Zi;
       Sum:Real;

 Begin
  Sum:=0;
  For I:=L To D Do Sum:=Sum+V[I];
  WriteLn('Sum: ',Sum:6:4);
  ReadLn;
 End.

В пример я не включал часть ввода эллементов массива.

ЗЫ: Пример чересчур вымученный и для человека начинащего только изучать массивы будет чересчур запутан, т.к. включает в себя также особенности и использование порядковых типов.

[Слим]

гы! спасибо я понял наконец-то!

а на http://pascal.sources.ru мне только ссылок понадавали! теперь тут общатЦа бум!