fundacja tvn joomla-cms.com.pl
A+ A A-

Pascal Instrukcja Case

  • Kategoria: Pascal
  • Opublikowano: poniedziałek, 29, sierpień 2011 16:38
  • ber3333
  • Odsłony: 51725

 

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.


 Pozycjonowanie-Joomla, seo-joomla Tworzenie-Sitemap-joomla, TG-Chmura-Tagów, rs-rules-security Admin-Login-Security, joomla Licencja-Drupal, Licencja-ZenCart, Licencja-GPL2, Licencja-GPL3 Creative-Commons-License, joomla-2.5.x Kalendarz-Celtycki data-zodiak-data-majowie, moduł-GA-Gadu-gg, Moduł-Lotto-joomla K2-joomla Moduł-Kodownik-joomla kontakt-admin-3-pl Moduł-miłość-joomla Moduł-minutnik-joomla Google-Gadżet-strona-www Moduł-Multi-AnalogClock-joomla Grafika-Wektorowa-joomla Pascal-podstawy Pascal-instrukcja-if Pascal-pętla-for Pascal-Pętla-white-Repet Pascal-Instrukcja-Case Pascal Pascal-record Pascal-Tablice-(Macierze) Kolory-w-Pascalu Systemy-Liczbowe-10-16-8 Pak-top10-głosowanych-jQuery Waga-Bmi BF-Bear-Form Joomla+2.5+captcha+google BSD joomla, MP3 Creating, SEO, Admin tg RS BF The Celtic Forever Création Erstellen Toujours Immer Multi Contact-Admin-3-EN Contact-Admin-3-fr Contact-Admin-3-DE Open-Software-License-v.3.0-(OSL-3.0) System Interfejsy Mozilla joomla-metadane, seo-katalogi, wymiana Slider aukcjoner, Informator Osiemnaście CiastkoPl sem, Class Class-PDO-session login, registerUserClass, index PHP PDO, Class-ResponsiveCss zarabiarka-allegro Pogodynka Pogodynka Praca-Programisty Praca Funkcja-if Special+Arguments Simple-Captchta Jquery, Od 2 Konfiguracja 4.Instalacja 5.Konfiguracja 6.Instalacja 7.Konfiguracja 8.Metadane 9.Optymalizacja 10.Ciasteczka 11.System 12.Diagnostyka 13.Sesja Klasa Książka responsive Uniwersal Dodatek GoogAd.v1.4-polish-utf-8 Error Cooki Funkcje Linki Google Kompresja pdf, Dynamiczne template wycena Twoja Separation reklama ssd, bezpieczeństwo wzorce rekrutacja Zastosowanie Urządzenia Portale chat, dyski Platformy QUIZ 

Używamy cookies i podobnych technologii m.in. w celach: świadczenia usług, reklamy, statystyk. Korzystanie z witryny bez zmiany ustawień Twojej przeglądarki oznacza, że będą one umieszczane w Twoim urządzeniu końcowym. Pamiętaj, że zawsze możesz zmienić te ustawienia. To find out more about the cookies we use and how to delete them, see our privacy policy.

I accept cookies from this site.

EU Cookie Directive Module Information