Показать, сколько игр было всего сыгранно в каждый день недели - 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.
Решение задачи: «Показать, сколько игр было всего сыгранно в каждый день недели»
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('Нет игр');
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д