среда, 30 ноября 2011 г.

Масиви

1) Читаємо що таке масив

http://uk.wikipedia.org/wiki/%D0%9C%D0%B0%D1%81%D0%B8%D0%B2_%28%D1%81%D1%82%D1%80%D1%83%D0%BA%D1%82%D1%83%D1%80%D0%B0_%D0%B4%D0%B0%D0%BD%D0%B8%D1%85%29


Опис
Var a:array[1..100] of integer;
i, n:integer;//індекс, кількість елементів


Введення
readln(n);
for i:=1 to n do read(a[i]);

Виведення
for i:=1 to n do write(a[i],' ');


Сумування
s=0;
for i:=1 to n do s:=s+a[i];


Пошук
readln(k);
for i:=1 to n do if  a[i]=k then writeln(i);




Пример решения задачи с использованием массивов Паскаля

Задача: даны два n -мерных вектора. Найти сумму этих векторов.
Решение задачи:
  • Входными данными в этой задаче будут являться два одномерных массива. Размер этих массивов может быть произвольным, но определенным. Т.е. мы можем описать заведомо большой массив, а в программе определить, сколько элементов реально будет использоваться. Элементы этих массивов могут быть целочисленными. Тогда описание будет выглядеть следующим образом:
    var a , b : array [1..100] of integer ;
  • Выходными данными будут элементы результирующего массива, назовем его c . Тип результирующего массива также должен быть целочисленным.
  • Кроме трех массивов нам потребуется переменная – параметр цикла и индекс массива, назовем ее i , а также переменная n для определения количества элементов в каждом массиве.
Ход решения задачи:
  • определим количество элементов (размерность) массивов, введем значение n ;
  • введем массив a ;
  • введем массив b ;
  • в цикле, перебирая значения индекса i от 1 до n , вычислим последовательно значения элементов массива c по формуле:
    c [ i ]= a [ i ]+ b [ i ];
  • выведем на экран полученный массив.
Текст программы :
Пример программы суммирования векторов
Program summa;
Var
   a, b, c: array [1..100] of integer;
   I, n: byte;
Begin
   Write (‘введите размерность массивов:’);
   Readln(n);
   For i:=1 to n do
      Readln (a[i]); { ввод массива a}
   For i:=1 to n do
      Readln (b[i]); { ввод массива b}
   For i:=1 to n do
      C[i]:=a[i]+b[i]; { вычисление суммы массивов }
   For i:=1 to n do
      write (c[i],’ ‘); { вывод массива с }
end.


Комментариев нет:

Отправить комментарий