Урок 14.1 Задача 7

Primary tabs

Submitted by kuznmax on Tue, 12/06/2022 - 19:03

Forums:

Урок 14.1 Задача 7

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (используйте циклы repeat):
- - - - - -
- - - - - -
- - - - - -
- - - - - -
- для вывода очередной строки используйте процедуру.

Решение:

program Project1;
var m, n, i, j : integer;
begin
  writeln('Введите число  M');
  readln(m);
  writeln('Введите число N');
  readln(n);
   i := 1;
   repeat
      repeat
      j := 1;
      write(j, ' ' );
      j:=j + 1
      until j <= m;
   until i <= n;
  readln();
end.
  • Log in to post comments
  • 754 reads
vedro-compota's picture

vedro-compota

Thu, 12/15/2022 - 19:05

использовать отладчик для проверки

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

kuznmax

Thu, 01/05/2023 - 13:54 

program Project1;
var m, n, i, j : integer;
begin
  writeln('Введите число  M');
  readln(m);
  writeln('Введите число N');
  readln(n);
   i := 1;
   repeat
      repeat
      j := 1;
      writeln(j, ' ' );
      for j:=j + 1 to m do
        writeln(j, ' ' );
      until j <= m;
   until i <= n;
  readln();
end.
vedro-compota's picture

vedro-compota

Thu, 01/05/2023 - 14:46

сначала решим задачку #1 урока по этому циклу ""Вывести на экран все числа от 1 до N с помощью цикла repeat/until."""

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