Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Решение задачи в Паскале (http://www.tehnari.ru/f41/t88889/)

MRFRASH 09.06.2013 20:43

Решение задачи в Паскале
 
Заменить в заданной строке символы их кодами. Между кодами поставить тире, а перед и после пробела знак плюс.

Vladimir_S 09.06.2013 21:43

Цитата:

Сообщение от MRFRASH (Сообщение 916365)
Заменить в заданной строке символы их кодами. Между кодами поставить тире, а перед и после пробела знак плюс.

И Вам также здравствовать, очень рады Вас видеть. Разрешите исполнять? Спасибо, Вы очень любезны. Надеюсь, так Вас устроит:
Код:

var
 S:string;
 i:byte;

begin
 writeln('Enter the string:');
 readln(S);
 for i:=1 to Length(S) do
  if S[i]<>' ' then
  begin
    if i<Length(S) then
    begin
      if S[i+1]<>' ' then write(Ord(S[i]),'-') else
      if S[i+1]=' ' then write(Ord(S[i]),'+');
    end
    else
    write(Ord(S[i]));
  end
  else
  Write(Ord(S[i]),'+');
 Readln
End.


MRFRASH 09.06.2013 21:56

спасибо вам за оказанную помощь!


Часовой пояс GMT +4, время: 17:32.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.