Удалить фигурные и квадратные Опции

[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) переводить целые числа из двоичной сс в десятичную

[Korsar]

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

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

Сообщение отредактировано: Korsar - 3.12.2006 17:50