Строки.

[hewlett]

1. Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Вывести на экран все символы, расположенные вне этих скобок.
2. Результаты вступительных экзаменов представлены в виде списка из N строк, в каждой строке которого записаны фамилия студента и отметки по каждому из M экзаменов. Определить количество абитуриентов, сдавших вступительные экзамены только на "отлично".
3. Дана строка, содержащая текст, заканчивающаяся точкой. Вывести на экран слова, содержащие три буквы.

[Sparky]

пока сижу на паре набросала первую прогу

program str;
var
   s:string;
   i:integer;
begin
     writeln('введите строку');
     read(s);
     for i:=1 to length(s) do
     begin
          if s[i]='''' then
          begin
               inc(i);
               while (s[i]<>'''') and (i<length(s)) do
                     inc(i);
          end
          else write(s[i]);
     end;
end.

[p51x]

2 и 3 точно были.

1.

йа_множество = ['(',')'];
йа_флажок = правда;

йа_цикл_фор_по_всей_длине_строки(йа_счетчик)
  йа_условие(йа_строка[йа_счетчик] в йа_множество)
    йа_флажок = не йа_флажок

  йа_условие(йа_флажок)
    йа_выводилко(йа_строка[йа_счетчик])

[Grag]

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

пока сижу на паре набросала первую прогу

program str;
var
   s:string;
   i:integer;
begin
     writeln('введите строку');
     read(s);
     for i:=1 to length(s) do
     begin
          if s[i]='''' then
          begin
               inc(i);
               while (s[i]<>'''') and (i<length(s)) do
                     inc(i);
          end
          else write(s[i]);
     end;
end.

И что делает эта прога??? Ты полагаешь тут будут найдены '(' и ')' ???
Изменять параметр цикла i внутри самого цикла - признак дурного тона программирования!!!


1. Читаем строку.
2. Определяем позицию вхождения символа '('. Если позиция = 0, то выходим из проги вообще,
иначе определяем позицию вхождения символа ')'.
3. Если позиция символа ')' равна 0, то выводим часть строки до символа '(', иначе выводим еще и оставшуюся часть строки после символа ')'
Вот, собственно и все...

[p51x]

2 Grag
А где в задании сказано, что рассматривается только вариант: текст(текст)текст?

[Grag]

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

2 Grag
А где в задании сказано, что рассматривается только вариант: текст(текст)текст?

А ты внимательно читать умеешь???
Вот кусок задания:

1. Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Вывести на экран все символы, расположенные вне этих скобок.