Строки

@Мasy · Регистрация: 07.10.2013

Author24 — интернет-сервис помощи студентам

В заданной строке определить слова, взятые в скобки, и удалить их.

@Derendaet · 09.11.2013, 03:29

Как тебе такое решение?

Pascal

var s:array [1..100] of string;
    i,n,j,k:integer;  s1:string;
begin
write('Введите слова: '); read(s1);
n:=length(s1);
for i:=1 to n do s[i]:=copy(s1,i,1);
for i:=1 to n do
if s[i]<>'(' then
write(s[i]) else
while s[i]<>')' do
if s[i+1]=' ' then i:=i+2 else
i:=i+1;
end.

@Мasy · 09.11.2013, 20:47 **[ТС]**

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

Как тебе такое решение?

Pascal

var s:array [1..100] of string;
    i,n,j,k:integer;  s1:string;
begin
write('Введите слова: '); read(s1);
n:=length(s1);
for i:=1 to n do s[i]:=copy(s1,i,1);
for i:=1 to n do
if s[i]<>'(' then
write(s[i]) else
while s[i]<>')' do
if s[i+1]=' ' then i:=i+2 else
i:=i+1;
end.

Что-то не работает, нельзя изменять значение переменной внутри цикла!

@Derendaet · 09.11.2013, 21:35

тогда зачем ты пишешь в раздел pascal ABC, а сам используешь pascalABC.NET?

@ildwine · 09.11.2013, 21:49

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

Как тебе такое решение?

Господи, что за бред вы пишете, в чем смысл массива строк, если строка и так - упакованный массив символов?

Добавлено через 1 минуту
Если уж и решать таким способом, то массив делать типа char;

Добавлено через 3 минуты

Pascal

1
2
3

write('Введите слова: '); read(s1);
for i := 1 to length(s1) do
  if s1[i] <> '(' then write(s1[i]) else...

@Мasy 0 / 0 / 0 Регистрация: 07.10.2013 Сообщений: 58
		1
	Строки 08.11.2013, 22:52. Показов 304. Ответов 4 Метки нет (Все метки) В заданной строке определить слова, взятые в скобки, и удалить их. 0

@Derendaet 32 / 37 / 47 Регистрация: 14.10.2013 Сообщений: 108
	09.11.2013, 21:35	4
	тогда зачем ты пишешь в раздел pascal ABC, а сам используешь pascalABC.NET? 0

	09.11.2013, 21:49