Создание текстого файла

@Maxim_astreiko · Регистрация: 27.08.2019

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

Помогите найти ошибку и помогите исправить , пожалуйста

Вот програма создания текст файла :

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program TextOut;
const name = 'text.txt'; 
var f : text; 
 I,J : integer; 
begin
assign(f,name); 
rewrite(f); 
 for i:=1 to 10 do
begin
 for j:=1 to 10 do write(f,i*j:4);
 writeln(f);
 end;
 
 
 
close(f); 
end.

Вот програма открытия :

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program TextIn;
Uses CRT;
const name = 'text.txt';
var f : text; 
 a,b : integer; 
 
begin
assign(f,name); 
reset(f);
repeat
 readln(f,a,b); 
 writeln(a:5,b:5);
until Eof(f); 
close (f);
end.

@JuriiMW · 28.08.2019, 03:46

Во-первых, во второй программе, если она должна читать данные из текстового файла, созданного первой, то ошибка в строке 11.

Во-вторых, а в чём суть задачи?

Ну и в-третьих, если вы находитесь в разделе PascalABC.NET, то код должен быть данного IDE, а не а-ля „Турбо Паскаль“…

@Joy · 28.08.2019, 08:49

Maxim_astreiko,
текстовый файл успешно создался (таблица умножения):

Code
1
2
3
4
5
6
7
8
9
10
   1   2   3   4   5   6   7   8   9  10
   2   4   6   8  10  12  14  16  18  20
   3   6   9  12  15  18  21  24  27  30
   4   8  12  16  20  24  28  32  36  40
   5  10  15  20  25  30  35  40  45  50
   6  12  18  24  30  36  42  48  54  60
   7  14  21  28  35  42  49  56  63  70
   8  16  24  32  40  48  56  64  72  80
   9  18  27  36  45  54  63  72  81  90
  10  20  30  40  50  60  70  80  90 100

ваш код читает из каждой строки первое и второе число readln(f,a,b); и переходит на другую строку.
Чтобы читал все числа в строке и выводил их нужно исправить:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Program TextIn;
const name = 'text.txt';
var f : text; 
 a,b : integer; 
 
begin
assign(f,name); 
reset(f);
repeat
 while not eoln (f) do    begin  //пока не конец строки
     read(f,a); //читаем число БЕЗ перехода на другую строку
     write(a:5); //выводим на экран
   end;  
 readln(f); //переходим на другую строку в файле
 writeln; //переходим на другую строку на экране
until Eof(f); 
close (f);
end.

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

Ну и в-третьих, если вы находитесь в разделе PascalABC.NET, то код должен быть данного IDE, а не а-ля „Турбо Паскаль“…

в этой IDE этот код прекрасно компилируется, в чем недовольство?

@Пс · 28.08.2019, 20:14

Joy, тип говнокодство

@Joy · 29.08.2019, 02:15

Пс, я, признаться, сильно сомневаюсь, что начинают обучать паскалю с фишек из .Net

@Пс · 29.08.2019, 09:27

Joy, нет конечно,меня в школе обучали обычному паскалю,без .Net-штучек,но был установлен PABC.net;
И ТС скорее всего не исключение

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,060
	28.08.2019, 03:46
	Во-первых, во второй программе, если она должна читать данные из текстового файла, созданного первой, то ошибка в строке 11. Во-вторых, а в чём суть задачи? Ну и в-третьих, если вы находитесь в разделе PascalABC.NET, то код должен быть данного IDE, а не а-ля „Турбо Паскаль“… 0

@Пс 257 / 149 / 70 Регистрация: 29.07.2018 Сообщений: 1,249
	28.08.2019, 20:14
	Joy, тип говнокодство 0

@Joy 2388 / 1300 / 1492 Регистрация: 29.08.2014 Сообщений: 4,665
	29.08.2019, 02:15
	Пс, я, признаться, сильно сомневаюсь, что начинают обучать паскалю с фишек из .Net 0

@Пс 257 / 149 / 70 Регистрация: 29.07.2018 Сообщений: 1,249
	29.08.2019, 09:27
	Joy, нет конечно,меня в школе обучали обычному паскалю,без .Net-штучек,но был установлен PABC.net; И ТС скорее всего не исключение 0

Создание текстого файла

Решение