Question

Uses crt; var f:text; g:string; c:char; begin write('введите имя файла'); read(g); assign(f,g); rewrite(f); writeln('введите текст, который нужно записать'); writeln('по окончанию нажмите "esc"'); repeat write(f,c); write(c); if c='13' then writeln; until c='27'; close(f); end.где здесь ошибка? он мне пишет что не закрыта 1 программа... это abc pascal

Answer 1

А первая строка где? 
Пример:
Program primer;
Смотрите у меня открывается, только вот так
Вот видишь и тут открывается

Answer 2

В данной программе на языке Pascal есть несколько ошибок.

1. Отсутствует объявление переменной `c`. 2. Неправильное использование функции `write` для записи символа в файл. Вместо `write(f,c)` нужно использовать `write(f, c)`. 3. Неправильное условие выхода из цикла. Вместо `until c = '27'` нужно использовать `until c = #27`, так как символ "esc" имеет код ASCII 27. 4. Отсутствует закрытие файла после окончания записи. Необходимо добавить `close(f)` перед `end.`.

Исправленный код будет выглядеть следующим образом:

uses crt;
var
  f: text;
  g: string;
  c: char;
begin
  write('Введите имя файла: ');
  readln(g);
  assign(f, g);
  rewrite(f);
  writeln('Введите текст, который нужно записать');
  writeln('По окончанию нажмите "esc"');
  repeat
    readln(c);
    write(f, c);
    write(c);
    if c = #13 then
      writeln;
  until c = #27;
  close(f);
end.

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