Текстовый файл

@Элли · Регистрация: 24.12.2009

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

Помогите плз решить задачку!!!!!!!!

О каждом из студентов известны фамилия и оценка, полученная на экзамене(3,4,5). Вывести список студентов так, чтобы сначала располагались фамилии студентов, сдавших экзамен на 5, затем фам. сдавших на 4 и т.д. Порядок следования студентов, получивших одну и ту же оценку сохраняется.
Решить задачу с использованием файла записей. Текстовый файл с исходными данными создать с помощью любого экранного редактора.

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

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Program FZ_28;
uses crt;
type dan=record
     name:string[15];
     otsenka:byte;
     end;
var f:text;
    p:array[0..100]of dan;
    n,i:integer;
    flag:boolean;
 
{Сортировка по убыванию}
Procedure Sort;
var
t:dan;
Stop:boolean;
begin
while not EOF(f) do
read(f,p[i].name,p[i].otsenka);
repeat
Stop:=true;
for i:=1 to n do
if p[i].otsenka<p[i+1].otsenka then
begin
t:=p[i];
p[i]:=p[i+1];
p[i+1]:=t;
Stop:=false
end;
until Stop;
write(f,p[i].name,p[i].otsenka);
end;
{Чтение файла}
Procedure ReadFile(var b:text);
begin
reset(b);
while not Eof(f) do
begin
readln(b,p[i].name,p[i].otsenka);
writeln(p[i].name:15, p[i].otsenka:5)
end;
writeln; end;
{Основная программа}
begin
assign(f,'d:\student.txt');
reset(f);
Writeln('Файл:');
readfile(f);
{Сортируем}
sort;
writeln;
Writeln('Список студентов:');
for i:=0 to n do
writeln(p[i].name:15, p[i].otsenka:5);
close(f);
readkey;
end.

вот мои мысли на счет этой задачки, ток она не работает выдает 106 ошибку чтения...

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

Code
1
2
3
4
5
Ivanov 4
Petrov 3
Sidorov 5
Antonov 2
Alekseev 3

а вот текстовый файл, который используется в программе

Добавлено через 35 секунд
Помогите кто чем может!!!!! Очень прошу...!)

@demidrolll · 30.12.2009, 00:24

Сообщение от Элли

Решить задачу с использованием файла записей. Текстовый файл с исходными данными

У Вас используется текстовый файл, или все же типизированный?

@Элли · 30.12.2009, 00:39 **[ТС]**

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

У Вас используется текстовый файл, или все же типизированный?

используется текстовый файл записей

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

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

@кот Бегемот · 30.12.2009, 01:37

что-то с чтением не то

@Элли · 30.12.2009, 20:25 **[ТС]**

в том-то и дело...

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	30.12.2009, 01:37
	что-то с чтением не то 0

@Элли 0 / 0 / 0 Регистрация: 24.12.2009 Сообщений: 8
	30.12.2009, 20:25 [ТС]
	в том-то и дело... 0