materus/AHE
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Rok przestępny - Pascal

Browse Source
This commit is contained in:
Mateusz Słodkowicz 2024-11-17 21:14:33 +01:00
parent 33d784311e
commit 1fcc9d3288
Signed by: materus
GPG Key ID: 28D140BCA60B4FD1
1 changed files with 37 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
Algorytmy i struktury danych/Pascal/AiSD5_C2 Ćwiczenie 2/zad2_rok_przestepny.pas Normal file
View File

@ -0,0 +1,37 @@
program rok_przestepny;
function Czytaj_rok: Integer;
var
rok: Integer;
begin
write('Podaj rok: ');
readln(rok);
Czytaj_rok:=rok;
end;
function Czy_przestepny(rok :Integer ): Boolean;
begin
Czy_przestepny:= ((rok mod 4 = 0) AND (NOT (rok mod 100 = 0)) ) OR (rok mod 400 = 0);
end;
procedure Wypisz_czy_przestepny(rok : Integer; przestepny: Boolean );
begin
if przestepny then
writeln('Rok ', rok, ' jest przestepny')
else
writeln('Rok ', rok, ' nie jest przestepny');
end;
procedure Glowna_procedura;
var
rok : Integer;
przestepny : Boolean;
begin
rok:= Czytaj_rok();
przestepny:= Czy_przestepny(rok);
Wypisz_czy_przestepny(rok,przestepny);
end;
begin
Glowna_procedura()
end.