Информатика. Часть 1. Мойзес О.Е - 86 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

86
i,j:integer;
Begin
{ввод значений массива}
for i:=1 to 3 do
for j:=1 to 5 do
begin
writeln('Введите Cp',i,j);
readln(Сp[i,j]);
end;
{вывод элементов массива по строкам}
for i:=1 to 3 do
begin
for j:=1 to 5 do
write(Cp[i,j]:7:3,’ ’);
writeln;
end;
. . . . .
End.
Ввод массива будет осуществляться таким же образом, как и в
случае одномерного массива.
При выводе массива
на экран появляются три строки по пять
численных значений теплоемкостей:
Cр[1,1] Cp[1,2] ... Cp[1,5]
. . . . . .
Ср[3,1] Cp[3,2] ... Cp[3,5]
Численные значения элементов массива могут быть также заданы:
- в разделе const
Type mas = array[1..3] of real;
mas1 = array[1..2,1..3] of integer;
Const M:mas = (12.3,14.6,18.4); {одномерный массив}
Cp:mas1 = ((10,16,8), (6,20,12)); {двумерный массив}
или
Const M: array[1..3] of real=(12.3,14.6,18.4);
Cp: array[1..2,1..3] of integer = ((10,16,8), (6,20,12));
- случайными значениями от 0 до 1
Begin randomize;
for i:=1 to 10 do
M[i]:= random;
. . . . .
End.
Примечание.

Страницы