Question

Написать программу на рисунок квадрата в Turbo Pascal

Answer 1

================ответ===================

Answer 2

Программа на рисование квадрата в Turbo Pascal

Вот пример программы на рисование квадрата в Turbo Pascal:

program DrawSquare;
uses crt;

var
  i, j: integer;

begin
  clrscr;
  
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
    begin
      if (i = 1) or (i = 5) or (j = 1) or (j = 5) then
        write('*')
      else
        write(' ');
    end;
    writeln;
  end;
  
  readln;
end.

Эта программа использует встроенную процедуру `clrscr` для очистки экрана и два цикла `for` для отрисовки квадрата. Внутри вложенного цикла проверяется, находится ли текущая позиция на границе квадрата, и в зависимости от этого выводится символ `*` или пробел.

Вы можете запустить эту программу в Turbo Pascal и увидеть, как она рисует квадрат размером 5x5 на экране.

Примечание: Убедитесь, что у вас установлена среда Turbo Pascal и правильно настроена для компиляции и запуска программ.