![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() ![]() |
![]() |
dem74 |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Реальное имя: Дмитрий Репутация: ![]() ![]() ![]() |
Вычислить средний балл учеников класса, если известны оценки каждого ученика по математике, русскому языку и физике. Распечатать список учеников, имеющих средний балл выше среднего в классе.
Задачу нужно решить с использованием типизированных файлов! Заранее всем благодарен |
Unconnected |
![]()
Сообщение
#2
|
![]() mea culpa ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 372 Пол: Мужской Реальное имя: Николай Репутация: ![]() ![]() ![]() |
Цитата Задачу нужно решить с использованием типизированных файлов! Оценки, значит, в этом самом файле? А каков формат файла? -------------------- "Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
|
dem74 |
![]()
Сообщение
#3
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Реальное имя: Дмитрий Репутация: ![]() ![]() ![]() |
|
volvo |
![]()
Сообщение
#4
|
Гость ![]() |
Цитата Формат файла DAT DAT - это не формат, а расширение... Ты расскажи о формате, что именно у тебя хранится в файле, в какой последовательности.Сообщение отредактировано: volvo - 15.01.2009 18:15 |
dem74 |
![]()
Сообщение
#5
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Реальное имя: Дмитрий Репутация: ![]() ![]() ![]() |
|
Lapp |
![]()
Сообщение
#6
|
![]() Уникум ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: ![]() ![]() ![]() |
1. Тебе понадобится тип:
type
tStudent=record
Name: string;
Mat,Rus,Phy: integer;
end;
2. Сделай две программы либо выбор в одной программе через меню: создание файла и обработка готового файла. 3. Опиши файловую переменную и переменную для данных, вот так: var
F: file of tStudent;
Student: tStudent
4. Для создания файла открой его оператором ReWrite(F) и запрашивай в цикле имя и оценки и записывай в файл: Write(F, Student);
5. Для обработки открой файл оператором ReSet(F) и читай его в цикле, накапливая оценки и считая количество записей, а потом посчитай среднее: s:=0;
n:=0;
while not EoF(F) do begin
Read(F,Student);
with Student do s:=s+Mat+Rus+Phy;
Inc(n)
end;
a:=s/n/3;
Вот, примерно так.. -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
volvo |
![]()
Сообщение
#7
|
Гость ![]() |
1. Тебе понадобится тип: type
tStudent=record
Name: string;
Mat,Rus,Phy: integer;
end;
Дельфи не допустит описания файла File of tStudent, пока размер строки не будет указан... Скажем, type
tStudent=record
Name: string[255]; // Вот теперь все в порядке...
Mat,Rus,Phy: integer;
end;
|
dem74 |
![]()
Сообщение
#8
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Реальное имя: Дмитрий Репутация: ![]() ![]() ![]() |
спасибо громадное
|
![]() ![]() |
![]() |
Текстовая версия | 18.07.2025 19:37 |