Question

Напишите программу, которая по данному числу n от 1 до 9 выводит на экран n флагов. Изображение одного флага имеет размер 4×4 символов, между двумя соседними флагами также имеется пустой (из пробелов) столбец. Разрешается вывести пустой столбец после последнего флага. Внутри каждого флага должен быть записан его номер — число от 1 до n. входные данные 1 выходные данные +___ |1 / |__\ | Паскаль. Нужно использовать фор.

Answer 1

Var 
 i,n:integer;
begin 
  read(n); 
  for i:=1 to n do   
   write('+___ '); 
  writeln; 
  for i:=1 to n do 
    write('|',i,' / '); 
  writeln; 
  for i:=1 to n do   
   write('|__\ '); 
  writeln; 
 for i:=1 to n do 
    write('|    ');
end.

Answer 2

Конечно, вот пример программы на языке Pascal, которая решает вашу задачу:

program DrawFlags;

var
  n, i, j: integer;

procedure DrawFlag(number: integer);
begin
  writeln('+___+');
  writeln('|', number, '/|');
  writeln('|__\|');
  writeln('|   |');
  writeln('|   |');
end;

begin
  // Ввод числа n
  write('Введите число n (от 1 до 9): ');
  readln(n);

// Проверка на валидность ввода
  if (n < 1) or (n > 9) then
  begin
    writeln('Некорректный ввод. Введите число от 1 до 9.');
    readln;
    exit;
  end;

// Отрисовка флагов
  for i := 1 to n do
  begin
    DrawFlag(i);

// Если не последний флаг, добавляем пустой столбец
    if i < n then
      writeln('|   |');
  end;

// Пустой столбец после последнего флага
  writeln('|   |');

// Завершение программы
  readln;
end.

Программа запрашивает у пользователя ввод числа n, затем проверяет его на корректность. Если ввод некорректен, программа выводит сообщение об ошибке. В противном случае она рисует n флагов, каждый с его номером.