Основни операции с Pascal масиви
Попълване на едномерен масив със стойности
Попълването и показването на масивможе да се извършва само елемент по елемент, т.е. първо можете да присвоите стойност на първия елемент, след това на втория и т.н., същото е и с показването на екрана - показваме първия, втория, третия и така до последния.
Pascal няма средства за вход-изход на елементи на масива наведнъж, следователно въвеждането и стойностите се извършват елемент по елемент. Стойностите могат да бъдат присвоени на елемент от масив с помощта на оператора за присвояване или въведени от клавиатурата с помощта на инструкциите Read или Readln. Много е удобно да обхождате всички елементи на масива в for цикъл.
Начини за попълване на едномерни масиви:
1. Въвеждане на стойност от клавиатурата.
2. Задаване на стойности в оператора за присвояване с помощта на генератор на произволни числа. Този метод е по-удобен, когато има много елементи в масива (отнема много време, за да въведете техните стойности от клавиатурата).
3. Задаване на стойности по формула.
4. Въвеждане на елементи на масив от файл
1. Въвеждане на стойности на елементите на масива от клавиатурата. Поради факта, че е използван операторът Readln, всяка стойност ще бъде въведена на нов ред.
| Процедура Init1(var m : myarray); Vari : Цяло число;Започнете да записвате ('type',n,'numbers'); For i:=1 To n Do Readln(m[i]); Край; |
2.Попълване на масивас произволно генерирани числа от интервала [a; b]. Свързваме генератора на случайни числа - случайната функция.
| Процедура Init2(a,b:integer; Var m : myarray); < Процедурата за попълване на масив със случайни числа от интервала [a,b] и показването му на екрана. a, b: граници на интервали; m : масив. >Var i : Цяло число; Стартирайте рандомизирането; For i:=1 To n Do begin m[i]:= a+random(b-a+1); write(m[i],' ') край; writeln; край; |
3.Попълване на масивапо формулата. На всеки елемент от масива се присвоява стойността, изчислена по формулата. Ако всеки елемент от масива е равен на три пъти стойността на неговия пореден номер (индекс), тогава процедурата ще изглежда така:
| Процедура Init3(var m : myarray); Vari : Цяло число;Започнете за i:=1 до n Направете a[i]:= i*3; Край; |
4. Четене на числа от файл. Предварително трябва да създадете текстов файл, в който да запишете няколко реда, всеки от които съдържа 30 числа.
| Процедура Init4(var m : myarray); Vari : Цяло число;Започнете да записвате ('type',n,'numbers'); For i:=1 To n Do Readln(f, m[i]); Край; |
Показване на стойности на елемент от масив
Извежданетона стойностите на елементите намасивна екрана се извършва, като въвеждане, елемент по елемент в цикъл. За изход ще използваме инструкциите Write или Writeln. Като входни параметри ще предадем на процедурата не само масив, но и броя на елементите, които трябва да се изведат, започвайки от първия (това ще ни трябва, когато премахваме и добавяме елементи в масива).
| Процедура за печат (n: цяло число; m: myarray); Vari : Цяло число; Започнете за i:=1 до n Направете Write(m[i]:3); Writeln; край; |
Основни действия с Pascal масиви
Както знаете, дефинирането на тип данни означава ограничаване на диапазона от допустими стойности, вътрешното представяне в компютъра, както и набора от допустими операции с данни от този тип. Дефинирахме типа данни като масив на Pascal. Какви операции са дефинирани върху този тип данни? Единственото действие, което може да се извърши върху цели масиви и само ако масивите са от един и същи тип, е присвояването. Ако една програма декларира две променливи от една и същатип, например Var a, b: масив [1..10] от real; тогава можете да присвоите стойност на променлива b ( a := b ). В този случай на всеки елемент от масива a ще бъде присвоена съответната стойност от масива b. Всички други операции върху масиви на Pascal се извършват елемент по елемент (това е важно!). Въвеждане на масив Pascal
За да въведете стойностите на елементите на масива, е необходимо последователно да промените стойността на индекса, като започнете от първия до последния, и въведете съответния елемент. За изпълнение на тези действия е удобно да използвате цикъл с определен брой повторения, т.е. прост аритметичен цикъл, където параметърът на цикъла ще бъде променлива - индексът на масива Pascal. Стойностите на елемента могат да се въвеждат от клавиатурата или да се дефинират с помощта на оператор за присвояване.
Примерен програмен фрагмент за въвеждане на масив Pascal
Var A : масив [1..10] от цяло число;
Begin For i:=1 to 10 do Readln(a[i]);
Помислете сега за случая, когато масивът на Pascal се запълва автоматично с произволни числа, за това ще използваме функцията random ( N ).
Пример за програмен фрагмент за попълване на паскал масив със случайни числа
Var A: масив [1..10] от цяло число;
Започнете за i :=1 до 10 направете A [ i ]:= random(10);