FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Email: Нажмите что бы посмотреть
Например,
var
A: array[1..4] of integer;
Обращение к любому элементу массива происходит по его номеру.
В оглавление
T: array [1..30] of real;
T[4]:=4;
TEMP: array [1..7] of integer;
SP: array [1..5] of string;
BEGIN
TEMP[1]:=10;
TEMP[2]:=12;
TEMP[3]:=8;
TEMP[4]:=10;
TEMP[5]:=9;
TEMP[6]:=8;
TEMP[7]:=8;
BEGIN
SP[1]:=‘Аксенов’;
SP[2]:=‘Бобров’;
SP[3]:=‘Веснин’;
SP[4]:=‘Гончаров’;
SP[5]:=‘Давыдов’;
Показ программы
BEGIN
for i:=1 to 7 do
begin
write(‘Введите ‘,i,’температуру ‘);
readln(TEMP[i]);
end;
BEGIN
for i:=1 to n do
begin
write(‘Введите ‘,i,’элемент массива’);
readln(SP[i]);
end;
RANDOM(N) – вещественное число из [0,N);
TRUNC(RANDOM(N))- целое число из [0,N)
TRUNC(RANDOM(N)+1)– целое число из [0,N]
TRUNC(RANDOM(B-A)+A)– целое число из [A,B)
Показ программы
BEGIN
for i:=1 to n do
begin
TEMP [i]:= trunc(random(10));
end;
For i:=1 to n do
begin
writeln(TEMP[i]);
end;