FreePascal.ru

WinXP, fpc - 2.4.2, прога нужна для TP 7. Компилируется нормально, во время запуска - Runtime error 103 - file not open. Пишу в Geany, удобный редактор.

Добавлено спустя 7 минут 34 секунды:
В этих циклах чтение идёт из массивов (во всяком случае так было задумано)

Используя очередь решить следующую задачу.
Type fr = file of real;
За один просмотр файла f типа fr и без использования дополнительных файлов напечатать элементы файла f в следующем порядке. Сначала все числа, меньше а, затем - все числа из отрезка [a, b] и, наконец, – все остальные числа, сохраняя ...

Вроде понял. Я тут книжек накачал надо посмотреть. Ещё раз спасибо, но я не прощаюсь, на очереди - очередь.

Спасибо. вот только в определении месяца длина year = 2, может просто записать так:


Добавлено спустя 58 минут 54 секунды:
Padre_Mortius
Спасибо большое за помощь ваш вариант значительно короче, и выглядит лучше.

Строку придётся мерить 3 раза, т.к. она может быть длиной 3..5, а после в зависимости от положения точки получить день и месяц. А год получить после усечения строки. Или нет?

Добавлено спустя 2 часа 47 минут 39 секунд:
Сейчас всё работает как надо, компилится в Geany и правильно работает ...

Длину строки всё равно нужно знать, а там уже плясать от положения точки.

Добавлено спустя 2 минуты 39 секунд:
Спасибо большое, на сегодня хватит. Спокойной ночи.

А как отсечь 3 символа с конца?

если дата 1.1.11 то day будет равен 1. , а надо 01. И с учётом того, что точка может стоять на 2, 3, 5, 6 позициях, короче вряд ли будет. Но я могу ошибаться - только учусь.

Добавлено спустя 2 минуты 31 секунду:
А , что с циклом? Если можно - пример.

Ошибаетесь.

По условию дата в файле должна быть в формате 1..31.1..12.00..99, а в отсортированных файлах в формате дд.мм.гг.

Не всё сортирует, может кто объяснит?

program Lr3;
uses crt;
var
date,summer,winter : text;
d,day, month, year : string;
procedure generator;
const n=60;
var
i : integer;
date: text;
day, month, year,data : string;
Begin
clrscr;
randomize;
assign (date, 'd:data ...

Пишу в Geany(fpc 2.4.2) для TurboPascal. Проблема одна не пишет в файлы зима, лето.

Добавлено спустя 4 минуты 18 секунд:
Попробовал запустить в TurboPascal - всё работает, а как в fpc сделать, чтобы в файлы писало.

Прочитать даты из файла и отсортировать их на зимние и летние, даты записать в свои файлы. Там где надо подставить 0(вместо 1.1.11 записать 01.01.11). Объясните пожалуйста почему не пишет в файлы?

program L;
uses crt, sysutils;
var
date,summer,winter : text;
d,day, month, year : string ...

Спасибо, теперь то что надо.

Добавлено спустя 2 часа 13 минут 24 секунды:
Программа выдала несколько дат с 0 поле день, месяц. Пришлось добавить.
Program gen;
Uses crt;
const n=60;
Var i: integer;
f : text;
day, month, year,data : string;
Begin
ClrScr;
randomize;
assign (f, 'd&#58 ...

Некоторые даты выводятся в формате 1.1.1, анадо - 1.1.01. А "маленькое уточнение" в моём случае роли не играет. Эта програмка нужна для создания файла с датами для последующей сортировки.