«Exitcode 5» при запуске программы на тему «файлы»

@Парнишка · Регистрация: 21.01.2013

Author24 — интернет-сервис помощи студентам

Из учебника «Песни о Паскале» задание:

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

Моя тестовая программа вылетает с «exitcode 5». Скажите, пожалуйста, в чём дело?

Pascal    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
{Программа связывает один текстовый файл с двумя файловыми переменными. Что будет?}
program p_25_5;
var
  F1,F2 : Text; {файловые переменные}
 
{выводит файл на экран}
procedure WriteFile(var F : Text);
var
  S : string;
begin
  while not EoF(F) do
  begin
    ReadLn(F,S); {читаем строку}
    WriteLn(S); {выводим строку}
  end;
end;
 
{главная программа}
begin
  {связать переменную и имя файла самой программы}
  Assign(F1,'p_25_5.pas');
  Assign(F2,'p_25_5.pas');
 
  {открыть файлы}
  Reset(F1);
  Reset(F2);
 
  {вывести файлы}
  WriteFile(F1);
  WriteLn;
  WriteFile(F2);
 
  {закрыть файлы}
  Close(F1);
  Close(F2);
 
  ReadLn; {пауза}
end.

@orange_rush · 21.01.2013, 21:08

скорее всего потому что файл с таким именем уже должен быть создан. это команда "rewrite" создаёт если еще нету!

@volvo · 21.01.2013, 21:16

Даже если файл 'p_25_5.pas' уже существует, в момент второго вызова Reset (строка №26 в исходнике) вылетит ошибка. Вопрос: почему?

@orange_rush · 21.01.2013, 22:00

ды я её только что запускал всё работает почему ошибка ????

@Парнишка · 21.01.2013, 22:44 **[ТС]**

В «ответах» автор учебника приводит своё решение, но у меня оно тоже вылетает с «exitcode = 5»:

Pascal    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
program p_25_6;
var
  F1, F2: text;
begin
  Assign(F1, 'p_25_6.pas');
  Assign(F2, 'p_25_6.pas');
  Reset(F1);  Reset(F2);
  Writeln('OK!');
  Readln;
end.

@volvo · 21.01.2013, 22:49

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

ды я её только что запускал всё работает

Не будет она работать под FPC без доп. телодвижений. FPC устанавливает переменную FileMode в значение 2, то есть Read/Write. При этом значении нельзя открыть один и тот же файл дважды. Если перед открытием файлов сбросить FileMode в 0 (Read Only), то оба Reset-а прекрасно отрабатывают...

@orange_rush · 21.01.2013, 22:59

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

Не будет она работать под FPC без доп. телодвижений. FPC устанавливает переменную FileMode в значение 2, то есть Read/Write. При этом значении нельзя открыть один и тот же файл дважды. Если перед открытием файлов сбросить FileMode в 0 (Read Only), то оба Reset-а прекрасно отрабатывают...

а ну я в тп7 запускал

@Paster Fob · 21.01.2013, 23:31

Парнишка, Задавайте вопросы автору,он ответит
http://freepascal.ru/forum/viewforum.php?f=45

@Парнишка · 21.01.2013, 23:37 **[ТС]**

UI, спасибо, filemode := 0 перед Reset(F) всё исправило.

