задание 1 урок 16 new

Primary tabs

Submitted by nglag on Wed, 11/10/2021 - 17:46

Forums:

Пользователь вводит подряд 4 целых числа, сохраните их одновременно в двух разных
двумерных массивах:

1) так чтобы в каждом подмассиве было 2 элемента.
2) так чтобы в каждом подмассиве было по 1 элементу

Обойдите эти двумерные массивы и распечатайте результат (значения очередного
подмассива печатайте с новой строки

задание 1 урок 16 new

var
  a:  array[1..2,1..2] of Integer;
  b:  array[1..4,1..1] of Integer;
  i,g: Integer; {индексы}

begin
  {НАЧАЛО: Заполнение 1 массива}
  WriteLn('vvedite (', 4, ' elementa)');
  for i:=1 to 2 do // по массиву массивов
    for g:= 1 to 2 do  // по вложенному массиву
    begin
      ReadLn(a[i,g]); {ввод элемента с клавиатуры}
      b[i,g]:=a[i,g];
    end;
  //вывод массивов

  for i:= 1 to 2 do
  begin
     for g:= 1 to 2 do
      write(a[i,g]:2);
   readln();
  end;
  writeln();

  for i:= 1 to 4 do
  begin
     for g:=1 to 1 do
      write(b[i,g]:2);
   readln();
  end;
  • Log in to post comments
  • 1386 reads
vedro-compota's picture

vedro-compota

Wed, 11/10/2021 - 18:46

обсудили, условие исправлено http://fkn.ktu10.com/?q=node/13330

_____________
матфак вгу и остальная классика =)

nglag

Wed, 11/10/2021 - 20:48

ЗАДАЧА 1 урок 16

Пользователь вводит подряд 8 целых числ, сохраните их в двух разных двумерных массивах:
1) первые 4 числа так, чтобы в каждом подмассиве было 2 элемента.
2) вторые 4 числа так, чтобы в каждом подмассиве было по 1 элементу
Обойдите эти двумерные массивы и распечатайте результат (значения очередного подмассива печатайте с новой строки)
var
  a:  array[1..2,1..2] of Integer;
  b:  array[1..4,1..1] of Integer;
  i,g: Integer;

begin

  WriteLn('vvedite (', 8, ' elementov)');
  for i:=1 to 2 do
    for g:= 1 to 2 do
      ReadLn(a[i,g]);
    for i:=1 to 4 do 
      for g:= 1 to 1 do
       ReadLn(b[i,g]);

  //вывод массивов

  for i:= 1 to 2 do
  begin
    for g:= 1 to 2 do
      write(a[i,g]:2);
   readln();
  end;
  writeln();

  for i:= 1 to 4 do
  begin
    for g:=1 to 1 do
      write(b[i,g]:2);
   readln();
  end;
end.