Program: ukazujący ilość dni w danym miesiącu.
Najzwyklejszy program w którym użytkownik podaje miesiąc a program wylicza ilość dni oraz pokazuje jego nazwę.
Kompilator: Turbo Pascal
Galeria:
Kod programu:
program miesiace;
uses crt;
var miesiac,b : Integer;
nm : String;
begin
clrscr;
write ('Podaj numer miesiaca: ');
read(miesiac);
case miesiac of
2 : b:=28;
4,6,9,11: b:=30;
else
b:=31;
end;
case miesiac of
1 : nm:='styczen';
2 : nm:='luty';
3 : nm:='marzec';
4 : nm:='kwiecien';
5 : nm:='maj';
6 : nm:='czerwiec';
7 : nm:='lipiec';
8 : nm:='sierpien';
9 : nm:='wrzesien';
10 : nm:='pazdziernik';
11 : nm:='listopad';
12 : nm:='grudzien';
else
nm:='fail';
end;
write('Miesiac ',nm,' ma ',b,' dni');
readkey;
end.