ßaşLangıç Programı MevsimLer[PascaL]

[ALpMontana]

çok ßasit ßir Proqram 4 mevsimi yazıyor
Siz ay sayısını giriryorsunuz o Mevsimi Gösteriyor.:clap


uses crt;
var
sayi:integer;
begin
writeln ('Lütfen hangi ayda olduğunuzu giriniz');
readln (sayi);
if sayi = 1 then
writeln ('Mevsim = Kis')
else
case sayi of
3..5: writeln ('Mevsim: Ilkbahar');
6..8: writeln ('Mevsim: Yaz');
9..11: writeln ('Mevsim: Sonbahar');
11..12: writeln ('Mevsimi :Kis');
else writeln ('Hatali Sayi Girdiniz');
end;
end.

​