Задача на файлы. Дано предложение. Каждое слово оканчивающееся на 'a' переписать в творительном падеже. Результат вывести на экран

[ANTON1994]

как прописать путь? не вьехал немного

[MisterDie]

Скачайте PascalABC.NET и не парьтесь!
Он создаст вам input.txt в папке, в которой будет находиться ваша программа. (Можно, например, на рабочем столе)

[Poma][a]

MisterDie, может сначала нужно было со всей темой ознакомиться?

как прописать путь? не вьехал немного

Например : C:\FPC\2.6.2\bin\i386-win32\input.txt

Тоесть будет :

Assign(input, 'C:\FPC\2.6.2\bin\i386-win32\input.txt')

[Sciv]

c:\program2.exe
exited with
exitcode =2

По-моему, имеет смысл в настройках пути компиляции проверить. Что-то у меня такое подозрение, что exe-файл создается не там, где надо.

[ANTON1994]

uses crt;
var
 s, wrd : string;
 i : Integer;

procedure initFiles;
begin
  Assign (input, 'input.txt');
  Reset (input);

  Assign (output, 'output.txt');
  Rewrite (output);
end;


procedure loop;
begin

  while not EoF do begin
  ReadLn (s);
  s := s + ' ';
  wrd := '';

  for i := 1 to Length(s) do
     if s[i] = ' ' then begin

     rememberWord;

     end else  wrd := wrd + s[i]
  end
end;


procedure rememberWord;
begin
  if wrd[Length(wrd)] = 'а' then begin
    Delete (wrd, Length(wrd)-1, 1);
    WriteLn (wrd + 'ой')
  end;
  wrd := ''
end;

begin
  clrscr;

  initFiles;
  loop;

end.

Помогите отладить пожалуйста!!



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

так?

uses crt;
var
  s, wrd: string;

procedure initFiles;
begin
  Assign(input, 'input.txt');
  Reset(input);

  Assign(output, 'output.txt');
  Rewrite(output);
end;

procedure rememberWord;
begin
  if wrd[Length(wrd)] = 'а' then begin
    Delete(wrd, Length(wrd), 1);
    WriteLn(wrd + 'ой')
  end;
  wrd := ''
end;


procedure loop;
var   
  i: Integer;
begin
  while not EoF do begin
    ReadLn(s);
    s := s + ' ';
    wrd := '';

    for i := 1 to Length(s) do
      if s[i] = ' '
        then rememberWord
      else wrd := wrd + s[i]
  end
end;

procedure CloseFiles;
begin
  Close(input);
  Close(output);
end;


begin
  clrscr;

  initFiles;
  loop;

  CloseFiles;

end.

[ANTON1994]

как проверить пути компиляции??

[Serge_Bliznykov]

как проверить пути компиляции??

очевидно - в найстроках компилятора Паскаля, которым Вы пользуетесь..

А у Вас программа работает?

Если да, просто не может найти исходный файл, тогда можно поступить по другому.
Задайте полные пути к исходному и выходным файлам.
Например, на диске D:\ в корню создайте папку MyProg
в эту папку ( D:\MyProg ) положите ваш исходный файл. Пусть он имеет имя input.txt.
измените процедуру так:

procedure initFiles;
begin
  Assign(input, 'D:\MyProg\input.txt');
  Reset(input);

  Assign(output, 'D:\MyProg\output.txt');
  Rewrite(output);
end;

Обратите внимание, что важно то, в какой кодировке у Вас в файле русские буквы.

[ANTON1994]

ребят, а можно программку как то под паскаль abc сделать? и вопрос есть зачем два файла создаём? просто видел подобные проги и там был только один файл в котором записаны склоняемые слова.

[Poma][a]

фи.. Опять этот не хороший компилятор

uses crt;
var
  s, wrd: string;
  f : file of string;

procedure initFiles;
begin
  Assign(f, 'input.txt');
  Reset(f)

end;

procedure rememberWord;
begin
  if wrd[Length(wrd)] = 'à' then begin
    Delete(wrd, Length(wrd), 1);
    wrd := wrd+'îé'
  end;
  
  WriteLn (wrd);
  wrd := ''
end;


procedure loop;
var
  i: Integer;
begin
  while not EoF(f) do begin
    ReadLn(s);
    s := s + ' ';
    wrd := '';

    for i := 1 to Length(s) do
      if s[i] = ' '
        then rememberWord
      else wrd := wrd + s[i]
  end
end;

procedure CloseFiles;
begin
  Close(f)
end;


begin
  clrscr;

  initFiles;
  loop;

  CloseFiles;

end.