4 / 4 / 2
Регистрация: 22.10.2012
Сообщений: 78
1

Запишите в файл 2 название команды, количество решенных задач и общее времени, потраченное на решение всех задач

24.04.2013, 18:56. Показов 781. Ответов 0
Метки нет (Все метки)

Подскажите как доделать задачу. В файле 1 хранятся данные о названиях команды, номере решенной задачи,
времени, потраченном на решение. Запишите в файл 2 название команды, количество
решенных задач и общее времени, потраченное на решение всех задач.
Ниже приведена программа, которая создает файл с данными по условию задачи. Не знаю как создать второй файл используя данные первого файла.
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
uses crt;
type komand=record
           nazv:string[20];
           nom_z:byte;
           vrem:integer;
       end;
type file_1=file of komand;
var f:file_1;
    st:string; //переменная для имени файла    
procedure vvodf(f:file_1);
var s:komand;
    i,j,n,k:byte;
begin
write ('Сколько команд? ');
readln (k);
for i:=1 to k do
    begin
         write ('введите название команды: ');
         readln (s.nazv);
         write ('введите кол-во решенных задач ');
         readln (n);
         for j:=1 to n do
          begin
            write ('введите номер задачи: ');
            readln (s.nom_z);
            write ('введите время: ');
            readln (s.vrem);
            write(f,s);
         end;
    end;
    end;
procedure vivodf(f:file_1);
var s:komand;
begin
     writeln('Команда  номер   время');
     writeln('----------------------');
     seek(f,0);
     while not eof(f) do
     begin
     read(f,s);
     writeln(s.nazv:2,s.nom_z:6,s.vrem:8);
     end;
end;
begin
writeln('Введите имя для первого файла: '); // вводится полностью путь к каталогу(d:\папка\имя файла)
readln (st);
assign(f,st);
rewrite(f);
vvodf(f);
reset(f);
clrscr;
vivodf(f);
close(f);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.04.2013, 18:56
Ответы с готовыми решениями:

Определить количество решенных задач одним человеком на турнире
Перед турниром Вася провел подготовку. Он решил А задач на циклы, В задач на массивы и C задач на...

Структура: Записать в файл название команды, количество решенных задач, время, потраченное на решение.
Помогите, пожалуйста. Срочно нужно. В файле 1 хранятся данные о соревнованиях по решению задач. Он...

Сборник решенных задач
Здравствуйте! Вот тут меня посетила идея.Наверно не впервые я её озвучу, но всё же.Почему бы нам не...

Примеры решенных задач
Вот решил выложить программы с лабораторных работ: 1) Сгенерировать одномерный массив и вывести...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.04.2013, 18:56
Помогаю со студенческими работами здесь

Большая коллекция решенных задач
Обработка строк 1. Вывести в алфавитном порядке все буквы, которые входят в текст по одному разу...

Необходимо 5 решенных задач на основные алгоритмы
ребят есть ли у кого по 5 решенных задач по алгоритмам: линейные,разветвляющиеся и циклы...

Определить оценку в зависимости от количества правильно решенных задач
Определить оценку абитуриента по математике на вступительных ЭКЗА -нах , если она определяется в...

Решение всех задач из учебника Стивена Прата
Здравствуйте!Решил выложить свои решения задач книги С. Прата. Код ни в коем случае не претендует...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru