Pascal Instrukcja Case

Pascal Instrukcja Case

Pascal Instrukcja Case

Pascal  instrukcja "case" sposób jej wykorzystania :

program wybierz;
uses
crt;
var
godzina: byte;
begin
clrscr;
writeln('Podaj godzine OD 7 DO 12');
readln(godzina);
 
case godzina of
 7: writeln('Godzina 7.00');
 8: writeln('Godzina 8.00');
 9: writeln('Godzina 9.00');
10: writeln('Godzina 10.00');
11: writeln('Godzina 11.00');
12: writeln('Godzina 12.00');
else writeln('Nie ma tej godziny w planie dnia')
end;
readln;
end.
 

A tutaj coś dla bardziej doświadczonych użytkowników pascala.

program funkcja_case;
uses
crt;
var
dzien:string;
znak:char;
begin
clrscr;
writeln('Wpisz Dzień Tygodnia');
readln(dzien);
 
if (dzien='Poniedziałek') or (dzien='poniedziałek') then
begin
znak:='p';
end;
if (dzien='Wtorek') or (dzien='wtorek') then
begin
znak:='w';
end;
if (dzien='Środa') or (dzien='środa') then
begin
znak:='s';
end;
if (dzien='Czwartek') or (dzien='czwartek') then
begin
znak:='c';
end;
if (dzien='Piątek') or (dzien='piątek') then
begin
znak:='i';
end;
if (dzien='Sobota') or (dzien='sobota') then
begin
znak:='o';
end;
if (dzien='Niedziela') or (dzien='niedziela') then
begin
znak:='n';
end;
 
case znak of
'p': writeln('Wybrałeś Dzień Tygodnia Poniedziałek');
'w': writeln('Wybrałeś Dzień Tygodnia Wtorek');
's': writeln('Wybrałeś Dzień Tygodnia Środa');
'c': writeln('Wybrałeś Dzień Tygodnia Czwartek');
'i': writeln('Wybrałeś Dzień Tygodnia Piątek');
'o': writeln('Wybrałeś Dzień Tygodnia Sobota');
'n': writeln('Wybrałeś Dzień Tygodnia Niedziela');
else writeln('Nie Wybrałeś żadnego dnia Tygodnia')
end;
readln;
end.

• « poprz.
• nast. »