Задание 1 Урок 13.2

Primary tabs

Submitted by Dobrii_kot on Sat, 10/03/2020 - 19:41

Forums:

Задание 1 Урок 13.2

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

var m,n,vertikal,gorizont: integer;
begin
  vertikal := 1;
  gorizont := 1;
  write('Введите количество знаков по горизонтали и количество знаков ');
  write('по вертикали, и нажмите ENTER: ');
  readln(m,n);
  repeat
    repeat
      write('- ');
      gorizont += 1;
    until (gorizont > m);
    writeln();
    vertikal += 1;
    gorizont := 1;
  until (vertikal > n);
  readln();
end.
  • Log in to post comments
  • 1405 reads
vedro-compota's picture

vedro-compota

Sat, 10/03/2020 - 20:21

лучше использовать for когда известно число повторений

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

Dobrii_kot

Mon, 10/05/2020 - 14:52 

var m, n, g, v: integer;
begin
  write('Введите значения горизонтали и вертикали');
  write(' через пробел и нажмите Enter: ');
  readln(n,m);
  for v := 1 to m do
  begin
    for g := 1 to n do
      write('- ');
    writeln();
  end;
  readln();
end.