Другие языки программирования и технологии
помогите с файлами в PASCALE
вобшем имеется два файла, в одном свединия о 10 нападающих команды Спартак (фамилия, шайбы, передачи, штрафное время), во втором о 10 нападающих Динамо(фамилия, шайбы,передачи, штрафное вермя).нужно написать программу, которая по данным, извлеченным из этих файлов, создает новый файл, содержащий имя, команду, сумму очков (шайбы + передачи) для шести лучших игроков обеих команд. Имена и показатели результативности хоккеистов вывести на экран.----------------------------------------------да, и ещё когда в начале я создаю тип запись, мне нужно переменные, которые содержат шайбы, передачи, штраф задавать через целочисленный тип? или через строку ?
Доброго времени суток.
>> когда в начале я создаю тип запись, мне нужно переменные, которые содержат шайбы, передачи, штраф задавать через целочисленный тип? или через строку ?
Если вам не нужно обрабатывать эти данные, то без разницы. Но зачем тогда эта программа? Значит, целый.
Раз два файла уже имеются, то рассматривать, как их создать мы не будем и перейдем к чению данных и их обработке. Сразу возникает вопрос. Забитая шайба равнозначна результативной передаче? Если да, то можно идти дальше, иначе требуется вводить систему весовых коэффициентов для оценки результативности игороков, типа 1 шайба = 2 передачам.
type
THockey=record
Name : String[20];
Goals, Pass, Foul : Integer;
end;
var
A : array[1..100] of THockey; {чтобы не заморачиваться с динамическими списками}
n, i, j : Integer;
T : THockey;
Здесь бегин, очистка экрана и прочее.
{считывание данных из файлов в массив}
n := 0;
Assign(InF, 'fname1.dat');
Reset(InF);
while not Eof(InF) do begin
n := n + 1;
Read(InF, A[n]);
end;
Close(InF);
Assign(InF, 'fname2.dat');
Reset(InF);
while not Eof(InF) do begin
n := n + 1;
Read(InF, A[n]);
end;
Close(InF);
{сортировка пузырьком суммы голов и передач}
for i := 1 to n do
for j := 1 to n - i do
if A[j].Goals+A[j].Pass < A[j+1].Goals + A[j+1].Pass then begin {меняем два элемента местами}
T := A[j];
A[j] := A[j+1];
A[j+1] := T;
end;
{все, массив отсортирован}
А теперь можно вывести в выходной файл первые 6 элементов массива и показать все на экране. Это самостоятельно, пожалуйста.
Удачи!
>> когда в начале я создаю тип запись, мне нужно переменные, которые содержат шайбы, передачи, штраф задавать через целочисленный тип? или через строку ?
Если вам не нужно обрабатывать эти данные, то без разницы. Но зачем тогда эта программа? Значит, целый.
Раз два файла уже имеются, то рассматривать, как их создать мы не будем и перейдем к чению данных и их обработке. Сразу возникает вопрос. Забитая шайба равнозначна результативной передаче? Если да, то можно идти дальше, иначе требуется вводить систему весовых коэффициентов для оценки результативности игороков, типа 1 шайба = 2 передачам.
type
THockey=record
Name : String[20];
Goals, Pass, Foul : Integer;
end;
var
A : array[1..100] of THockey; {чтобы не заморачиваться с динамическими списками}
n, i, j : Integer;
T : THockey;
Здесь бегин, очистка экрана и прочее.
{считывание данных из файлов в массив}
n := 0;
Assign(InF, 'fname1.dat');
Reset(InF);
while not Eof(InF) do begin
n := n + 1;
Read(InF, A[n]);
end;
Close(InF);
Assign(InF, 'fname2.dat');
Reset(InF);
while not Eof(InF) do begin
n := n + 1;
Read(InF, A[n]);
end;
Close(InF);
{сортировка пузырьком суммы голов и передач}
for i := 1 to n do
for j := 1 to n - i do
if A[j].Goals+A[j].Pass < A[j+1].Goals + A[j+1].Pass then begin {меняем два элемента местами}
T := A[j];
A[j] := A[j+1];
A[j+1] := T;
end;
{все, массив отсортирован}
А теперь можно вывести в выходной файл первые 6 элементов массива и показать все на экране. Это самостоятельно, пожалуйста.
Удачи!
конечно через целые.
Сроздаеш запись фио. команда шайбы.. .
создаешь массив таких записей 20 шт
считываешь в него все данные из обоих файлов
сортируешь по свему критерию
выводишь первых (или последни - как сортировать) записей
Сроздаеш запись фио. команда шайбы.. .
создаешь массив таких записей 20 шт
считываешь в него все данные из обоих файлов
сортируешь по свему критерию
выводишь первых (или последни - как сортировать) записей
Похожие вопросы
- Помогите с задачкой в Pascale
- Assembler помогите создать файлы *.obj *.exe
- Пожалуйста, помогите перевести файл pdf в файл word, очень сильно нужно
- помогите уменьшить файл gif, нужно не больше 50 кБ
- Помогите с файлами в с++ Подскажите пожалуйста как просто прочитать информацию с файла, и в дальнейшем работать с ней.
- Помогите найти файл!!!
- Помогите перевести файл InDesign CS5 в InDesign CS3
- Помогите вылечить файлы exe,зараженные Win32 Neshta . Cureit второй раз не помогает, на середине загрузки синий экран (
- Помогите пожалуйста, Файлы в СИ.
- Помогите с проблемой,Есть ли или существует метод-способ востоновить данные,файлы с карты памяти телефона.