С помощью расчета по формулам.

⇐ ПредыдущаяСтр 2 из 3Следующая ⇒

4.С помощью расчета по формулам.

var
y: array[1..100] of real;
x, n: integer;
begin
Writeln('введите размерность массива');

Readln(n);
For x:=1 to n do
begin
y:=(x*x-3)/(x+2);{формула}
writeln(x,' ',y) ;
end;
end.

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

1. В строку через пробел:

For i:=1 to n do write (a[i], ' ');

Writeln;

2. В столбец

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

Обращение к конкретному элементу массива осуществляется путем указания имени массива и индекса этого элемента в [ ].

Например: Name[15], Temperature[10], Kino[5,6]

Элементы массивов используются в выражениях также как и обычные переменные:

Name[15]:= ‘Иванов‘;

Sum:=Sum+Temperature[10];

Kino[5,6]:=‘Свободно‘;

Действия с элементами массива:

1) Вычисление суммы элементов

S:=0;

For i:=1 to n do

S:=s+a[i];

2) Вычисление произведения элементов

P:=1;

For i:=1 to n do

P:=p*a[i];

3) Подсчет количества элементов, удовлетворяющих какому-либо условию

K:=0;

For i:= 1 to n do

If a[i] mod 2=0 then k:=k+1;

Три этапа работы с массивами:

1. Заполнение массива данными

2. Преобразование массива (действия с элементами массива)

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

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

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

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

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

Задача 1.

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

Program Z1;

Var i: integer;

Sum : real;

M : array [1..5] of Real;

begin

For i:=1 to 5 do

begin

write ('m[',i,']=');

readln(m[i]);

end;

sum:=0;

For i:=1 to 5 do

Sum:=sum+m[i];

Writeln ('Sum=',Sum);

readln;

end.

Задача 2.

Заполнить массив R с размером (1-10) случайными числами и вывести его на экран компьютера.

Program Z2;

Var i: integer;

R: array [1..10] of integer;

begin

Randomize;

For i:=1 to 10 do

begin

ran[i]:=random(100);

writeln(ran[i]);

end;

readln;

end.

⇐ Предыдущая 123 Следующая ⇒