массивы презентация

виде таблиц;
обосновывать выбор типа элемента массива;
описывать табличные данные;
писать и отлаживать программы, обрабатывающие массивы в среде Turbo Pascal.

количество его элементов?

Можно ли описать на языке Паскаль массив, если неизвестны точные значения элементов массива, но известен их физический смысл и/или диапазон значений?

массива

Индекс

Значение

1

11

9

7

5

9

Real;

Назовите имя массива?

Назовите зарезервированное слово для объявления массива?

Сколько элементов в данном массиве?

of integer;
c: array[1..100] of integer; или более
кратко (компактно):

var
a, b, c: array[1..100] of integer;

i:=1 to n do
writeln(a[i]);

to n do
а[i]:=random(х);

то
a+Random(b-a+1);

ввода данных клавиатурой, и выдать полученный массив на экран дисплея.

program mas01;
uses crt;
var n, i: integer;
a: array[1..100] of integer;
begin
clrscr;
write('Введи n=');
readln(n);
for i:=1 to n do
begin
write('Введи элемент массива 'a[', i, ']=');
readln(a[i]);
end;
for i:=1 to n do write('a[', i, ']=', a[i]);
readln
end.

b[i], Получить третий массив c[i]=a[i] + b[i].

program massiv01;
uses crt;
var
n, i: integer;
a, b, c: array[1..100] of integer;
begin
clrscr;
write('Введи n='); readln(n);
randomize;
for i:=1 to n do
begin
a[i]:=random(125);
b[i]:=random(184);
c[i]:=a[i] + b[i];
writeln('a[', i, ']=', a[i], ' b[', i, ']=', b[i], ' c[', i, ']=', c[i]);
end;
readln
end.

росте каждого ученика. Найти самого высокого и самого низкого из учеников и колебание роста между ними.

Введем следующие обозначения:
n - количество учеников
i - индекс или порядковый номер ученика
a[i] - массив, содержащий данные о росте каждого ученика.
min - ячейка для ответа. Должна содержать рост самого низкого ученика
max - ячейка для ответа. Должна содержать рост самого высокого ученика
r - колебание в росте самого низкого и самого высокого учеников

Вначале первое число из массива ростов учащихся a[1] заносится в ячейки для ответа, то есть в min и max, и таким образом, a[1] принимается за минимальный и максимальный рост учеников. Далее последующие числа из массива ростов сравниваются со значениями min и max, и как только находится меньшее, чем min число, оно немедленно заносится в min вместо находившегося там числа. Аналогично и с максимальным ростом. Как только встречается в массиве ростов число, большее, чем число, находящееся в max, большее число заносится в max вместо прежнего числа. Так происходит до тех пор, пока не будет пересмотрен весь массив ростов учащихся. В результате будет найден минимальный и максимальный рост учеников и соотствтствующее колебание минимального роста по отношению к максимальному.

n, i, min, max, r: integer;
a: array[1..100] of integer;
begin
clrscr;
write('Введи n='); readln(n);
for i:=1 to n do
begin
write('Введите рост ученика='); readln(a[i]); end;
min:=a[1];
max:=a[1];
for i:=2 to n do
begin
if a[i] if a[i]>max then max:=a[i];
end;
writeln('min=', min, ' max=', max);
r:=max - min;
writrln('Колебание роста=', r);
readln
end.

TO N DO
IF A[I] > MAX THEN
Begin
MAX:=A[I]; x:=I;
END;

чисел, лежащих в диапазоне от 1 до 5, после чего на экран выводится сам массив и номера элементов, совпадающих с первым элементом. Протестировать программу на трёх различных тестах.
2. Написать программу, которая вводит массив из N целых чисел и выводит на экран элементы, кратные числу K. Протестировать программу на следующих исходных данных:
а) k=3 Массив: 2 6 -9 4 5 12 -15
б) k=4 Массив: 9 0 8 124 -16 11 19
3. Написать программу, которая вводит массив из N вещественных чисел, а затем заменяет в нём все элементы, превышающие данное число Z, этим числом. Вывести на экран полученный массив и количество замен. Протестировать программу на следующих исходных данных:
а) Z=10 Массив: 1,2 2,6 3 -4,5 11  10,2 3,2 87 -15
б) Z=-2 Массив: 0 -3,1 11 -7,9 -2,1 -1,9 4
4. При поступлении в ВУЗ абитуриенты, получившие «двойку» на первом экзамене, ко второму не допускаются. В массиве A[N] записаны оценки экзаменующихся, полученных на первом экзамене. Подсчитать, сколько человек не допущено ко второму экзамену.
 

–
номер
столбца

M- строк

N столбцов

Матрица имеет размер М*N

строк

Количество столбцов

Количество строк

Количество столбцов

Назовите имя массива?
Назовите зарезервированное слово для объявления массива?
Сколько элементов в данном массиве?

на элемент, стоящий на пересечении m-ой строки и n-го столбца

Например, а [2,3] указывает на элемент во 2-ой строке и 3-ем столбце

VAR A:ARRAY[1..3,1..6] OF REAL;

to m do begin
изменяется номер строки
For j:=1 to n do begin
изменяется номер столбца
Запись массива: а[i , j]

её случайными числами в интервале от 1 до 100.

VAR A: ARRAY[1..4,1..5] OF INTEGER;


RANDOMIZE;
FOR I:=1 TO 4 DO
FOR J:=1 TO 5 DO
A[I,J]:=RANDOM(100);

I:=1 TO 20 DO
begin
x:=x+1;
FOR J:=1 TO 5 DO
A[I,J]:= A[I,J] + x;
End;

VAR A:ARRAY[1..20,1..5] OF REAL;

TO m DO
FOR j:=1 TO n DO
IF A[I,j] > MAX THEN
Begin
MAX:=A[I,j]; x:=i;
END;

недели. Она записывает свои расходы в такую табличку:

Ввести все элементы массива и определить траты хозяйки утром и вечером в течении недели.