IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Помогите решить задачку по записям
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 5
Пол: Мужской
Реальное имя: Дмитрий

Репутация: -  0  +


Вычислить средний балл учеников класса, если известны оценки каждого ученика по математике, русскому языку и физике. Распечатать список учеников, имеющих средний балл выше среднего в классе.
Задачу нужно решить с использованием типизированных файлов!

Заранее всем благодарен
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


mea culpa
*****

Группа: Пользователи
Сообщений: 1 372
Пол: Мужской
Реальное имя: Николай

Репутация: -  24  +


Цитата
Задачу нужно решить с использованием типизированных файлов!


Оценки, значит, в этом самом файле? А каков формат файла?


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 5
Пол: Мужской
Реальное имя: Дмитрий

Репутация: -  0  +


Цитата(Unconnected @ 15.01.2009 19:29) *

Оценки, значит, в этом самом файле? А каков формат файла?

ага! Формат файла DAT
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Цитата
Формат файла DAT
DAT - это не формат, а расширение... Ты расскажи о формате, что именно у тебя хранится в файле, в какой последовательности.

Сообщение отредактировано: volvo -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5





Группа: Пользователи
Сообщений: 5
Пол: Мужской
Реальное имя: Дмитрий

Репутация: -  0  +


Цитата(volvo @ 15.01.2009 20:15) *

DAT - это не формат, а расширение... Ты расскажи о формате, что именно у тебя хранится в файле, в какой последовательности.

я если честно и сам не знаю! wub.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


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;


Вот, примерно так..


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость






Цитата(Lapp @ 16.01.2009 2:38) *
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;
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8





Группа: Пользователи
Сообщений: 5
Пол: Мужской
Реальное имя: Дмитрий

Репутация: -  0  +


спасибо громадное
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 15:50
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name