Задать вопрос
@mikkeyPG
pascal

Что делает эта строка в pascal?

Что делает второй for, зачем здесь ord и зачем отнимать 48?

procedure StrToMass(var a:mass; var s:string);
var i:integer;
begin
for i:=1 to 9 do
a[i]:=0;
for i:=1 to length(s) do
inc(a[ord(s[i])-48]);
end;
  • Вопрос задан
  • 66 просмотров
Комментировать
Подписаться 1 Простой Комментировать
Пригласить эксперта
Ответы на вопрос 1
xpert13
@xpert13
Full Stack Developer
Второй for делает проход по символам строки и, на сколько я понимаю, считает количество символов от 0 до 9. Ord нужен для того, что перевести символ в числовое значение по таблице ascii, а 48 отнимают, потому что цифры в этой таблице начинаются как раз от 48.

P.S. Редкий быдлокод, извините.

ASCII Table
ASCII-Table.svg
Ответ написан
Комментировать
Комментировать
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы
Вакансии с Хабр Карьеры
Backend Developer в бьюти-платформу LUUK
УК «Решения» • Москва
от 200 000 ₽
Angular frontend developer, разработчик middle+
IT Force • Краснодар
от 200 000 ₽
Middle+ Marketing manager
Правое полушарие Интроверта
от 120 000 ₽
Ещё вакансии
Заказы с Хабр Фриланса
Сканер коэффициентов в букмекерских конторах
20 апр. 2024, в 08:39
100000 руб./за проект
Доработать бота
20 апр. 2024, в 08:24
1500 руб./за проект
Разработать интранет сайт (корпоративный портал)
20 апр. 2024, в 07:24
100000 руб./за проект
Ещё заказы