IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> поиск в файле
Aivan
сообщение 21.11.2006 20:56
Сообщение #1


Гость






Здравствуйте такая задача стоит передомной. Задётся алфавит, а в файле етсь некий текст, нужно в этом тексте найти такие символы которые ен соответствуют алфавиту.... (ну пробел и конеч строки по всей видимости считаются в алфавите по умолчанию)...

я пытался написать что - то вроди этого, но не делает она нужного сам не понимаю почему...помогите плз...
program asd;
Uses
    CRT;
var
    fil,
    fout     : Text;
    count,
    count2,
    count3,
    ts       : Byte;
    str,
    rts      : array [1..100] of String;
    chp      : char;
    bol      : Boolean;
begin
    ClrScr;
              Assign(fil, 'C:/12.txt');
              Assign(fout, 'C:/123.txt');
              Reset(fil);
              ReWrite(fout);


              ts := 1;


              for count := 1 to 3 do
                  begin
                        Write('‚ўҐ¤ЁвҐ [',count,']=');
                        ReadLn(rts[count]);

                  end;                                         bol := False;

              while NOT EOF(fil) do
              begin
                  ReadLn(fil, chp);
                            writeln(chp);
                  for count:= 1 to 3 do
                        begin
                              if chp = rts[count] then Bol := True;
                              if (count = 3) and (bol = False) then WriteLn(chp);

                        end;
               end;



{              for count:= 1 to ts do
                  for count2:= 1 to length(str[count]) do
                      for count3:= 1 to 3 do
                          begin
                               chp :=  Copy(str[count2],count2,1);
                               if (count3 = 3) and (bol = False) then WriteLn(chp);
                               if chp = rts[count3] then bol := True;
                          end;

 }
              close(fout);
              close(fil);
    ReadKey;
end.


М
Используй теги кода Паскаля, а не Цитату. Lapp

 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 28.07.2025 20:49
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"