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