Выводить слова и цифровое значение - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Имеется программа которая должен вывести слово и значение. собственный алфавит юдин=1 2 3 4. например вывести обе значение слово и цифры, нид = 4 3 2 , слово ди= 3 2.
Заранее спасибо)

Решение задачи: «Выводить слова и цифровое значение»

textual
Листинг программы
WriteLn('Сортировка:');
for i:=1 to n do
 begin
  Write(i:2,'> ',a[i],' =');
  for j:=1 to length(a[i]) do
  write(pos(a[i][j],abc):3);
  writeln;
 end;

Объяснение кода листинга программы

  1. Строка кода WriteLn('Сортировка:'); выводит на экран текст Сортировка:.
  2. Затем следует цикл for, который выполняется от 1 до n (предполагается, что n - это некоторое число).
  3. Внутри цикла переменная i принимает значения от 1 до n, а переменная j принимает значения от 1 до длины элемента массива a[i].
  4. Для каждого значения i и j выполняется следующий блок кода:
    • Выводится значение i (с помощью функции Write(i:2,>), где 2 - это формат вывода числа с двумя знаками после запятой).
    • Затем выводится знак > (символ >).
    • После этого выводится значение a[i] (с помощью функции Write(a[i]:3)), где 3 - это формат вывода строки с тремя знаками после запятой.
    • И, наконец, выводится символ =.
  5. После завершения внутреннего цикла выводится символ writeln, который переносит строку.
  6. Конец внешнего цикла не указан в предоставленном коде, поэтому он будет выполняться бесконечно, пока не будет прерван пользователем.

Оцени полезность:

7   голосов , оценка 4 из 5
Похожие ответы