|
Читайте также: |
Общие моменты
| Тип | Одномерные массивы | Двумерные массивы |
| Пример Вид | 6, 6, 1.8, -3, 4, 5, 0.3 R(7) | 3 2 4 4 7 9 1 2 3 R(3, 3) |
| Элемент | R[i] | R[i, j] |
| Задание в блоке Const | Const R:array [1..7] of real= (6, 6, 1.8, -3, 4, 5, 0.3); | Const R:array [1..3,1..3] of real= ((3, 2, 4), (4, 7, 9), (1, 2, 3)); |
| Задание в блоке Var | Var R:array [1..7] of real; | Var R:array [1..3,1..3] of real; |
| Оператор перебора | for i:=1 to 7 do | for i:=1 to 3 do for j:=1 to 3 do |
Способы задания и вывода
| Способ | Одномерные массивы | Двумерные массивы |
 Считывание с клавиатуры
    и вывод на экран:
| Program MK; Var R:array [1..7] of real; i:integer; begin for i:=1 to 7 do read (R[i]); for i:=1 to 7 do write (R[i]); // вывод в строку writeln (R[i]); // вывод в столбик end. |    Program MK;
Var R:array [1..3,1..3] of real;
 i,j:integer;
begin
for i:=1 to 3 do
for j:=1 to 3 do
 read (R[i,j]);
 for i:=1 to 3 do begin
for j:=1 to 3 do
write (R[i,j]);
writeln;
end;
 end.
|
Считывание с файла и
    вывод в файл:
| Program MK; Var R:array [1..7] of real; i:integer; f1,f2:text; begin assign (f1, ‘ish.txt (или. pas ) ’); assign (f2, ‘res.txt (или. pas ) ’); reset (f1); rewrite (f2); for i:=1 to 7 do read (f1, R[i]); for i:=1 to 7 do write (f2, R[i]); // вывод в строку writeln (f2, R[i]); // вывод в столбик end. | Program MK;
Var R:array [1..3,1..3] of real;
i,j:integer;
 f1,f2:text;
 begin
assign (f1, ‘ish.txt (или. pas ) ’);
assign (f2, ‘res.txt (или. pas ) ’);
 reset (f1);
rewrite (f2);
 for i:=1 to 3 do
for j:=1 to 3 do
read (f1, R[i,j]);
for i:=1 to 3 do begin
for j:=1 to 3 do
write (f2, R[i,j]);
writeln (f2);
end;
end.
|
Задание массива случайным образом:
| Одномерные массивы | Двумерные массивы |
| begin Randomize; for i:=1 to 7 do R[i]:=random; // случайное число от 0 до 1 R[i]:=random (15); // случайное число от 1 до 15 end. |  begin
 Randomize;
for i:=1 to 3 do
for j:=1 to 3 do
R[i,j]:=random; случайное число от 0 до 1
R[i,j]:=random (15); // случайное число от 1 до 15
end.
|
Расчет одномерного массива по формуле:
| Одномерные массивы |   Двумерные массивы
|
| begin for i:=1 to 7 do R[i]:=4*i*i-2*i+7; end. |  begin
 for i:=1 to 3 do
for j:=1 to 3 do
R[i,j]:=4*i*i-2*j+7;
end.
|
Задать элементы одного массива как некое преобразование элементов другого массива (например задать элементы массива R как квадраты элементов массива A):
| Одномерные массивы | Двумерные массивы |
| Program MK; const A:array[1..7] of real=(1,2,3,4,5,6,7); var R:array [1..7] of real; i:integer; begin for i:=1 to 7 do R[i]:=A[i]*A[i]; end. | Program MK; const A:array[1..3,1..3] of real=((1,1,1),(2,2,2),(3,3,3)); var R:array [1..3,1..3] of real; i,j:integer; begin for i:=1 to 3 do for j:=1 to 3 do R[i,j]:=A[i,j]*A[i,j]; end. |
Дата добавления: 2015-07-11; просмотров: 42 | Нарушение авторских прав