Типизированные файлы

@dima · Регистрация: 21.03.2012

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

Помогите дорешать задачу (хоть как то начал делать)
В файле хранится информация о правонарушениях по региону N за 5 лет в следующем виде: наименование правонарушения и кол-во правонарушений данного вида за каждый год. Извесно кол-во жителей данного региона.Сформировать файл, в котором кроме перечисленной информации имеется 2 графы: кол-во преступлений данного вида в расчете на душу населения и среднегодовое кол-во преступлений данного.
Очень нужна программа для работы.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program baza;uses crt;
prav=record;
name:string[20];
count:array [1..5] of integer;
f1:file of integer;
end;
begin
textcolor(green);clrscr;
write('Vvedite imya faila:');
readln(name);
assign(f1, name);
rewrite(f1);
for i:=1 to 5 do
    begin
    year:=year+count[i]
    year:=year/5;
           end.

хоть немного начал делать :-( помогите дорешать нужна на завтра позарез.

Vourhey · 31.05.2007, 01:47

Мне кажется программа в принципе неверно написана. Насколько я понял, ты хочешь создать тип "запись". Тогда

prav=record;

мне не понятен.
Нет никаких полей записи. Где ключевое "type"?

f1:file of integer;

Файл ты объявил, как будто в нем только целые числа. Там же еще наименование правонарушения. Думаю, наименование имеет строковый тип. Потом файл у тебя уже существует, а ты с ним "rewrite(f1);" делаешь, что сотрет все данные.

year:=year+count[i]
year:=year/5;

переменная неизвестно откуда взялась.

Вобщем, надо разобраться в каком формате ты собираешься хранить данные. А только потом считывать их.

Например, можно чередовать. Сначала в файле идет строка правонарушения, на след-й строке количество. И так поочереди читать. Программу, ИМХО, надо писать с самого начала...

@dima · 01.06.2007, 01:36 **[ТС]**

можешь привести правильный текст проги а то я уже запутался в ней

Vourhey · 01.06.2007, 02:15

К сожалению, у меня нет готового примера.

02.06.2007, 02:27

ну подскажи как сделать

Vourhey · 02.06.2007, 03:08

Если формат брать, описанный мною выше, то все несложно. Открываешь файл на чтение (textfile). Считываешь поочередно строку с наименованием и количеством (заполняешь массивы). Потом подсчитываешь все, что требуется.
Первое - путем деления количества преступлений одного вида на кол-во жителей региона.
Второе - делением кол-ва преступлений одного вида на 5.
И пишешь все данные в новый текстовый файл...

@Волк · 03.06.2007, 00:48

ну покажи примерно как это делается в виде программы

Vourhey · 03.06.2007, 01:41

Написать кусок кода - напишу. Только что именно? Как файлы создаются? Или как открываются уже созданные? Что пояснить-то?

Для текстового файла тип text существует. Assign - связываешь с файлом на диске. Rewrite создаст новый файл или очистит, если файл был создан до этого. Чтобы просто открыть существующий вызови Reset. Читать и писать в файл обычными Read(ln), Write(ln).

@Волк · 03.06.2007, 22:03

Меня интересует вот это:Первое - путем деления количества преступлений одного вида на кол-во жителей региона.
Второе - делением кол-ва преступлений одного вида на 5.

Vourhey · 04.06.2007, 20:18

Что именно? Деление можно выполнить с помощью знака "/".

Новые блоги и статьи Все статьи Все блоги /
Управление камерой с помощью скрипта 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-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .

Vourhey Почетный модератор 7393 / 2639 / 281 Регистрация: 29.07.2006 Сообщений: 13,696
	31.05.2007, 01:47
	Мне кажется программа в принципе неверно написана. Насколько я понял, ты хочешь создать тип "запись". Тогда prav=record; мне не понятен. Нет никаких полей записи. Где ключевое "type"? f1:file of integer; Файл ты объявил, как будто в нем только целые числа. Там же еще наименование правонарушения. Думаю, наименование имеет строковый тип. Потом файл у тебя уже существует, а ты с ним "rewrite(f1);" делаешь, что сотрет все данные. year:=year+count[i] year:=year/5; переменная неизвестно откуда взялась. Вобщем, надо разобраться в каком формате ты собираешься хранить данные. А только потом считывать их. Например, можно чередовать. Сначала в файле идет строка правонарушения, на след-й строке количество. И так поочереди читать. Программу, ИМХО, надо писать с самого начала... 0

@dima 0 / 0 / 0 Регистрация: 21.03.2012 Сообщений: 8
	01.06.2007, 01:36 [ТС]
	можешь привести правильный текст проги а то я уже запутался в ней 0

Vourhey Почетный модератор 7393 / 2639 / 281 Регистрация: 29.07.2006 Сообщений: 13,696
	01.06.2007, 02:15
	К сожалению, у меня нет готового примера. 0


	02.06.2007, 02:27
	ну подскажи как сделать

Vourhey Почетный модератор 7393 / 2639 / 281 Регистрация: 29.07.2006 Сообщений: 13,696
	02.06.2007, 03:08
	Если формат брать, описанный мною выше, то все несложно. Открываешь файл на чтение (textfile). Считываешь поочередно строку с наименованием и количеством (заполняешь массивы). Потом подсчитываешь все, что требуется. Первое - путем деления количества преступлений одного вида на кол-во жителей региона. Второе - делением кол-ва преступлений одного вида на 5. И пишешь все данные в новый текстовый файл... 0

@Волк 0 / 0 / 0 Регистрация: 25.12.2009 Сообщений: 4
	03.06.2007, 00:48
	ну покажи примерно как это делается в виде программы 0

Vourhey Почетный модератор 7393 / 2639 / 281 Регистрация: 29.07.2006 Сообщений: 13,696
	03.06.2007, 01:41
	Написать кусок кода - напишу. Только что именно? Как файлы создаются? Или как открываются уже созданные? Что пояснить-то? Для текстового файла тип text существует. Assign - связываешь с файлом на диске. Rewrite создаст новый файл или очистит, если файл был создан до этого. Чтобы просто открыть существующий вызови Reset. Читать и писать в файл обычными Read(ln), Write(ln). 0

@Волк 0 / 0 / 0 Регистрация: 25.12.2009 Сообщений: 4
	03.06.2007, 22:03
	Меня интересует вот это:Первое - путем деления количества преступлений одного вида на кол-во жителей региона. Второе - делением кол-ва преступлений одного вида на 5. 0

Vourhey Почетный модератор 7393 / 2639 / 281 Регистрация: 29.07.2006 Сообщений: 13,696
	04.06.2007, 20:18
	Что именно? Деление можно выполнить с помощью знака "/". 0