• R/O
  • HTTP
  • SSH
  • HTTPS

Commit

Tags
No Tags

Frequently used words (click to add to your profile)

javaandroidc++linuxobjective-cc#cocoa誰得qtrubygamebathyscaphephpgui翻訳windowspythoncomegattwittertestframeworkbtronarduinovb.net計画中(planning stage)directxpreviewerゲームエンジンdom

Commit MetaInfo

Revision0e950abfdc73dd260d73313ac6739c1af460b22d (tree)
Time2018-11-16 19:07:32
AuthorSykursen <sykursen@prot...>
CommiterSykursen

Log Message

Ajout du TP3

Signed-off-by: Sykursen <sykursen@protonmail.com>

Change Summary

  • delete: "Structure de donn\303\251e/TP3/backup/date.pas"
  • delete: "Structure de donn\303\251e/TP3/backup/enumeresEnregistrements.lpi"
  • delete: "Structure de donn\303\251e/TP3/backup/enumeresEnregistrements.lpr"
  • delete: "Structure de donn\303\251e/TP3/backup/enumeresEnregistrements.lps"
  • delete: "Structure de donn\303\251e/TP3/date.pas"
  • delete: "Structure de donn\303\251e/TP3/enumeresEnregistrements.exe"
  • delete: "Structure de donn\303\251e/TP3/enumeresEnregistrements.lpi"
  • delete: "Structure de donn\303\251e/TP3/enumeresEnregistrements.lpr"
  • delete: "Structure de donn\303\251e/TP3/enumeresEnregistrements.lps"
  • delete: "Structure de donn\303\251e/TP3/lib/x86_64-win64/date.o"
  • delete: "Structure de donn\303\251e/TP3/lib/x86_64-win64/date.ppu"
  • delete: "Structure de donn\303\251e/TP3/lib/x86_64-win64/enumeresEnregistrements.compiled"
  • delete: "Structure de donn\303\251e/TP3/lib/x86_64-win64/enumeresEnregistrements.o"

Incremental Difference

