Урок 13.2 (Решенные задачи)

Урок 13.2 (Решенные задачи)

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

- - - - - -
- - - - - -
- - - - - -
- - - - - -

var a,b,n,m: integer;

begin
  m := 15;
  n := 5;
    repeat
      repeat
        write('-');
        a := a + 1;
      until(a > m);
     writeln('-');
     b := b + 1;
     a := 0;
    until (b > n);
end.

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

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

var M,N,a,b: integer;

begin
  a := 1;
  M := 15;
  N := 10;
  while (a < N) do
   begin
    while (b < N) do
     if ((a mod 2) = 1) then
     begin
      write('+', ' ');
      b := b + 1;
     end
     else
      begin
       write('-', ' ');
       b := b + 1;
      end;
    writeln();
    a := a + 1;
    b := 0;
   end;
end.

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

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

var m,i,j,n: integer;

begin
  m := 7;
  n := 15;

  for i := 1 to m do
    begin
      for j := 1 to n do
       if (j = 1) or (j = n) or (i = 1) or (i = m) then
       write('+', ' ')
       else
         write('-', ' ');
      writeln();
    end;
end.