profile
Размещено 5 лет назад по предмету Информатика от Kaminskayaaa111

Требуется помощь в двух задачах, пишу сюда, ибо сам зашел в тупик. Желательно код с комментариями, дабы понять все:

1. Вывести на экран те строки файла, которые не содержат слово NO

Заранее спасибо

  1. Ответ на вопрос
    Ответ на вопрос дан Аккаунт удален
    ПаскальАВС.нет

    var
      f:text;
      s,t:string;
      i,n:integer;
      y:boolean;  //признак наличия слова NO  

    function wr(c:char):boolean; //определяет, буква или нет
    begin
    if (c in ['A'..'Z']) or (c in ['a'..'z']) then result:=true else result:=false
    end;

    begin
    assign(f,'d:/file.txt');
    reset(f);
    repeat
      readln(f,t);
      s:=t;
      y:=false;
      i:=pos('NO',s);
      while i>0 do
        begin
        n:=length(s);
        if n=2 then
           y:=true
           else
              begin
              if i=1 then
                 begin
                 if wr(s[i+2])=false then y:=true;
                 end
                 else
                     if wr(s[i-1])=false then y:=true;
              end;
        delete(s,1,i+2);
        i:=pos('NO',s);
        end; 
      if y=false then writeln(t);
      until f.Eof;
    close(f)
    end.  
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.