Цитата:
Сообщение от OlegNZH
Я-же сказал Объектный Паскаль .. Форма- это Объект. (Была разновидность в DOS - Turbo Vision , там тоже окна(псевдографикой) , и то-же объекты ....но давайте не вспоминать до-оконную от Microsoft (у Борланда были достижения ...давно) , эру)
|
Давайте не будем засорять чужую тему отвлеченными дискуссиями "об вообще". Девушка обратилась с просьбой, вот и надо отвечать по существу.
Вы предложили алгоритм - прекрасно.
Я же могу от себя добавить реализацию на Паскале, на базе которой может быть создан DPR-файл.
Код:
Var
S:String;
k:Byte;
Begin
Writeln('Enter the string:');
Readln(S);
k:=0;
Repeat
Inc(k);
Until S[Length(S)-k]=' ';
Writeln('k = ',k);
Readln
End.
Код:
Var
S1,S2:String;
i:Byte;
Begin
Writeln('Enter the string:');
Readln(S1);
S2:='';
for i:=1 to Length(S1) do
S2:=S2+S1[Length(S1)-i+1];
Writeln(S1=S2);
Readln
End.