Pascal.Файлы.

[Mariya0202]

СПАСИБО!!!СПАСИБО!!!СПАСИБО!!!

[Mariya0202]

люди,всё делаю как вы подсказали,а комп мне пишет:File not founded...Что мне делать???

[ОДИНОЧЕСТВО В СЕТИ]

File not founded...Что мне делать???

в папке с проектом создать текстовый файл input.txt и ввести в него текст!

[Mariya0202]

делала...всё равно то же самое пишет...

[ОДИНОЧЕСТВО В СЕТИ]

код покажите свой полностью! и на какой строке ругается покажите!

[DeKot]

Mariya0202 начните с простого. Первое что надо знать - при работе с файлами обязательно нужно выполнить три правила:
1. Открыть файл, если он существует, или создать файл, если его еще нет.
2.Выплняете операции с файлом (чтение, запись, редактирование).
3.Закрыть файл ( именно в момент закрытия файла в него вносятся все изменения).
Научимся для начала создавать файл.

Program _CreateFile;
var f: text; // это переменная, через которую будем "связыватся " с файлом
begin
  Assign(f,'newfile.txt'); // "привязываем" переменную f к конкретному файлу 'newfile.txt'
  Rewrite(f); // открываем файл для записи, если он существует.Если его нет - создастся новый пустой файл
  Writeln(f,'первая строка записи'); // сделали запись в файл
  Close(f); // закончили работу с файлом и закрыли его
end;

Создали файл (посмотрите в папку с проектом).
Прочитаем этот файл.

program _ReadFile;
var f: text; // уже знаем что это
   _read: string; // в эту строковую переменную считаем текст из файла
begin
  Assign(f,'newfile.txt');
  Reset(f); // открываем для чтенния
  Read(f,_read); // считываем текст
  //  далее  выводите _read на консоль или куда нужно Паскалевскими методами
  Close(f); 
end;

Поиграйтесь этими простыми процедурами с файлами и уже потом переходите к задачам посложнее.

[Mariya0202]

Спасибо ОГРОМНОЕ за ваше участие и подсказки,но мне очень нужно решить именно ту задачку,условие к-ой я написала сначала...Очень прошу написать и объяснить решение именно МОЕЙ задачки...Очень устала...Ничего не получается...Такое ощущение,что скоро с ума сойду...

[ОДИНОЧЕСТВО В СЕТИ]

var s,sub:string;
    i,j,n:integer;
    a:array[1..100] of string;
    q:set of char;
    f,f1:textFile;
function ob(var s:string):Boolean;
  var f:Boolean;
   i,j:Integer;
  begin
    f:=True;
    for i:=1 to Length(s) do
      begin
        for j:=2 to Length(s) do
          if (s[i]=s[j]) and (i<>j) then
            begin
              f:=False;
              Break;
            end;
        if not f then Break;
      end;
    ob:=f;
  end;
begin
Assign(f,'input.txt');
Assign(f1,'output.txt');
Reset (f);
Rewrite(f1);

while not Eof(f) do begin
Readln(f,s);
i:=0;n:=0;
q:=[' ',',' , '-', '!', '?', ';',':','.'];
repeat
inc(i);
if s[i] in q then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   end
else if not (s[i] in q) then sub:=sub+s[i];
until (i=length(s));
if sub<>'' then begin
inc(n);
a[n]:=sub;
end;
for i:=1 to n do
if ob(a[i]) then writeln(f1,a[i]);
end;
 CloseFile(f);
 CloseFile(f1);
 Writeln('----access denied---');
 Readln;
end.

жирным то что добавилось к предыдущей проге! ну а обьяснять ничего не буду если за 16 постов ничего не поняли то я вряд ли смогу доходчиво объяснить!

[Mariya0202]

СПАСИБО!!!СПАСИБО!!!СПАСИБО!!!Я очень блгодарна всем,кто оказал мне помощь,а Вам,ОДИНОЧЕСТВО В СЕТИ,особенно большое спасибо!!!

[Mariya0202]

люди...повешусь скоро...Он мне опять ошибку выдаёт...Теперь он мне пишет:File not open for input...У Ж А С!!!жить не хочется...