Pascal Instrukcja Case
- Szczegóły
- Kategoria: Pascal
- Opublikowano: poniedziałek, 29, sierpień 2011 16:38
- ber3333
- Odsłony: 97419
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.
