Решение задачи №9 из главы 13.1

Primary tabs

gani84's picture
Submitted by gani84 on Tue, 08/11/2020 - 15:36

Forums:

Решение задачи №9 из главы 13.1

M раз выведете на экран числа от 1 до N с помощью вложенных циклов. Так чтобы в консоли было:
1......N} M раз
1......N} 

var n, m: integer;
begin
  writeln('vvedite celoe chislo: m');
  readln(m);
  n := 1; // начальное значение для счетчика внешнего цикла
  while (n <= m) do // условие для внешнего цикла
    begin
        for n := 1 to m do // выводим первую строку m раз
          write(n, ' ');
          writeln(' ');
        for n := 1 to m do // выводим вторую строку m раз
          write(n, ' ');
    n:=n+1; // увеличиваем значение счетчика внешнего цикла
    end;
    readln();
end.

Key Words for FKN + antitotal forum (CS VSU):

  • Log in to post comments
  • 8218 reads
vedro-compota's picture

vedro-compota

Wed, 08/12/2020 - 19:46

вложенный цикл должен быть один

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

gani84's picture

gani84

Thu, 08/13/2020 - 12:51 

var  m, i: integer;
begin
  writeln('vvedite celoe chislo M');
  readln(m); //вводим число ограничитель
  for i:=1 to m do // внешний цикл
      write(i, ' '); // выводим первую строку М раз
   begin
      writeln(); // переносим строку
      for i:=1 to m do // внутренний цикл
          write(i, ' ');// выводим вторую строку М раз
   end;
  readln();
end.
vedro-compota's picture

vedro-compota

Wed, 08/26/2020 - 19:36

сейчас тут циклы не вложенные, а просто независимые. Решение не верно

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

gani84's picture

gani84

Sat, 08/29/2020 - 17:38 

var i, j, m: integer;
begin
writeln('vvedite celoe chislo M');
readln(m); //вводим число ограничитель
begin
  for i := 1 to 2 do //
    begin
      for j := 1 to m do //
        write(j, ' ' );
      writeln(); // переносим строку
    end;
end;
   readln();
end.
vedro-compota's picture

vedro-compota

Sat, 08/29/2020 - 20:39

Матрица должна быть размером M на N, а не 2 на N как у вас

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

gani84's picture

gani84

Sun, 08/30/2020 - 14:58 

var i, j, m, n: integer;
begin
writeln('vvedite celoe chislo M');
readln(m); //вводим число ограничитель  внешнего цикла
writeln('vvedite celoe chislo N');
readln(n); //вводим число ограничитель вложенного цикла
begin
  for i := 1 to m do //
    begin
      for j := 1 to n do //
        write(j, ' ' );
      writeln(); // переносим строку
    end;
end;
   readln();
end.
vedro-compota's picture

vedro-compota

Wed, 09/02/2020 - 19:26

решение засчитано

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