Question

написать программу в ABC паскале имя Маша звездочками в рамке пожалуйста .дам 40 баллов за верный ответ​

Answer 1

begin

writeln('******************************************');

writeln('*                                        *');

writeln('*   *     *     *     *     *     *      *');

writeln('*   * * * *    * *    *  *  *    * *     *');

writeln('*   *  *  *   *   *   *  *  *   *   *    *');

writeln('*   *     *  *******  *  *  *  *******   *');

writeln('*   *     *  *     *  *  *  *  *     *   *');

writeln('*   *     *  *     *  *******  *     *   *');

writeln('*                                        *');

writeln('******************************************');

end.

Answer 2

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

sqlCopy code
PROGRAM MashaFrame;
VAR
  i, j: INTEGER;

PROCEDURE PrintFrame(rows, cols: INTEGER);
BEGIN
  FOR i := 1 TO rows DO
  BEGIN
    FOR j := 1 TO cols DO
    BEGIN
      IF (i = 1) OR (i = rows) OR (j = 1) OR (j = cols) THEN
        WRITE('*')
      ELSE
        WRITE(' ');
    END;
    WRITELN();
  END;
END;

PROCEDURE PrintNameInFrame(name: STRING);
VAR
  nameLength: INTEGER;
BEGIN
  nameLength := LENGTH(name);
  
  PrintFrame(5, nameLength + 4);
  
  FOR i := 1 TO 3 DO
  BEGIN
    WRITE('* ');
    IF i = 2 THEN
      WRITE(name)
    ELSE
      FOR j := 1 TO nameLength DO
        WRITE('*');
    WRITELN(' *');
  END;
  
  PrintFrame(5, nameLength + 4);
END;

BEGIN
  PrintNameInFrame('Маша');
END.

После запуска этой программы выведется имя "Маша" звездочками в рамке:

markdownCopy code
**********
*        *
*   Маша *
*        *
**********

Надеюсь, это помогло!