Как составить таблицу рекордов в текстовой файле?

@just a dream · Регистрация: 10.08.2013

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

Практикуюсь в паскале, создал мини-игру, правда текстовую, и в конце когда персонаж умирает, он пишет сколько дней ты прожил. Как сделать чтобы данные сколько дней ты прожил и имя игрока вписывались в отдельный текстовый файл? и в дальнейшем, при очередных запусках игры данные обновлялись, а старые данные не удалялись.
И если возможно, то допустим на третий раз человек прожил самое много дней, чтобы в текстовом файле самое большое количество дней было на первом месте. как таблица рекордов.
надеюсь понятно объяснил)

@Виталий5 · 10.08.2013, 19:37

как это должно выглядеть в файле? напиши пример после двух игр.

@Puporev · 10.08.2013, 19:41

Сообщение от just a dream

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

Если файла еще нет, то rewrite(f), если есть, то append(f).
writeln(f,dni,' ',name);

Добавлено через 3 минуты
Сортировка в текстовом файле невозможна, поътому читаем файл и пишем данные в массив записей.
Массив сортируем и переписываем отсортированные данные в файл, предварительно обновив его rewrite(f)

@just a dream · 10.08.2013, 19:43 **[ТС]**

прошу прощения. не дополнил, допустим впервый раз я прожил 96 дней. При последующем запуске игры, я прожил 124 дня. ТОгда он пишет поздравляю, вы установили рекорд, и делает в файле меня первым, а предыдущей раз вторым:
1) 124 дня
2) 96 дней.

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

@Виталий5 · 10.08.2013, 19:45

У меня встречный вопрос, как программа узнает - файл с данными есть или его нужно создать( первый запуск ) ?

@just a dream · 10.08.2013, 19:46 **[ТС]**

файл уже создался операциями:

Pascal
1
2
assign(f,'game.txt');
rewrite(f);

в самом начале

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
until (health<1) or (food<1) or (money<1) or (love<10) or (criminal>99);
textcolor(11);
if health<1 then writeln ('Вы умерли из-за здоровья на день номер = ',point)
        else if food<1 then writeln('Вы умерли из-за еды на день номер = ',point)
                else if money<1 then writeln('Вы умерли из-за денег на день номер = ',point)
                        else if love<10 then writeln('Вы умерли из-за любви на день номер = ',point)
                                else if criminal>99 then writeln('Вы умерли из-за криминальности на день номер = ',point)
                                        else writeln('Вы умерли по многим причинам на день номер = ',point);
        textcolor(13);
        
        
        writeln(f,'Ваш рекорд = ',point,' дней');
        close(f);

Где переменная point:integer, количество прожитых дней, они вносятся в нужный мне файл. Как потом взять это количество дней из файла? и сравнить? есть ли операция, через которую можно брать опеределные слова по счету из текстового файла. что-то я подзабыл.
спасибо.

@Puporev · 10.08.2013, 19:50

Сообщение от Виталий5

как программа узнает - файл с данными есть или его нужно создать

Pascal
1
2
3
assign(f,'1.txt');
if fileesists(f,'1.txt') then append(f)
else rewrite(f);

Добавлено через 1 минуту

Сообщение от just a dream

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

Я Вам написал, что файл нужно прочитать в массив, отсортировать и снова записать в файл.

@MaxStein · 10.08.2013, 19:52

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

Я Вам написал, что файл нужно прочитать в массив, отсортировать и снова записать в файл.

А как это сделать? есть ли у вас примеры данной вещи?
а то самому стало интересно

@Puporev · 10.08.2013, 19:54

А просто прочитать данные с нужным номером только так.

Pascal
1
2
3
4
5
6
7
i:=0;
while not eof(f) do
 begin
  readln(f,s);
  i:=i+1;
  if i=n then s1:=s;
 end;

Добавлено через 52 секунды

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

А как это сделать?

Так читай, учи, я за тебя писать буду игрушку?

@just a dream · 10.08.2013, 19:54 **[ТС]**

Спасибо, сейчас попробую.

@Виталий5 · 10.08.2013, 19:55

Puporev, fileesists неизвестное имя пишет

@Puporev · 10.08.2013, 19:55

Почитай про тип записи, record.
Как создать массив записей, как отсортировать массив.
Если не изучишь основы нечего и заниматься программированием

@MaxStein · 10.08.2013, 19:55

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

Так читай, учи, я за тебя писать буду игрушку?

Я сильно старый для этого уже, просто действительно инетересно, что автор затеял.

@Puporev · 10.08.2013, 19:56

FileExists

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@just a dream 2 / 2 / 3 Регистрация: 10.08.2013 Сообщений: 30

	Как составить таблицу рекордов в текстовой файле? 10.08.2013, 19:28. Показов 1530. Ответов 13 Метки нет (Все метки) Практикуюсь в паскале, создал мини-игру, правда текстовую, и в конце когда персонаж умирает, он пишет сколько дней ты прожил. Как сделать чтобы данные сколько дней ты прожил и имя игрока вписывались в отдельный текстовый файл? и в дальнейшем, при очередных запусках игры данные обновлялись, а старые данные не удалялись. И если возможно, то допустим на третий раз человек прожил самое много дней, чтобы в текстовом файле самое большое количество дней было на первом месте. как таблица рекордов. надеюсь понятно объяснил) 0

@Виталий5 6 / 6 / 3 Регистрация: 15.06.2013 Сообщений: 69
	10.08.2013, 19:37
	как это должно выглядеть в файле? напиши пример после двух игр. 0

@just a dream 2 / 2 / 3 Регистрация: 10.08.2013 Сообщений: 30
	10.08.2013, 19:43 [ТС]
	прошу прощения. не дополнил, допустим впервый раз я прожил 96 дней. При последующем запуске игры, я прожил 124 дня. ТОгда он пишет поздравляю, вы установили рекорд, и делает в файле меня первым, а предыдущей раз вторым: 1) 124 дня 2) 96 дней. Как сделать чтобы он брал результат из текстового файла, анализировал больше он или меньше чем количество дней которое я прожил сейчас 0

@Виталий5 6 / 6 / 3 Регистрация: 15.06.2013 Сообщений: 69
	10.08.2013, 19:45
	У меня встречный вопрос, как программа узнает - файл с данными есть или его нужно создать( первый запуск ) ? 0

@just a dream 2 / 2 / 3 Регистрация: 10.08.2013 Сообщений: 30
	10.08.2013, 19:54 [ТС]
	Спасибо, сейчас попробую. 0

@Виталий5 6 / 6 / 3 Регистрация: 15.06.2013 Сообщений: 69
	10.08.2013, 19:55
	Puporev, fileesists неизвестное имя пишет 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	10.08.2013, 19:55
	Почитай про тип записи, record. Как создать массив записей, как отсортировать массив. Если не изучишь основы нечего и заниматься программированием 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	10.08.2013, 19:56
	FileExists 1

Как составить таблицу рекордов в текстовой файле?

Решение