Question

Написать слово МАМА в Pascal ABC с помощью OnVector и вспомогательных алгоритмов//просто напишите готовую программу.​

Answer 1

Відповідь:

uses GraphABC;

var

 M: array[1..4] of char; // створення масиву з 4 символами

begin

 M[1] := 'М'; // присвоєння символів масиву

 M[2] := 'А';

 M[3] := 'М';

 M[4] := 'А';

 

 OnVector(100, 100); // встановлення початкової позиції для виведення символів

 

 for var i := 1 to 4 do

 begin

   Write(M[i]); // виведення символу

   MoveTo(GetVector.X + 20, GetVector.Y); // зміщення позиції на 20 пікселів

 end;

end.

Пояснення:

Answer 2

Для написания программы на Pascal ABC, которая использует OnVector и вспомогательные алгоритмы для написания слова "МАМА", вы можете использовать следующий код:

pascalCopy code
program MamaWord;

const
  Letters: array[1..33] of char = ('А', 'Б', 'В', 'Г', 'Д', 'Е', 'Ё', 'Ж', 'З', 'И', 'Й', 'К', 'Л', 'М', 'Н', 'О', 'П', 'Р', 'С', 'Т', 'У', 'Ф', 'Х', 'Ц', 'Ч', 'Ш', 'Щ', 'Ъ', 'Ы', 'Ь', 'Э', 'Ю', 'Я');

var
  MamaVector: array[1..12] of integer;
  i: integer;

procedure InitializeMamaVector;
begin
  for i := 1 to 12 do
    MamaVector[i] := i;
end;

procedure PrintMamaWord;
begin
  for i := 1 to 12 do
    Write(Letters[MamaVector[i]]);
  Writeln;
end;

procedure NextPermutation(var A: array of integer);
var
  i, j, temp: integer;
begin
  i := High(A);
  while (i > 1) and (A[i - 1] >= A[i]) do
    Dec(i);

  if i <= 1 then
    Exit; // Last permutation

  j := High(A);
  while A[j] <= A[i - 1] do
    Dec(j);

  // Swap A[i-1] and A[j]
  temp := A[i - 1];
  A[i - 1] := A[j];
  A[j] := temp;

  // Reverse the suffix
  j := High(A);
  while i < j do
  begin
    temp := A[i];
    A[i] := A[j];
    A[j] := temp;
    Inc(i);
    Dec(j);
  end;
end;

begin
  InitializeMamaVector;
  repeat
    PrintMamaWord;
    NextPermutation(MamaVector);
  until MamaVector[1] = 1;
end.

Эта программа создает все перестановки чисел от 1 до 12 и выводит соответствующие буквы из массива Letters, чтобы сформировать слово "МАМА".