Ĺadny brzuch
Porzebuję pomocy unsure: Ponieważ mam problem. Muszę napisać pracę kontrolną co do programowania w Pascalu, a mianowicie: 1)istrukcja wyborów w Pascalu : Case, mam podać składnię, opis działania oraz przykłady w postaci listingów programów. Jeśłi jest ktoś w stanie mi pomóc czekam na odpis na forum a także na adres e-mail autografk@op.pl. Z góry serdeczne dzięki :)
Skladnia:
case (zmienna_liczbowa) of 1: procka1; //co ma wykonac jesli zmienna bedzie zawierala liczbe 1 2: begin //mozna tez smialo uzywac zlozone procedury end; 3: cos_tam; else inna_liczba;//mozna uzyc takze else jesli zmienna nie zadna z ww. liczb end;
Listingi:
number := 17; Case number mod 2 of 0 : ShowMessage(IntToStr(Number)+' mod 2 = 0'); 1 : ShowMessage(IntToStr(Number)+' mod 2 = 1'); else ShowMessage(IntToStr(Number)+' mod 2 is unknown'); end;
http://www.delphibas...L.asp?Name=Case
Jak ci nie starczy to, to szukaj tutaj: http://www.google.pl...btnG=Szukaj&lr=
Użytkownik Kajetanek edytował ten post 03 październik 2005, 11:51
case liczba of 1, 2: {jeżeli 1 lub 2} 3, 4: {jeżeli 3 lub 4} end;
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Skladnia:
case (zmienna_liczbowa) of 1: procka1; //co ma wykonac jesli zmienna bedzie zawierala liczbe 1 2: begin //mozna tez smialo uzywac zlozone procedury end; 3: cos_tam; else inna_liczba;//mozna uzyc takze else jesli zmienna nie zadna z ww. liczb end;
Listingi:
number := 17; Case number mod 2 of 0 : ShowMessage(IntToStr(Number)+' mod 2 = 0'); 1 : ShowMessage(IntToStr(Number)+' mod 2 = 1'); else ShowMessage(IntToStr(Number)+' mod 2 is unknown'); end;
http://www.delphibas...L.asp?Name=Case
Jak ci nie starczy to, to szukaj tutaj: http://www.google.pl...btnG=Szukaj&lr=
Użytkownik Kajetanek edytował ten post 03 październik 2005, 11:51
case liczba of 1, 2: {jeżeli 1 lub 2} 3, 4: {jeżeli 3 lub 4} end;