--- /dev/null
+++ "b/Structure de donn\303\251e/TP3/backup/date.pas"
@@ -0,0 +1,48 @@
1+//Unité de gestion des dates
2+unit Date;
3+
4+{$mode objfpc}{$H+}
5+
6+interface
7+
8+uses
9+ Classes, SysUtils;
10+type
11+ jour=(lundi,mardi,mercredi,jeudi,vendredi,samedi,dimanche); //Déclaration du type jour
12+ mois=(janvier,fevrier,mars,avril,mai,juin,juillet,aout,septembre,octobre,novembre,decembre); //Déclaration du type mois
13+
14+function anneeBissextile(annee:Integer): boolean;
15+function jourSuivant(j:jour):jour;
16+function jourPrecedent(j:jour):jour;
17+
18+implementation
19+
20+function anneeBissextile(annee:Integer): boolean;
21+begin
22+ if ((annee mod 4)=0) AND ((annee mod 100)<>0) then
23+ anneeBissextile:=true
24+ else
25+ anneeBissextile:=false;
26+end;
27+function jourSuivant(j:jour):jour;
28+var
29+ suivant:jour;
30+begin
31+ if j=dimanche then
32+ suivant:=dimanche
33+ else
34+ suivant:=Succ(j);
35+ jourSuivant:= suivant;
36+end;
37+function jourPrecedent(j:jour):jour;
38+var
39+ precedent:jour;
40+begin
41+ if j=dimanche then
42+ precedent:=dimanche
43+ else
44+ precedent:=Pred(j);
45+ jourSuivant:= precedent;
46+end;
47+end.
48+
--- /dev/null
+++ "b/Structure de donn\303\251e/TP3/backup/enumeresEnregistrements.lpi"
@@ -0,0 +1,73 @@
1+<?xml version="1.0" encoding="UTF-8"?>
2+<CONFIG>
3+ <ProjectOptions>
4+ <Version Value="10"/>
5+ <PathDelim Value="\"/>
6+ <General>
7+ <Flags>
8+ <MainUnitHasCreateFormStatements Value="False"/>
9+ <MainUnitHasTitleStatement Value="False"/>
10+ <MainUnitHasScaledStatement Value="False"/>
11+ </Flags>
12+ <SessionStorage Value="InProjectDir"/>
13+ <MainUnit Value="0"/>
14+ <Title Value="enumeresEnregistrements"/>
15+ <UseAppBundle Value="False"/>
16+ <ResourceType Value="res"/>
17+ </General>
18+ <VersionInfo>
19+ <StringTable ProductVersion=""/>
20+ </VersionInfo>
21+ <BuildModes Count="1">
22+ <Item1 Name="Default" Default="True"/>
23+ </BuildModes>
24+ <PublishOptions>
25+ <Version Value="2"/>
26+ </PublishOptions>
27+ <RunParams>
28+ <local>
29+ <FormatVersion Value="1"/>
30+ </local>
31+ </RunParams>
32+ <RequiredPackages Count="1">
33+ <Item1>
34+ <PackageName Value="LCL"/>
35+ </Item1>
36+ </RequiredPackages>
37+ <Units Count="2">
38+ <Unit0>
39+ <Filename Value="enumeresEnregistrements.lpr"/>
40+ <IsPartOfProject Value="True"/>
41+ </Unit0>
42+ <Unit1>
43+ <Filename Value="date.pas"/>
44+ <IsPartOfProject Value="True"/>
45+ <UnitName Value="Date"/>
46+ </Unit1>
47+ </Units>
48+ </ProjectOptions>
49+ <CompilerOptions>
50+ <Version Value="11"/>
51+ <PathDelim Value="\"/>
52+ <Target>
53+ <Filename Value="enumeresEnregistrements"/>
54+ </Target>
55+ <SearchPaths>
56+ <IncludeFiles Value="$(ProjOutDir)"/>
57+ <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
58+ </SearchPaths>
59+ </CompilerOptions>
60+ <Debugging>
61+ <Exceptions Count="3">
62+ <Item1>
63+ <Name Value="EAbort"/>
64+ </Item1>
65+ <Item2>
66+ <Name Value="ECodetoolError"/>
67+ </Item2>
68+ <Item3>
69+ <Name Value="EFOpenError"/>
70+ </Item3>
71+ </Exceptions>
72+ </Debugging>
73+</CONFIG>
--- /dev/null
+++ "b/Structure de donn\303\251e/TP3/backup/enumeresEnregistrements.lpr"
@@ -0,0 +1,27 @@
1+program enumeresEnregistrements;
2+{$codepage utf8}
3+
4+uses Date;
5+
6+var
7+ annee:Integer; //Année à tester
8+ resultat:boolean; //Résultat de la fonction année bissextile
9+
10+begin
11+
12+ //Test fonction bissextile
13+ writeln('Rentré votre année à tester');
14+ readln(annee);
15+
16+ resultat:=anneeBissextile(annee);
17+
18+ if resultat = TRUE then
19+ writeln(annee,' est bissextile')
20+ else
21+ writeln(annee,' n''est pas bissextile');
22+ readln();
23+
24+ //Test jours (Suivant et précédent
25+
26+end.
27+
--- /dev/null
+++ "b/Structure de donn\303\251e/TP3/backup/enumeresEnregistrements.lps"
@@ -0,0 +1,98 @@
1+<?xml version="1.0" encoding="UTF-8"?>
2+<CONFIG>
3+ <ProjectSession>
4+ <PathDelim Value="\"/>
5+ <Version Value="10"/>
6+ <BuildModes Active="Default"/>
7+ <Units Count="2">
8+ <Unit0>
9+ <Filename Value="enumeresEnregistrements.lpr"/>
10+ <IsPartOfProject Value="True"/>
11+ <CursorPos X="3" Y="25"/>
12+ <UsageCount Value="20"/>
13+ <Loaded Value="True"/>
14+ </Unit0>
15+ <Unit1>
16+ <Filename Value="date.pas"/>
17+ <IsPartOfProject Value="True"/>
18+ <UnitName Value="Date"/>
19+ <IsVisibleTab Value="True"/>
20+ <EditorIndex Value="1"/>
21+ <CursorPos X="19" Y="48"/>
22+ <FoldState Value=" T3J062c"/>
23+ <UsageCount Value="20"/>
24+ <Loaded Value="True"/>
25+ </Unit1>
26+ </Units>
27+ <JumpHistory Count="17" HistoryIndex="16">
28+ <Position1>
29+ <Filename Value="enumeresEnregistrements.lpr"/>
30+ <Caret Line="6" Column="19"/>
31+ </Position1>
32+ <Position2>
33+ <Filename Value="date.pas"/>
34+ <Caret Line="17" Column="15"/>
35+ </Position2>
36+ <Position3>
37+ <Filename Value="date.pas"/>
38+ <Caret Line="13" Column="31"/>
39+ </Position3>
40+ <Position4>
41+ <Filename Value="date.pas"/>
42+ <Caret Line="16" Column="18"/>
43+ </Position4>
44+ <Position5>
45+ <Filename Value="enumeresEnregistrements.lpr"/>
46+ <Caret Line="7" Column="18"/>
47+ </Position5>
48+ <Position6>
49+ <Filename Value="enumeresEnregistrements.lpr"/>
50+ <Caret Line="10" Column="45"/>
51+ </Position6>
52+ <Position7>
53+ <Filename Value="date.pas"/>
54+ <Caret Line="10" Column="49"/>
55+ </Position7>
56+ <Position8>
57+ <Filename Value="date.pas"/>
58+ <Caret Line="19" Column="33"/>
59+ </Position8>
60+ <Position9>
61+ <Filename Value="date.pas"/>
62+ <Caret Line="12" Column="53"/>
63+ </Position9>
64+ <Position10>
65+ <Filename Value="date.pas"/>
66+ <Caret Line="16" Column="48"/>
67+ </Position10>
68+ <Position11>
69+ <Filename Value="date.pas"/>
70+ <Caret Line="17" Column="28"/>
71+ </Position11>
72+ <Position12>
73+ <Filename Value="enumeresEnregistrements.lpr"/>
74+ <Caret Line="13" Column="3"/>
75+ </Position12>
76+ <Position13>
77+ <Filename Value="enumeresEnregistrements.lpr"/>
78+ <Caret Line="8" Column="20"/>
79+ </Position13>
80+ <Position14>
81+ <Filename Value="enumeresEnregistrements.lpr"/>
82+ <Caret Line="19" Column="41"/>
83+ </Position14>
84+ <Position15>
85+ <Filename Value="enumeresEnregistrements.lpr"/>
86+ <Caret Line="8" Column="3"/>
87+ </Position15>
88+ <Position16>
89+ <Filename Value="enumeresEnregistrements.lpr"/>
90+ <Caret Line="16" Column="3"/>
91+ </Position16>
92+ <Position17>
93+ <Filename Value="enumeresEnregistrements.lpr"/>
94+ <Caret Line="14" Column="13"/>
95+ </Position17>
96+ </JumpHistory>
97+ </ProjectSession>
98+</CONFIG>
--- /dev/null
+++ "b/Structure de donn\303\251e/TP3/date.pas"
@@ -0,0 +1,48 @@
1+//Unité de gestion des dates
2+unit Date;
3+
4+{$mode objfpc}{$H+}
5+
6+interface
7+
8+uses
9+ Classes, SysUtils;
10+type
11+ jour=(lundi,mardi,mercredi,jeudi,vendredi,samedi,dimanche); //Déclaration du type jour
12+ mois=(janvier,fevrier,mars,avril,mai,juin,juillet,aout,septembre,octobre,novembre,decembre); //Déclaration du type mois
13+
14+function anneeBissextile(annee:Integer): boolean;
15+function jourSuivant(j:jour):jour;
16+function jourPrecedent(j:jour):jour;
17+
18+implementation
19+
20+function anneeBissextile(annee:Integer): boolean;
21+begin
22+ if ((annee mod 4)=0) AND ((annee mod 100)<>0) then
23+ anneeBissextile:=true
24+ else
25+ anneeBissextile:=false;
26+end;
27+function jourSuivant(j:jour):jour;
28+var
29+ suivant:jour;
30+begin
31+ if j=dimanche then
32+ suivant:=dimanche
33+ else
34+ suivant:=Succ(j);
35+ jourSuivant:= suivant;
36+end;
37+function jourPrecedent(j:jour):jour;
38+var
39+ precedent:jour;
40+begin
41+ if j=dimanche then
42+ precedent:=dimanche
43+ else
44+ precedent:=Pred(j);
45+ jourPrecedent:= precedent;
46+end;
47+end.
48+
Binary files /dev/null and "b/Structure de donn\303\251e/TP3/enumeresEnregistrements.exe" differ
--- /dev/null
+++ "b/Structure de donn\303\251e/TP3/enumeresEnregistrements.lpi"
@@ -0,0 +1,73 @@
1+<?xml version="1.0" encoding="UTF-8"?>
2+<CONFIG>
3+ <ProjectOptions>
4+ <Version Value="10"/>
5+ <PathDelim Value="\"/>
6+ <General>
7+ <Flags>
8+ <MainUnitHasCreateFormStatements Value="False"/>
9+ <MainUnitHasTitleStatement Value="False"/>
10+ <MainUnitHasScaledStatement Value="False"/>
11+ </Flags>
12+ <SessionStorage Value="InProjectDir"/>
13+ <MainUnit Value="0"/>
14+ <Title Value="enumeresEnregistrements"/>
15+ <UseAppBundle Value="False"/>
16+ <ResourceType Value="res"/>
17+ </General>
18+ <VersionInfo>
19+ <StringTable ProductVersion=""/>
20+ </VersionInfo>
21+ <BuildModes Count="1">
22+ <Item1 Name="Default" Default="True"/>
23+ </BuildModes>
24+ <PublishOptions>
25+ <Version Value="2"/>
26+ </PublishOptions>
27+ <RunParams>
28+ <local>
29+ <FormatVersion Value="1"/>
30+ </local>
31+ </RunParams>
32+ <RequiredPackages Count="1">
33+ <Item1>
34+ <PackageName Value="LCL"/>
35+ </Item1>
36+ </RequiredPackages>
37+ <Units Count="2">
38+ <Unit0>
39+ <Filename Value="enumeresEnregistrements.lpr"/>
40+ <IsPartOfProject Value="True"/>
41+ </Unit0>
42+ <Unit1>
43+ <Filename Value="date.pas"/>
44+ <IsPartOfProject Value="True"/>
45+ <UnitName Value="Date"/>
46+ </Unit1>
47+ </Units>
48+ </ProjectOptions>
49+ <CompilerOptions>
50+ <Version Value="11"/>
51+ <PathDelim Value="\"/>
52+ <Target>
53+ <Filename Value="enumeresEnregistrements"/>
54+ </Target>
55+ <SearchPaths>
56+ <IncludeFiles Value="$(ProjOutDir)"/>
57+ <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
58+ </SearchPaths>
59+ </CompilerOptions>
60+ <Debugging>
61+ <Exceptions Count="3">
62+ <Item1>
63+ <Name Value="EAbort"/>
64+ </Item1>
65+ <Item2>
66+ <Name Value="ECodetoolError"/>
67+ </Item2>
68+ <Item3>
69+ <Name Value="EFOpenError"/>
70+ </Item3>
71+ </Exceptions>
72+ </Debugging>
73+</CONFIG>
--- /dev/null
+++ "b/Structure de donn\303\251e/TP3/enumeresEnregistrements.lpr"
@@ -0,0 +1,28 @@
1+//Programme de test des fonctions présentes de l'unité date
2+program enumeresEnregistrements;
3+{$codepage utf8}
4+
5+uses Date;
6+
7+var
8+ annee:Integer; //Année à tester
9+ resultat:boolean; //Résultat de la fonction année bissextile
10+
11+begin
12+
13+ //Test fonction bissextile
14+ writeln('Rentré votre année à tester');
15+ readln(annee);
16+
17+ resultat:=anneeBissextile(annee);
18+
19+ if resultat = TRUE then
20+ writeln(annee,' est bissextile')
21+ else
22+ writeln(annee,' n''est pas bissextile');
23+ readln();
24+
25+ //Test jours (Suivant et précédent)
26+
27+end.
28+
--- /dev/null
+++ "b/Structure de donn\303\251e/TP3/enumeresEnregistrements.lps"
@@ -0,0 +1,110 @@
1+<?xml version="1.0" encoding="UTF-8"?>
2+<CONFIG>
3+ <ProjectSession>
4+ <PathDelim Value="\"/>
5+ <Version Value="10"/>
6+ <BuildModes Active="Default"/>
7+ <Units Count="2">
8+ <Unit0>
9+ <Filename Value="enumeresEnregistrements.lpr"/>
10+ <IsPartOfProject Value="True"/>
11+ <CursorPos X="3" Y="25"/>
12+ <UsageCount Value="20"/>
13+ <Loaded Value="True"/>
14+ </Unit0>
15+ <Unit1>
16+ <Filename Value="date.pas"/>
17+ <IsPartOfProject Value="True"/>
18+ <UnitName Value="Date"/>
19+ <IsVisibleTab Value="True"/>
20+ <EditorIndex Value="1"/>
21+ <CursorPos X="16" Y="45"/>
22+ <FoldState Value=" T3J061l"/>
23+ <UsageCount Value="20"/>
24+ <Loaded Value="True"/>
25+ </Unit1>
26+ </Units>
27+ <JumpHistory Count="20" HistoryIndex="19">
28+ <Position1>
29+ <Filename Value="enumeresEnregistrements.lpr"/>
30+ <Caret Line="6" Column="19"/>
31+ </Position1>
32+ <Position2>
33+ <Filename Value="date.pas"/>
34+ <Caret Line="17" Column="15"/>
35+ </Position2>
36+ <Position3>
37+ <Filename Value="date.pas"/>
38+ <Caret Line="13" Column="31"/>
39+ </Position3>
40+ <Position4>
41+ <Filename Value="date.pas"/>
42+ <Caret Line="16" Column="18"/>
43+ </Position4>
44+ <Position5>
45+ <Filename Value="enumeresEnregistrements.lpr"/>
46+ <Caret Line="7" Column="18"/>
47+ </Position5>
48+ <Position6>
49+ <Filename Value="enumeresEnregistrements.lpr"/>
50+ <Caret Line="10" Column="45"/>
51+ </Position6>
52+ <Position7>
53+ <Filename Value="date.pas"/>
54+ <Caret Line="10" Column="49"/>
55+ </Position7>
56+ <Position8>
57+ <Filename Value="date.pas"/>
58+ <Caret Line="19" Column="33"/>
59+ </Position8>
60+ <Position9>
61+ <Filename Value="date.pas"/>
62+ <Caret Line="12" Column="53"/>
63+ </Position9>
64+ <Position10>
65+ <Filename Value="date.pas"/>
66+ <Caret Line="16" Column="48"/>
67+ </Position10>
68+ <Position11>
69+ <Filename Value="date.pas"/>
70+ <Caret Line="17" Column="28"/>
71+ </Position11>
72+ <Position12>
73+ <Filename Value="enumeresEnregistrements.lpr"/>
74+ <Caret Line="13" Column="3"/>
75+ </Position12>
76+ <Position13>
77+ <Filename Value="enumeresEnregistrements.lpr"/>
78+ <Caret Line="8" Column="20"/>
79+ </Position13>
80+ <Position14>
81+ <Filename Value="enumeresEnregistrements.lpr"/>
82+ <Caret Line="19" Column="41"/>
83+ </Position14>
84+ <Position15>
85+ <Filename Value="enumeresEnregistrements.lpr"/>
86+ <Caret Line="8" Column="3"/>
87+ </Position15>
88+ <Position16>
89+ <Filename Value="enumeresEnregistrements.lpr"/>
90+ <Caret Line="16" Column="3"/>
91+ </Position16>
92+ <Position17>
93+ <Filename Value="enumeresEnregistrements.lpr"/>
94+ <Caret Line="14" Column="13"/>
95+ </Position17>
96+ <Position18>
97+ <Filename Value="date.pas"/>
98+ <Caret Line="48" Column="19"/>
99+ </Position18>
100+ <Position19>
101+ <Filename Value="date.pas"/>
102+ <Caret Line="19" Column="29"/>
103+ </Position19>
104+ <Position20>
105+ <Filename Value="date.pas"/>
106+ <Caret Line="37" Column="36"/>
107+ </Position20>
108+ </JumpHistory>
109+ </ProjectSession>
110+</CONFIG>
Binary files /dev/null and "b/Structure de donn\303\251e/TP3/lib/x86_64-win64/date.o" differ
Binary files /dev/null and "b/Structure de donn\303\251e/TP3/lib/x86_64-win64/date.ppu" differ
--- /dev/null
+++ "b/Structure de donn\303\251e/TP3/lib/x86_64-win64/enumeresEnregistrements.compiled"
@@ -0,0 +1,5 @@
1+<?xml version="1.0" encoding="UTF-8"?>
2+<CONFIG>
3+ <Compiler Value="C:\lazarus\fpc\3.0.4\bin\x86_64-win64\fpc.exe" Date="1286834845"/>
4+ <Params Value=" -MObjFPC -Scghi -O1 -g -gl -l -vewnhibq &quot;-FiC:\Users\guill\OneDrive - iut-dijon.u-bourgogne.fr\Bureau\devs\Algo-Pascal\Structure de donnée\TP3\lib\x86_64-win64&quot; -FuC:\lazarus\lcl\units\x86_64-win64\win32 -FuC:\lazarus\lcl\units\x86_64-win64 -FuC:\lazarus\components\lazutils\lib\x86_64-win64 -FuC:\lazarus\packager\units\x86_64-win64 &quot;-FuC:\Users\guill\OneDrive - iut-dijon.u-bourgogne.fr\Bureau\devs\Algo-Pascal\Structure de donnée\TP3\&quot; &quot;-FUC:\Users\guill\OneDrive - iut-dijon.u-bourgogne.fr\Bureau\devs\Algo-Pascal\Structure de donnée\TP3\lib\x86_64-win64\&quot; -dLCL -dLCLwin32 enumeresEnregistrements.lpr"/>
5+</CONFIG>
Binary files /dev/null and "b/Structure de donn\303\251e/TP3/lib/x86_64-win64/enumeresEnregistrements.o" differ