как найти самый макс Delphi-Pascal - есть ответ

Без имени, 364 просмотра

Помогите плз,
Задан текст edit1.text:='задания';
надо каждую букву про нумеровать по возрастанию алфавита и записать в масив
Например:

з | а | д | а | н | и | я
----------------------------
4 | 1 | 3 | 2 | 9 | 5 | 6

edit1.text:='задания';
содержимое массива будет выглядит так 4, 1, 3, 2, 9, 5, 6

Догадываюсь что можно найти с помощью функций ord получая код ascii, но незнаю как реализовать !
Желательно на Delphi или Pascal

Примечание:
azlab.org (Аркадий Зверев) 06.10.2012, 2:02:09

Спасибо за совет и помощь, но ваш исходник соответствует!

Ответы:

azlab.org

Код символа - зависит от регистра. В вашем примере - все буквы в нижнем регистре, т.е. код символа "а" будет 224. Значит, для получения естественной нумерации (от 1) нужно вычитать 223. Программа будет примерно такой:

Удачи =)

Ord в данном случае не нужен:
var
x, z: integer;
y: char;
Text:string;
Ints:array of integer;
begin
text:='задания';
SetLength( Ints, length(text));
z:=0;
for y:='а' to 'я' do
for x:=1 to length(text) do
if text[x]=y then begin
Inc(z);
Ints[x-1]:=z;
end;
//вывод массива ... сами
SetLength( Ints, 0);
end.

12 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.