Vladimir_S

Алекс, так я это первым делом (#16) предложил. Нет, похоже у народа проблемы с функцией Length. Вот тут Написать программу в Паскале опять же... Не могу взять в толк - в чем дело?

M@rgo

Вот что пишет:

Invalid FOR control variable:

The FOR Statement control variable must must be a simple variable defined in the declaration part of the current subprogram.

Vladimir_S

Хорошо. Попробуйте вот что:
1. Ввести еще переменную
L:Integer;
2. Строку
For i:=1 to Length(S) do
замените двумя:
L:=Length(S);
For i:=1 to L do
Может быть, так сожрёт?

AlexZir

у меня на трех реализациях (BorlandPascal, FreePascal и школьный пакет) исходный код нормально компилится, скорее всего, проблема в среде, используемой ТС

__________________
Убить всех человеков!

M@rgo

теперь ошибка сдесь: For i:=1 to L do (error42: error in expression)

M@rgo

У меня TURBO PASCAL 7.1

Vladimir_S

Вы не пропустили поправок?
1. i сделать Integer;
2. ввести L. Тоже Integer.

M@rgo

РАБОТАЕТ!!!!!! СПАСИБО!!!! ОГРОМНЕЙШЕЕ!!!!!!! люблю вас!!!!!

Vladimir_S

Уф-ф-ф...

M@rgo

Вот что получилось:

VAR
S,s1:String;
L:Integer;
i,n,Sum,Code:Integer;
BEGIN
Writeln('Enter the string:');
Readln(S);
Sum:=0;
L:=Length(s);
For i:=1 to L do
begin
S1:=s[i];
Val(S1,n,Code);
Inc(Sum,n);
end;
Writeln('Sum= ',Sum);
Readln
END.