Едномерни масиви в Паскал и случайна функция в Pascal
Едномерни масиви в Паскал
Var dlina: масив [1..3] на цяло число; започне dlina [1]: = 500; dlina [2]: = 400; dlina [3]: = 150.
Декларирам размера е възможно чрез постоянно:
инициализация масив
В допълнение, на самия масив може да бъде постоянна. т.е. всички елементи на програмата са предварително определени. Описание на такава матрица е както следва:
Var на: масив [1..5] на цяло число; I: цяло число; започне [1]: = 2; на [2]: = 4; на [3]: = 8; на [4]: = 6; с [5] = 3; writeln ( "Array A: '); защото: = 1 до 5 пишат (а [Ь]: 4); край.
За масиви често се използва в Pascal за параметър цикъл, както е известна как много елементи в масива, и контурният брояч може да се използва като индекси елементи.
В този пример, с едномерен масив има важно недостатък: определяне стойности на елементите.
Обработка на масиви в Pascal и масива както и пълнене, обикновено се използват за цикъл.
Случайни функция в Pascal
За последователно не е поискал стойностите на елементите на масив, използвайки генератор на случайни числа в Паскал, който се реализира от Random функция. В действителност, псевдо-случайни числа са получени, но не е точка.
За генериране числата от 0 до п (п не включително самата стойност. Цели числа в интервала [0, N)) се използва произволен запис (п).
Преди да използвате функциите необходимо initsializirovt на случайни числа, използвайки Randomize процедура.
Диапазон Паскал тези най-случайни числа от А до точка Б е равна на:
Пример: пълнене на масив с случайни числа в Pascal:
Var е: масив [1..10] на цяло число; I: цяло число; започнем Randomize; защото: = 1 до 10 се започне е [Ь]: = случаен (10); <интервал [0,9]> напиши (е [а] " '); приключи; край.
За реални числа в интервала [0,1):
Целева Array 1. Трябва да зададете измерение масив 5, попълнете масива с случайни числа в интервала [-1,1] и показване на елементите на екрана, за да се определят три позиции за изхода на всеки елемент
Числата на Фибоначи в Паскал
Най-често срещаният пример за използване на изхода на решетка е число Фибоначи в Pascal. Помислете за това.
Пример: брой на Фибоначи номера: 1 1 2 3 5 8 13 ...
Var I: цяло число; F: масив [0..19] на цяло число; започне е [0]: = 1; е [1]: = 1; защото: = 2-19 се започне е [Ь]: = F [I-1] + F [I-2]; writeln (е [Ь]) край; край.
В този пример става ясно, как се работи с числен серия. Обикновено, за генериране на цифрова последователност е формулата за определяне на всеки член на серия. По този начин, в случай на Фибоначи номера на формула правило се появява като е [Ь]: = F [I-1] + F [I-2]. Поради това е необходимо да се използва в цикъла за образуване на елементи масив.
Целева Array 2. Dan серия от 10 случайни числа: а [1], в [2]. на [10]. Изчислява се количеството и вида тройни заставане следните номера: а [1] + на [2] + на [3]. на [2] + на [3] + на [4]. на [3] + на [4] + на [5]. ....... на [8] + на [9] + на [10]
Целева Array 3. Напишете програма за решаване на проблема с отпечатването на редица числото 2 4 8 16 32 512; за запълване на масив употреба Повторете цикъла
максимум (минимум) елемент масив
Търсене максимален елемент от неговия индекс:
Задача: Намерете най-ниската елемент на масива
Целева Array 4. Предвид масив от 10 число елементи. Намерете броя на отрицателни и отпечатване на броя на екрана
Целева Array 5. Намерете минималния и максималния брой на п вход (масив) и техните индекси
Задача Array 6. Като се има предвид множество размер Н. Списък на всички съдържащи се в този масив четни числа в низходящ ред на индексите им, както и на редица K
Целева Array 7. Ключ в масив от пет елемента намери в него две максимални елементи и техния брой.
Търсене на елемент в масив
Вземем примера на комплексна работа с едномерни:
Пример: Предвид масив от 10 числа. Определете дали има масив от числа, въведени от потребителя. Ако има - изход "намерен" - ако не "намерен"
За да се реши този проблем, ще трябва изявление почивка - от примката.
Решение Вариант 1:
Var е: масив [1..10] на цяло число; флаг: Булева; I, в: цяло число; започнем Randomize; защото: = 1 до 10 се започне е [Ь]: = случаен (10); напиши (е [а] " '); приключи; флаг: = неверни; writeln ( 'Enter пробата'); readln (в); защото: = 1 до 10 се направи, ако е [а] = С, след което започват writeln ( "намерено"); флаг: = вярно; прекъсване; приключи; ако флаг = фалшива тогава writeln ( "не е намерена"); край.
Помислете за ефективно решение:
Предизвикателството: да се намери в елемент на масива е равна на Х или да се установи, че това не е така.
- започнем с първия елемент (I: = 1)
- Ако следващия елемент (A [в]) е пълен списък X. в противен случай отидете на следващия елемент
Търсене на елемент в масив
Целева Array 8. Fill масив от 10 случайни числа в интервала [0..4] и изход номера на всички елементи, равни X.