Главная » Статьи » Задачи по программированию
Перевернуть слово [Pascal]
Хочу показать пример прогаммы, которая переворачивает слово.
Привет превращается в тевирП
______________________________________________________________

var
ss1,s0,s,s1,s2,ss,sss:string;
p,k,i:integer;
 begin
  p:=0;
   ss:='';
  sss:='';
 Readln(s);
  k:=length(s) div 2;
 for i:=1 to k do begin
  s1:=s[i]+sss;  //выбираем элемент строки 
   s2:=ss+s[length(s)-p];  //выбираем элемент строки  

{вырезаем серединку строки пример: из стоки 123456 
в первом прохождении циала  2345, во вотром 34 и.т.д}
    s0:=copy(s,i+1,length(s)-(i+1+p));
     ss1:=s2+s0+s1; // клеим элементы строки и нашу серединку 
    ss:=ss+ss1[i]; 
   sss:=ss1[length(ss1)-p]+sss;
  inc(p); // функция inc(x) равна x:=x+1 
 end;
Writeln(S,'-',ss1);
 Readln;
 end.
_________________________________________________

Пример попроще:

 var a,b: string;
  i: longint;
 begin
  write('Введите слово: ');readln(a);
  b:='';
 for i:=1 to length(a) do begin
  b:=a[i]+b;{ переворачиваем слово }
 end;
 if a=b then begin
  write('Перевернули');
  write(b);
 end  else write('не перевернули');
  write(b);
  readln;
 end.
end.
Категория: Задачи по программированию | Добавил: shypuk (18.03.2013)
Просмотров: 4554 | Теги: Pascal, delphi, Задачи Pascal, программирование | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]