Паскаль

[Irusik]

Скажите, пожалуйста, правильно ли решена задача, а еще откуда взялись некоторые данные и что они обозначают.

Составить программу для выполнения указанного ниже задания. Найти номер позиции первой цифры в строке

program proba;
uses crt;
var S: string;
i,n: integer;
begin
write ('введите строку:S='); readln (S);
for i:=1 to length(S) do
if (ord(S[i])>46) and (ord(S[i])<58) then
begin
n:=1;
break;
end;
writeln('первая цифра стоит на', n , ' -ой позиции в строке');
readln;
end.

Мне не понятно, что означает (length(S)), (ord(S[i])>46) и откуда взялось 46, (ord(S[i])<58) и откуда взялось 58, что означает break

[Базиля]

n:=1;

Как-то странно, получается если есть какая либо цифра в строке она всегда будет на 1-ой позиции. Тут нужно n:=i;

(length(S))

Длина строки S

(ord(S[i])>46) и откуда взялось 46, (ord(S[i])<58)

Это коды цифр 0-9 которые еще и не правильно указаны. Должно быть:
(ord(S[i])>=48) and (ord(S[i])<=57)

функция ord преобразовавыет из символа в код, и если код очередного символа строки попадает в диапазон от 48 до 57 то это цифра.

Процедура break прерывает выполнение цикла в котором используется эта процедура.

[Hacker19_90]

1) length(S) это функция которая определяет длину строки!
2) ord(S[i]) это функция которая определяет код символа по ASCII кодировке!
P.S.: Смотри ASCII таблицу
3) 46 и 57 это для сравнения кодов! Хотя если смотреть таблицу ASCII
то цифры начинаются с 48 по 57 так что подправь на
if (ord(S[i])>=48) and (ord(S[i])<=57) then
4) break это нужно что бы прервать массив! То есть мы прогоняем массив ищем цифры и как только нашли дальше прогонять цикл нет смысла и мы его останавливаем и выходим из него

[Базиля]

break это нужно что бы прервать массив!

Извините, что прервать?

[Hacker19_90]

Сообщение от Базиля

Извините, что прервать?

Пардон Опечатался! чтобы прервать цикл конечно!