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

[Poma][a]

Ну хорошо..

// откроем файлы для простоты в input и output

while not EoF do begin
      ReadLn (s);
      // теперь разбиваем строку на слова (примеров - уйма)
             if wrd[Length(wrd)] = 'a' then begin
                     // удаляем последний символ
                     WriteLn (wrd + 'ой')
             end;
end;

[ANTON1994]

а можно целиком в программе, ну если не затруднит.

[hon]

Вы <некоторый текст пропущен> в программировании!
Надо не лезть на форумы, а учиться хорошо!!!

Обверните код в begin ... end.
А объявления переменных самостоятельно!

Или же отправьте мне e-mail-сообщение и за небольшую плату:

1. Вы получите готовую программу с объявлениями переменных, в файле.
2. Вы сможете объяснить каждую строчку кода.
3. Вы сможете объяснить, почему вы использовали именно эти операторы, типы данных, и т.д.

[Poma][a]

hon, откуда столько ненависти??

var
    s, wrd : string;
    i : Integer;

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

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

    while not EoF do begin
        ReadLn (s);
        s := s + ' ';
        wrd := '';
        for i := 1 to Length(s) do
            if s[i] = ' ' then begin
                if wrd[Length(wrd)] = 'а' then begin
                    Delete (wrd, Length(s)-1, 1);
                    WriteLn (wrd + 'ой')
                end;
                wrd := ''
            end
            else
                wrd := wrd + s[i]
    end

end.

[ANTON1994]

извините а можно с подпрограммами ну что-то вроде этого

uses crt;
const vid: array[1..3] of integer = (100, 200, 300);

  n = 3;
type zap = record ;
    fio: string[10];
    rez: byte;
    kolvo: array[1..3] of integer;
    st: integer;
  end;
  mas = array[1..n] of zap;
var a: mas;

procedure vvod(var a: mas);
var i, j, fio, st, kolvo: byte;
begin
  for i := 1 to n do begin
    writeln('Введите данные', i, 'zap');
    with a[i] do begin
      write('Fio '); readln(fio);
      write('Введите количество акций первого вида '); readln(kolvo[1]);
      write('Введите количество акций второго вида '); readln(kolvo[2]);
      write('Введите количество акций третьего вида '); readln(kolvo[3]);
      st := 0;
      for j := 1 to 3 do
        st := st + vid[j] * kolvo[i];
    end; end; end;

procedure print(a: mas);
var i: byte;
begin
  for i := 1 to n do
    writeln(a[i].fio: 10, a[i].st: 5);
end;

procedure Max(a: mas);
var max: real; i: integer;
begin
  max := a[1].st;
  for i := 2 to n do
    if a[i].st > max then max := a[i].st;
  for i := 1 to n do
    if a[i].st = max then writeln(a[i].fio, a[i].st: 8);
  readln;
end;
begin clrscr;
  vvod(a);
  print(a);
  max(a);
  readln
end.

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

[Poma][a]

извините а можно с подпрограммами ну что-то вроде этого

Ну а почему Вам самому не сделать? Хотя бы попытайтесь! А мы поправим!

[s-andriano]

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

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

Что Вы подразумеваете под словом "ввести"?

[ANTON1994]

на inpute выдаёт ошибку ' неизвестный идентификатор"

[Poma][a]

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

на inpute выдаёт ошибку ' неизвестный идентификатор"

FP ни о какой ошибке не знает!
Какой у Вас компилятор?

[ANTON1994]

у меня PASCAL ABC