Урок 13.2 Задача 3

Урок 13.2 Задача 3

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

+ + + + + +
+ - - - - +
+ - - - - +
+ + + + + +

Решение:

program u13z03;
var i,j,n,m: integer;
begin
  write('Vvedit chisla n & m : ');
  readln(n,m);
  i:=1;
  while i<=n do
  begin
    j:=1;
    while j<=m do
    begin
      if (j=1)or(j=m)or(i=1)or(i=n) then
        write('+ ')
      else
        write('- ');
      j:=j+1;
    end;
    writeln();
    i:=i+1;
  end;
  readln();
end.

Консоль:

Vvedit chisla n & m : 5 8
+ + + + + + + +
+ - - - - - - +
+ - - - - - - +
+ - - - - - - +
+ + + + + + + +