Question

Напишите мне программу забора используя алгоритм (Паскаль)

Answer 1

Ответ:

program zabor;

uses drawman;

procedure doska;

begin

OnVector (0,5);

OnVector (1,1);

OnVector (1,-1);

OnVector (0,-5);

OnVector (-2,0);

OnVector (2,0)

end;

var i:integer;

begin

Field(26,9);

PenDown;

for i:=1 to 13 do doska;

PenUp;

ToPoint (0,0)

end.

Объяснение:

картинка

Answer 2

Конечно, вот пример программы на языке Паскаль, которая рисует забор с использованием циклов и алгоритма:

pascalCopy code
program FenceDrawing;

uses
  Crt;

var
  Height, Width, i, j: Integer;

procedure DrawFence(Height, Width: Integer);
var
  i, j: Integer;
begin
  for i := 1 to Height do
  begin
    for j := 1 to Width do
    begin
      if (i = 1) or (i = Height) or (j = 1) or (j = Width) then
        Write('#')
      else
        Write(' ');
    end;
    Writeln;
  end;
end;

begin
  Write('Enter the height of the fence: ');
  Readln(Height);
  
  Write('Enter the width of the fence: ');
  Readln(Width);
  
  ClrScr; // Очищаем экран
  
  DrawFence(Height, Width);
  
  Readln;
end.

Скопируйте этот код в среду программирования, поддерживающую Паскаль, и запустите программу. Вы сможете ввести высоту и ширину забора, и программа нарисует забор, используя символы # для стенок и пробелы для промежутков.