Var Tem:Array[1..100] of Real;
Имя массива
Количество элементов
Тип элементов
Количество элементов можно описать в разделе констант
Иногда массив объявляют как пользовательский тип данных
Например:
Случайное число из интервала [-5 ; 8).
А = - 5, В = 8,
подставим в формулу
m[i] :=RANDOM(B-A)+A;
m[i] :=RANDOM(8-(-5))+(-5);
такую запись нужно упростить
m[i] :=RANDOM(13)-5;
For i:=1 to N do begin
a[i]:=Random(B-A)+A;
WriteLn(a[i]:10:5);
End;
a[1]:=3;
Writeln(a[1]);
For i:=2 to N do begin
a[i]:=a[i-1] + 2;
Writeln(a[i]:5);
End;
Каждый элемент массива должен быть рассчитан по формуле
(например, аi = sin i – cos i).
FOR i=1 to 10 do
a[i]:=sin(i)-cos(i);
For i:=1 to N do If (условие) then a[i]:=значение:
Условия:
a [ i ] > 0 – положительный элемент массива
a [ i ] Mod 2 = 0 – четный элемент массива
a [ i ] = int(a [ i ]) – целый элемент массива
a [ i ] = i – элемент массива равен своему порядковому номеру
i Mod 2 = 0 – четные порядковые номера
a [ i ] = К – элемент массива равный числу К
Изменения:
a [ i ] :=5 – заменить i-ый элемент на число 5
a [ i ] := - a [ i ] – заменить i-ый элемент на противоположный по знаку
a [ i ] := a [ i ] * 2 – удвоить каждый элемент массива
a [ i ] := a [ i - 1]+3 –заменить i-ый элемент предшествующим плюс 3
Предполагаем, что сумма равна нулю
Если элемент подходит по условию, добавляем его к сумме
Нахождение произведения элементов массива удовлетворяющих условию:
p:=1;
For i:=1 to N do If (условие) then p:=p* a[i];
WriteLn('Произведение = ', p:10:5);
Если элемент подходит по условию, добавляем его к произведению
Предполагаем, что произведение равно единице
Предполагаем, что таких элементов нет
Если такой элемент есть, то К увеличиваем на 1.
Program srednee;
Const
N=30;
Var a : array [1.. N] of integer;
i, S: integer; Sr: real;
BEGIN
For i:=1 to N do
begin
Write(' a [ ' , i , ' ] = ' );
ReadLn ( a [ i ] );
End;
s:=0;
For i:=1 to N do s:=s+ a[i];
Sr:=S/N;
Write(Sr);
END.
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть