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

@dimayudin · Регистрация: 18.12.2014

Студворк — интернет-сервис помощи студентам

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
var abc: String;
function IsLess(const a, b: String): Boolean;
var i, j: Integer;
begin
  i:=1; j:=Length(a);
     if j>Length(b) then j:=Length(b);
       while (i<=j) and (a[i]=b[i]) do Inc(i);
        if i<=j then IsLess:=Pos(a[i],abc)<Pos(b[i],abc)
  else IsLess:=j>Length(a);
end;
 
var
  a: array [1..100] of String;
  t: String;
  i, j, n: Integer;
  mn:integer;
begin
Write('алфавит: ');
  ReadLn(abc);
  write('ведите кол-во слов : ');
   readln(n);
  Write('введите кол-во длины слова : ');
    ReadLn(mn);
  WriteLn('Строки:');
  for i:=1 to n do
 
   begin
    Write(i:2,'> ');
    ReadLn(a[i]);
    end;
  for i:=1 to n-1 do
   for j:=i+1 to n do
    if IsLess(a[j],a[i]) then
     begin
      t:=a[i];
      a[i]:=a[j];
      a[j]:=t;
    end;
  WriteLn('Сортировка:');
  for i:=1 to n do
  WriteLn(i:2,'> ',a[i]);
end.

Заранее спасибо)

@Puporev · 26.09.2016, 09:39

Pascal
1
2
3
4
5
6
7
8
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;

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем