Показать, сколько игр было всего сыгранно в каждый день недели - Pascal

Узнай цену своей работы

Формулировка задачи:

Uses
  Types,Crt; {Types это модуль, пользовательский, находится в папке Hockey.zip в приложении}
  
Var
    F: File of TMatch;
    Rab:TMatch;
    Count:LongInt;
    I:1..7;
    Week:array[1..7]of longint;
    begin
      For I:=1 to 7 do
        Week[I]:=0;
      Assign(F,'hockey.dat'); {Данный файл будет в приложении в папке Hockey.zip}
      Reset(F);
      While Not EoF(F) do
        begin
          Write(F,Rab);
          For I:=1 to 7 do
            If I=Rab.date.weekday then
              Week[I]:=Week[I]+1;;
        end;
      For I:=1 to 7 do
        Writeln('V denj nedeli pod nomerom ',I,' bilo sigranno:',Week[I]);
      Close(F);
    end.
Эта часть программы должна показать, сколько игр было всего сыгранно в каждый день недели(т.е понедельник,вторник и т.д.). Когда запускается программа выходят одни нули, не могу понять, что неправильно. И еще, одно задание, нужно сказать какого числа было больше всего сыгранно игр. (Будьте добры, подскажите, как сделать?). Модуль Types в приложении включает в себя только обозначения переменных, больше ничего. И еще, я вложил pas файл самой программы, там Procedure MatchInWeek, там тож, что и здесь. Кто понял, что я имел в виду, помогите, пожалуйста, а то я сижу, голову ломаю и не понимаю.

Решение задачи: «Показать, сколько игр было всего сыгранно в каждый день недели»

textual
Листинг программы
var
  DayCount: array [1..31] of Integer;
  m: Integer;
...
  while not EOF(f) do begin
    Read(f,Rab);
    with Rab.Date do if Day in [1..31] then Inc(DayCount[Day]);
  end;
  m:=1; for i:=2 to 31 do if DayCount[m]<DayCount[i] then m:=i;
  if DayCount[m]>0
  then WriteLn('Больше всего игр (',DayCount[m],') сыграно ',m,'-го числа')
  else WriteLn('Нет игр');

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4.267 из 5
Похожие ответы