Новые блоги и статьи Все статьи Все блоги /
Django или Flask: что выбрать для веб-разработки на Python py-thonny 13.03.2025 Django – это высокоуровневый фреймворк, который придерживается философии "всё включено". Он предоставляет разработчику готовые решения для большинства типичных задач веб-разработки: от аутентификации. . .	Непрерывное развертывание в Java с Kubernetes Javaican 13.03.2025 Чем так привлекателен Kubernetes для развертывания Java-приложений? Этот оркестратор контейнеров позволяет автоматизировать развертывание, масштабирование и управление контейнеризированными. . .	Предотвращение XSS, CSRF и SQL-инъекций в JavaScript run.dev 13.03.2025 JavaScript занимает первые позиции среди языков веб-разработки, но его распространенность делает его привлекательной целью для злоумышленников. Межсайтовый скриптинг (XSS), межсайтовая подделка. . .	PHP 8: JIT-компиляция и улучшение производительности Jason-Webb 13.03.2025 PHP никогда не славился своей скоростью. Многие сталкивались с проблемами производительности при работе со сложными вычислениями или обработкой больших объемов данных. Традиционная модель выполнения. . .	Сериализация данных с Apache Avro в Kafka Javaican 12.03.2025 Apache Kafka стала одним из ключевых решений для работы с большими потоками данных. Однако с ростом объемов передаваемых данных возникает проблема: как эффективно сериализовать и десериализовать. . .
Создание потребителей Kafka с помощью Reactor Kafka Javaican 12.03.2025 Reactor Kafka — это библиотека, объединяющая Apache Kafka с реактивным программированием на базе Project Reactor. Такое сочетание позволяет строить неблокирующие, асинхронные приложения с контролем. . .	Ключевые слова Python py-thonny 12.03.2025 Ключевые слова — не просто часть синтаксиса, а настоящий каркас языка, определяющий его возможности и ограничения. В Python существует 35 ключевых слов и 4 так называемых "мягких ключевых слова" —. . .	Сортировка в Python: Подробный обзор sorted() и .sort() py-thonny 12.03.2025 В Python для решения задач сортировки предусмотрены два основных инструмента: функция sorted() и метод . sort(). На первый взгляд, различия между ними могут показаться незначительными, но когда дело. . .	Автоматизация задач в HCL Notes Mr. Docker 12.03.2025 Если вы когда-нибудь работали с HCL Notes (раньше известным как Lotus Notes), то наверняка испытали смешанные чувства. С одной стороны, это мощная платформа для корпоративных приложений, с другой —. . .	Установка и настройка HCL Notes Mr. Docker 12.03.2025 HCL Notes (ранее известный как IBM Notes и Lotus Notes) — это не просто почтовый клиент, а целая корпоративная платформа для коллективной работы. Если вы когда-нибудь попадали в компанию, где все. . .

@orange_rush 142 / 148 / 116 Регистрация: 15.11.2012 Сообщений: 537 Записей в блоге: 2
	21.01.2013, 21:08	2
	скорее всего потому что файл с таким именем уже должен быть создан. это команда "rewrite" создаёт если еще нету! 0

@volvo Супер-модератор 33105 / 21402 / 8217 Регистрация: 22.10.2011 Сообщений: 36,730 Записей в блоге: 9
	21.01.2013, 21:16	3
	Даже если файл 'p_25_5.pas' уже существует, в момент второго вызова Reset (строка №26 в исходнике) вылетит ошибка. Вопрос: почему? 0

@orange_rush 142 / 148 / 116 Регистрация: 15.11.2012 Сообщений: 537 Записей в блоге: 2
	21.01.2013, 22:00	4
	ды я её только что запускал всё работает почему ошибка ???? 0

@volvo Супер-модератор 33105 / 21402 / 8217 Регистрация: 22.10.2011 Сообщений: 36,730 Записей в блоге: 9
	21.01.2013, 22:49	6
	Сообщение было отмечено как решение Решение Сообщение от orange_rush ды я её только что запускал всё работает Не будет она работать под FPC без доп. телодвижений. FPC устанавливает переменную FileMode в значение 2, то есть Read/Write. При этом значении нельзя открыть один и тот же файл дважды. Если перед открытием файлов сбросить FileMode в 0 (Read Only), то оба Reset-а прекрасно отрабатывают... 3

@orange_rush 142 / 148 / 116 Регистрация: 15.11.2012 Сообщений: 537 Записей в блоге: 2
	21.01.2013, 22:59	7
	Сообщение от UI Не будет она работать под FPC без доп. телодвижений. FPC устанавливает переменную FileMode в значение 2, то есть Read/Write. При этом значении нельзя открыть один и тот же файл дважды. Если перед открытием файлов сбросить FileMode в 0 (Read Only), то оба Reset-а прекрасно отрабатывают... а ну я в тп7 запускал 0

@Paster Fob 296 / 274 / 194 Регистрация: 03.05.2012 Сообщений: 570
	21.01.2013, 23:31	8
	Парнишка, Задавайте вопросы автору,он ответит http://freepascal.ru/forum/viewforum.php?f=45 1

@Парнишка 0 / 0 / 0 Регистрация: 21.01.2013 Сообщений: 3
	21.01.2013, 23:37 [ТС]	9
	UI, спасибо, filemode := 0 перед Reset(F) всё исправило. 0

«Exitcode 5» при запуске программы на тему «файлы»

Решение