Народ помогите решить задачу пожалуйста.
Используя структурированный тип строка, выполнить следующие действия с исходными данными. В заданном тексте удалить фигурные и квадратные скобки и подсчитать число удаленных символов.

Например, вот так:

  for i := 1 to length(s) do begin

    if not (s[1] in ['{', '}', '[', ']']) then s := s + s[1];
    delete(s, 1, 1);

  end;

(это будет правильно работать, хотя на первый взгляд кажется что вариант с For неверен)

благодарствую!!!!!!!!!!!!!!!

Препод не принимает ее. Говорит что по другому надо. А как по другому то?

Спросить у преподавателя, КАК надо делать, не догадался?
Или ЧТО в программе ему не понравилось?
Нельзя операцию in использовать?
Или еще что-то?

Ну дак она даже не работает!!!!!

так не бывает, чтобы программа volvo не работала!
и эта тоже работает....
вот:Нажмите для просмотра прикрепленного файла
а других вариантов решения... ну, при желании штук 5 разной степени извращенности я могу придумать.
только знать бы, что именно нужно твоему преподу.

Просто она кол-во удаленных не считает, но это просто добавить самому.
Или препод ее не понял, т.к. способ интересный, мне бы в голову так не пришло

или препод не понял, или множества не проходили, или на лекции решали что-то подобное и препод требует по образцу, или Korsar просто не смог объяснить, как она работает, или он не догадался дописать ввод/вывод строки, или.......

Ну начнем с того, что Korsar не смог ее обьяснить!!! И еще: как написать ввод вывод? Подскажите пожалуйста что в этой задаче к чему!!!!! Я учился в деревенской школе у нас там вообще паскаля не было. Поступил на физика а мне тут мозги паскалем парят!!!

ну и зачем было писать, что программа не работает?
тебе помогают, а ты....

program stroka;
var s:string;
i:integer;
begin
writeln('string:');{печатаем приглашение ввести строку}
readln(s);{считываем строку, с которой будем работать}
for i := 1 to length(s) do begin {выполять столько раз, сколько символов в начальной строке}
    if not (s[1] in ['{', '}', '[', ']']) then s := s + s[1];{если он нам подходит - засовываем в конец строки}
    delete(s, 1, 1);{удаляем проанализированный}
  end;
writeln(s);{выводим, что получилось}
readln;
end.

не оправдание...
я в художественном классе училась - нас за 2 года изучения информатики научили:
1) включать компьютер (выключал сам препод)
2) печатать со скоростью 60 символов в минуту (на 250 программка-тест зависала)
3) запускать QBasic и задумчиво на него смотреть..
4) переводить целые числа из двоичной сс в десятичную

Ну во первых спасибо тебе большое за помощь. Во вторых она и вправду у меня не работала, теперь понял почему просто я ее не правильно переписал!!! В третьих: тебе легко рассуждать, а я даже компов не видел до первого курса, нам монитор на доске рисовали!!! Я по своим предметам поступил на бюджет. А тут сразу паскаль блин!!!

...а чтобы подсчитать число удаленных, достаточно найти разность длины строки до обработки и длины строки после обработки.
сможешь сам?

Спасибо за совет, но у самого не получается!!!

ЧТО не получается?
найти длину строки?

Да. Длину строки не могу найти.

А во втором посте, кстати, длина строки находится... Смотри внимательнее...

Что за второй пост? Где он?

Народ, помогите пожалуйста найти длину строки!!!

Что такое Length(s), по-твоему?

(второй пост - это тот, который следует за твоим вопросом. Логично, что сам вопрос имеет №1, правда? Так, справа вверху каждого сообщения есть надпись "Сообщение №")

Народ помогите мне с ьакой задачкой...
Задание. "Используя структурированный тип строка, выполнить следующие действия с исходными данными. "
Для каждого символа заданного текста указать, сколько раз он встречается в тексте. Сообщение об одном символе должно выводиться на экран не более одного раза.

!

1. Одна тема - один вопрос (правила, п. 6). 2. Не задавай свои вопросы в чужих темах