Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.12.2010, 19:11   #1
fatorial
Пользователь
 
Регистрация: 18.11.2010
Сообщений: 12
По умолчанию В строке между словами вставить вместо пробела запятую и пробел

В строке между словами вставить вместо пробела запятую и пробел

Код:
program s2;
uses crt;
var
s,d:string;
i:integer;
begin
clrscr;
writeln('vvedite stroky');
read(s);
d:=' ';
for i:=1 to length(s) do
if copy(s,i,1)=' ' then begin
concat(s,d);
s[i]:=',';
s[i+1]:=' ';end;
writeln(s);
readkey;
end.
пытался но че то не получается посмотрите пожайлуста

Последний раз редактировалось Stilet; 31.12.2010 в 16:59.
fatorial вне форума Ответить с цитированием
Старый 27.12.2010, 19:26   #2
k0tone
Пользователь
 
Аватар для k0tone
 
Регистрация: 09.11.2010
Сообщений: 99
По умолчанию

Держи на предыдущую задачку:
Код:
program MPCS;
uses CRT;
var a:array [1..5, 1..5] of integer;
i,j,n,k,z,m:integer;
begin
CLRSCR;
write('vvedite kolichestvo strok');
readln(n);
k:=2;
for i:=1 to n do
  begin
    z:=z+1;
    for j:=1 to n do
      begin
        if j>=z then
          a[i,j]:=k
        else
          a[i,j]:=0;
          write (a[i,j]:8);
      end;
    k:=k*2;
    writeln;
  end;
readln;
end.
Если я вам помог - нажмите на весы пот аватаркой!
k0tone вне форума Ответить с цитированием
Старый 27.12.2010, 19:52   #3
GetMax
Форумчанин
 
Регистрация: 21.10.2010
Сообщений: 588
По умолчанию

Код:
var
s,d:string;
i:integer;
begin
writeln('vvedite stroky');
readln(s);
i:=1;
d:=' ';
While i <= Length(S)  do
Begin
if S[i] = ' ' then
Begin
  S[i]:=',';
  Insert(d,s,i+1);
  Inc(i);
End;
Inc(i)
End;
writeln(s);
Readln
End.
Пользователь не знает, чего он хочет, пока не увидит то, что он получил.
Для благодарностей WMR R145235935681
GetMax вне форума Ответить с цитированием
Старый 30.12.2010, 16:53   #4
fatorial
Пользователь
 
Регистрация: 18.11.2010
Сообщений: 12
По умолчанию

есть один недочет в этой программе,он ставит запятую после каждого пробела а нужно чтоб было после каждого слова.....
fatorial вне форума Ответить с цитированием
Старый 31.12.2010, 16:36   #5
MoBLer
Пользователь
 
Аватар для MoBLer
 
Регистрация: 30.12.2010
Сообщений: 91
Радость

Вот держи

Код:
var
s:string;
i:integer;
begin
Writeln('Введите строку');
readln(s);

for i:=1 to length(s) do
if (s[i]=' ') and (s[i-1]<>' ') then begin s[i]:=','; s[i+1]:=' '; i:=i+1;  end;
writeln(s);
readln;
end.
Я тебе помог, добавь отзыв)))))
Статьи по программированию
MoBLer вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Функция СЦЕПИТЬ как вставить пробел kzld Microsoft Office Excel 2 11.09.2010 10:31
Дано предложение. Между словами предложения один пробел, а после последнего слова точка. Vadim123456 Помощь студентам 0 01.05.2010 23:28
Делфи. Работа со словами в строке nation of one Помощь студентам 13 12.02.2010 11:42
С. Работа со словами в строке radion_80 Помощь студентам 4 01.12.2009 15:35
Разделитель между словами в запросе artemavd БД в Delphi 10 20.05.2009 18:18