В массиве n элементов.
Случайным образом вводятся целые числа от 0 до 999.
x — ведённое с клавиатуры число.
i — цикловая переменная.
var
a : array [1..100] of integer;
x, i, n : integer;
begin
readln (n);
for i := 1 to n do
a [ i ] := random (1000);
readln (x);
for i := 1 to n do
if a [ i ] := x then
writeln (‘введённое с клавиатуры число находится в массиве’);
end.
Если количество элементов в массиве известно изначально, например 25, тогда строку » readln (n); » убираете, а строки
» for i := 1 to n do «
заменяете на
» for i := 1 to 25 do «
Минус данной программы: если введённое с клавиатуры число не находится в массиве, то программа ничего не выводит.
Источник: znanija.pro
Презентация на тему Программирование на языке Паскаль. Часть II. Массивы
Программа на языке Pascal Использование массива и цикла 9 Класс Часть 1
на экран.
Пример:
Введите пять чисел:
4 15 3 10 14
Результат: 8 30 6 20 28
«4»: Ввести c клавиатуры массив из 5 элементов, найти среднее арифметическое всех элементов массива.
Пример:
Введите пять чисел:
4 15 3 10 14
среднее арифметическое 9.200
Слайд 10Задания
«5»: Ввести c клавиатуры массив из 5
элементов, найти минимальный из них.
Пример:
Введите пять чисел:
4 15 3 10 14
минимальный элемент 3
Слайд 11Практикум: заполнение массива
«3»: 1. Заполните массив A
нулями.
2. Заполните массив A первыми N натуральными
числами, начиная с 1.
3. Заполните массив A первыми N натуральными числами, начиная с X (ввести X с клавиатуры).
«4»: 4. Заполните массив A первыми N натуральными числами, начиная с X (ввести X с клавиатуры).
5. Заполнить массив A первыми N числами Фибоначчи. Первые два числа Фибоначчи равны единице, а каждое последующее число Фибоначчи вычисляется как сумма двух предыдущих.
«5»: 6. Заполните массив степенями числа 2, так чтобы последний элемент массива был равен 1, а каждый предыдущий был в 2 раза больше следующего. Например: 32 16 8 4 2 1
7. Заполните массив целыми числами, так чтобы средний элемент массива был равен X, слева от него элементы стоят по возрастанию, а справа – по убыванию (ввести X с клавиатуры). Соседние элементы отличаются на единицу. Например: 1 2 3 2 1.
программирование на языке pascal. Определение максимального числа в массиве.
Слайд 12Практикум: изменение элементов массива
элементы массива A на 1.
2. Умножить все
элементы массива A на 2.
3. Возвести в квадрат все элементы массива A.
«4»:
4. Увеличить на 4 все элементы в первой половине массива A (считать, что в массиве чётное число элементов).
5. Разделить на 2 все элементы массива A, кроме первого и последнего (считать, что в массиве есть, по крайней мере, два элемента и все элементы чётные).
«5»:
6. Умножить на 3 все элементы во второй половине массива A (считать, что в массиве чётное число элементов).
7. Найти среднее арифметическое всех элементов массива A.
Источник: thepresentation.ru
Задачи по Pascal. Найти наибольший элемент и его номер в массиве, элементы которого вводятся с клавиатуры. Размер произвольный.
Задачи по Pascal
Автор cyber На чтение 3 мин.
Условие задачи: Найти наибольший элемент и его номер в массиве, элементы которого вводятся с клавиатуры. Размер произвольный. (Язык Pascal)
Сложность: легкая.
Решение задачи
Для начала продумаем наше решение. Сначала заполним массив, потом в цикле через условие будем находить позицию и наибольший элемент.
Что такое позиция элемента? Это его индекс. Например, в массиве есть mass есть 2 элемента:
mass[ 1 ] := 32 ;
mass[ 2 ] := 31 ;
Вот эти цифры 1 и 2 и есть индексы, т.е. позиция элементов.
Для того чтобы решить задачу нам понадобятся следующие переменные:
- Переменная mass — для массива
- Переменная max — для наибольшего элемента массива
- Переменная position — для позиции наибольшего элемента
- Переменная n — для количества элементов массива
- Переменная i — для цикла.
Начнем мы с каркаса нашей программы
massiv = array [ 1..100 ] of integer ; // создаём свой тип данных
max, position, n, i : integer ; // объявляем
mass : massiv; // переменные
write ( ‘Введите длину массива : ‘ );readln(n); // просим пользователя ввести длину массива
readln; // чтобы программа не закрывалась
Тут мы создали свой тип данных для массива, как и зачем читайте ( тут ), объявили переменные, попросили пользователя ввести кол-во элементов массива.
Теперь давайте заполним наш массив:
for i:= 1 to n do // пускаем цикл для заполнения массива
write ( ‘Введите ‘ ,i, ‘ элемент : ‘ );readln(mass[i]); // просим пользователя заполнить массив
Для того чтобы найти наибольший элемент массива, делается следующее, для начала задаётся начальное значение наибольшего элемента, это всегда первый элемент ну и позиция первого элемента — один.
max := mass[ 1 ]; // задаём начальный максимальный элемент
position := 1 ; // и позицию максимального элемента
Дальше в цикле мы сравниваем наибольший элемент со всеми остальными и если какое-то больше текущего наибольшего элемента то уже оно становится наибольшим.
Допустим у нас есть массив из трех чисел : 1 4 7.
Начальное значение будет 1, т.е. max = 1, дальше мы сравниваем его со 2-м элементом с четверкой, она больше 1, значит уже она наибольший элемент, т.е. max = 4, и теперь мы переменную max сравниваем в 7, 7 больше 4, и значит max = 7. Вот как то так.
Источник: cyberlesson.ru