Помощь - Поиск - Пользователи - Календарь
Полная версия: программа на разворот слова
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Legat1177
Всем Доброго времени суток!

Есть задача:

Напишите программу обращения слова.

Пример :

Данные: «СЛОВО»

Результат: «ОВОЛС»
Unconnected
Попробуй так.
var i,l:byte;
s:string;
c:char;
begin
readln(s);
l:=length(s);
for i:=1 to (l div 2) do begin
c:=s[i];
s[i]:=s[l+1-i];
s[l+1-i]:=c;
end;
writeln(s);
readln;
end.

Legat1177
Цитата(Unconnected @ 18.11.2010 23:01) *

Попробуй так.
var i,l:byte;
s:string;
c:char;
begin
readln(s);
l:=length(s);
for i:=1 to (l div 2) do begin
c:=s[i];
s[i]:=s[l+1-i];
s[l+1-i]:=c;
end;
writeln(s);
readln;
end.




А что означают квадратные скобки справа от переменной - c:=s[i];
s[i]:=s[l+1-i];
s[l+1-i]:=c;?
Unconnected
Обращение к определенному символу строки. s[порядковый_номер_символа]:=...
Legat1177
Цитата(Unconnected @ 19.11.2010 0:03) *

Обращение к определенному символу строки. s[порядковый_номер_символа]:=...


Огромное спасибо!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.