1.Составьте программу вывода матрицы: 1 1 1 1 2 2 2 2 3 3 3 3 2.Составьте программу вывода матрицы: 1 2 3 4 1 2 3 4 1 2 3 4
1.Составьте программу вывода матрицы:
1 1 1 1
2 2 2 2
3 3 3 3
2.Составьте программу вывода матрицы:
1 2 3 4
1 2 3 4
1 2 3 4
Ответ(ы) на вопрос:
Гость
{Задача 1}
type Mat = arrsay [1..3, 1..4] of integer;
var i: integer;
A: Mas;
begin
for i:=1 to 3 do
begin
for j:=1 to 4 do
Write (i:4);
WriteLn;
end;
ReadLn;
end.
{Задача 2}
type Mat = arrsay [1..3, 1..4] of integer;
var i:integer;
A: Mas;
begin
for i:=1 to 3 do
begin
for j:=1 to 4 do
Write (j:4);
WriteLn;
end;
ReadLn;
end.
Гость
var
i,j:integer;
begin
for i:=1 to 3 do
begin for j:=1 to 4 do Write(i:2); Writeln end
end.
Результат выполнения программы:
1 1 1 1
2 2 2 2
3 3 3 3
var
i,j:integer;
begin
for i:=1 to 3 do
begin for j:=1 to 4 do Write(j:2); Writeln end
end.
Результат выполнения программы:
1 2 3 4
1 2 3 4
1 2 3 4
Программы отличаются ровно одним символом - именем переменной в обращении к процедуре вывода: Write(i:2); и Write(j:2);
Не нашли ответ?
Похожие вопросы