Помогите в языке программирования "Pascal".

[Труб]

Нужно помочь решить задачу(сессия уже на носу). Задача такова: Перетворить текст, взял каждое слово в скобки. Текст вводится с клавиатуры. Помогите кто-то, пожалуйста, реально очень нада, в долгу не останусь

[chemax]

паскаль не изучал, да и не нужен он уже ни где)
но вот нашел код, переделать легко
данная программа ищет символ(k) в строке(s)
Program str;
Var
s:string;k:char;n,i:integer;
Begin
n:=0;
writeln('Vvedite stroku s=');
readln(s);
writeln('Vvedite simvol k=');
readln(k);
for i:=1 to length(s) do
if s[i]=k then
n:=n+1;
writeln('rezulitat=');
readln;
end.

перделать примерно по такому алгоритму

Program str;
Var
k,s:string;n,i:integer;
Begin
n:=1;
writeln('Vvedite stroku s=');
readln(s);

for i:=1 to length(s) do begin //цикл на просмотр массива с текстом

if s[i]=' ' then //если символ в тексте пробел то
k[n]:=')';
n:=n+1;
k[n]:=' ';
n:=n+1;
k[n]:='(';
n:=n+1;
else //в противном случае
k[n]:=s[i]
n:=n+1;
end;

for i:=1 to length(k) do begin //вывод данных
writeln('rezulitat=', k[i]);
readln;
end;

end.

[Slobodka]

Сообщение от chemax

У меня богатый словарный запас.
Но некоторые мысли я никак не могу выразить словами.
Хочется просто взять черенок от лопаты и отпиздить всех.

ДА я с тобой пойду только подожди я виллы возьму.

[Труб]

chemax, спасибо за труд ман, но чё то оно не пашет

[1gr0k]

щас напишу нормальную версию, почти переделал как надо

Добавлено через 9 минут
Слушай, а тебе надо чтобы обязательно в переменную строки вписывались скобки или можно просто выводить со скобками?

[ХУЛИ G@N]

Оффтоп

Slobodka, тоже зацепила фраза))))))))))))))))))

[chemax]

1gr0k, ему по моему что бы тупо выводилось) жаль что синтаксиса паскаля не знаю) думал что знаю, а выводит кучу ошибок)

[1gr0k]

все, програмка готова.
Если интересно:
Оффтоп

Program str;
Var
k,s:string;l,n,i:integer;
Begin
writeln('Vvedite stroku s=');
readln(s);
write('Rezultat: (');
for i:=1 to length(s) do
if (s[i+1]=' ') then
begin
write(s[i]);
write(')');
end
else
begin
if (s[i]=' ') then
write(' (')
else
write(s[i]);
end;
write(')');
readln;

end.

[Труб]

За всё спасибо ребята
P.S:За всё спасибо сеньёриты, вот вам Гуффи из мультиков набьют на пояснице, а тех кто против нас - набьют по печени с ключицей

[ХУЛИ G@N]

Труб, опять плагиат)))

[Труб]

Сообщение от ХУЛИ G@N

Труб, опять плагиат)))

Оффтоп

извеняюсь брат

[Slobodka]

Сообщение от ХУЛИ G@N

Slobodka, тоже зацепила фраза))))))))))))))))))

Ну аяк же, будем мочить всех, спина к спине, плечо к плечу, черенок и вила взрывная волна тротила.

[ХУЛИ G@N]

Оффтоп

Slobodka, полюбому ёб