Презентация, доклад по информатике на тему Одномерный массив

и типом.

а(5)

Индекс – это номер элемента массива

a[i]

A: array [n..k]of тип;

A – имя массива;
n – начальное значение переменной;
к – конечное значение переменной;
тип – тип элементов массива.

с элементами массива)

3. Вывод массива или отдельных данных
на экран

Способы ввода данных в массив:

С клавиатуры;

С помощью генератора случайных чисел;

С помощью вычисления элементов.

do
begin
readln(A[i]);
end;

Ввод массива с помощью генератора случайных чисел

Randomize;
for i:=n to k do
begin
A[i]:=random(100);
writeln(A[i]);
end;

1

2

A[i]:=sin(i)*sqr(i);
writeln(A[i]:8:3);
end;

Вывод массива

for i:=n to k do
begin
writeln(A[i]);
end;

i – индекс элемента массива

3

Способы ввода данных в массив:

S:=S+A[i];
end;

Произведение элементов массива

Произведение элементов массива

P:=1;
for i:=n to k do
begin
P:=P*A[i];
end;

begin С[i]=A[i]+B[i];
end;

A(5)

B(5)

C(5)

С[1]=A[1]+B[1]

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

array [1..5] of Real;
Begin
For i:=1 to 5 do
begin
write ('m[',i,']=');
readln(m[i]);
end;
writeln('Введённый массив');
for i:=1 to 5 do
write (m[i],’ ’);
sum:=0;
For i:=1 to 5 do
Sum:=sum+m[i];
Writeln ('Sum=',sum:6:2);
readln;
end.

Описание массива

Ввод элементов массива

Вывод элементов массива

Нахождение суммы

данные должны вводиться во время работы программы.
Рекомендуемый вид экрана при работе программы:
Введите температуру воздуха за неделю.
1 день= 2
2 день= 0
3 день= -3
4 день= 1
5 день= 3
6 день= -2
7 день= 0
Средняя температура: 0.00 град.

Задание для практической работы:

of integer;
c: string;
begin
Clrscr; Randomize;
Write ('Zadayte chislo X ');
readln (x);
c:='v massive net chisla x';
For i:=1 to 20 do
begin
a[i]:=random(10);
writeln(A[i]);
if a[i]=x then c:='v massive est chislo x';
end;
writeln (c);
readln; end.

Задача 3.
Определить, содержит ли массив A[1..20] случайных чисел число Х, введенное с клавиатуры.

[1..10] of real;
begin
Clrscr;
For i:=1 to 10 do
begin
a[i]:=sin(i)*sqr(i);
writeln(A[i]:8:3);
end;
max:=A[1];
For i:=2 to 10 do
if a[i]> max then max:=a[i];
writeln;
writeln ('max=', max:8:3);
readln; end.

Задача 4.
Заполнить массив значениями, вычисляемыми по формуле:
a[i]:=sin i *i2
Вывести элементы этого массива на экран компьютера и найти максимальное значение среди них.

2007г.