Darmowe Forum

Czasami okazuje siê,¿e w programie trzeba sprawdziÌ kilka warunków i w zale¿noœci od nich podj¹Ì odpowiedni¹ akcjê np.

If warunek_1 then dziaÂłanie_1
else
If warunek_2 then dziaÂłanie_2
else
If warunek _3 then dziaÂłanie _3

Takie dziaÂłanie jest nieporĂŞczne, dlatego w wprowadzono instrukcjĂŞ wyboru case-else.


Case prze³¹cznik of
WartoœÌ_1: akcja_1;
WartoœÌ_2:akcja_2;
............................
WartoœÌ_n: akcja_n;
Else dziaÂłanie zastĂŞpcze {gdy nie speÂłnione pozostaÂłe}
End;

PrzykÂład 1.

Program kalkulator;
uses crt,dos;
Var
Liczba1,liczba2,wynik:real;
DziaÂłanie:char;

Begin
Write(‘Podaj pierwszÂą liczbĂŞ   ‘); readln(Liczba1);
Write(‘Podaj drugÂą liczbĂŞ    ‘); readln(Liczba2);
Write(‘rodzaj dziaÂłania(+ -  * /)   ’);
Readln(dzialanie);

Case dzialanie of
‘+’:wynik:=Liczba1+liczba2;
‘*’:wynik:=Liczba1*liczba2;
‘-’:wynik:=Liczba1-liczba2;
‘/’:if liczba2<>0 then wynik:=Liczba1/liczba2
Else write('zly znak');
End;

readkey;
End.


PrzykÂład 1A. Zmodyfikowany poprzedni program, wyÂświetlajÂący wyniki dziaÂłania

program bimbacz;
uses crt,dos;
var liczba1, liczba2,wynik:real;
znak: char;
begin
clrscr;
write('Podaj pierwsza liczbe: ');readln(liczba1);
write('Podaj druga liczbe: ');readln(liczba2);
write('Podaj znak dzialania: ');readln(znak);

case znak of
'+':begin write(liczba1:0:2,'+ ',liczba2:0:2,' = ',liczba1+liczba2:0:2);end;
'-':begin write(liczba1:0:2,'- ',liczba2:0:2,' = ',liczba1-liczba2:0:2);end;
'*':begin write(liczba1:0:2,'* ',liczba2:0:2,' = ',liczba1*liczba2:0:2);end;
'/':if liczba2<>0 then
begin write(liczba1:0:2,'+/',liczba2:0:2,' = ',liczba1/liczba2:0:2);end
else write('Blad');  end;
readln;
end.

PrzykÂład 2. NapisaĂŚ menu gry w ktĂłrej bĂŞdÂą pola (1- start, 2- nowa gra, 0 -wyjÂście). Po wciÂśniĂŞciu odpowiedniego klawisza wyÂświetlany jest napis odpowiadajÂący dziaÂłaniu. JeÂżeli do programu wprowadzono niewÂłaÂściwej zmiennej  prosi ponownie o podanie wyboru, tak dÂługo do czasu wprowadzenia poprawnej  wartoÂści.   


Faza1:
program bimbacz;
uses crt,dos;
var liczba1, liczba2,wynik:real;
znak: char;
begin
clrscr;
writeln('MENU');
writeln('1- START');
writeln('2-NOWA GRA');
writeln('0 - WYJSCIE');
writeln('TWOJ WYBOR'); readln(znak);



readkey;
 end.

FAZA 2. Instrukcja CASE

program bimbacz;
uses crt,dos;
var liczba1, liczba2,wynik:real;
znak: char;
begin
clrscr;
writeln('MENU');
writeln('1- START');
writeln('2-NOWA GRA');
writeln('0 - WYJSCIE');
write('TWOJ WYBOR'); readln(znak);

case znak of
'1':begin writeln('ROZPOCZYNAM PROCEDURE -START!!!!!');end;
'2':  begin writeln('ROZPOCZYNAM PROCEDURE -NOWA GRA!!!!!');end;
'0': begin writeln('ROZPOCZYNAM PROCEDURE - WYJSCIA Z PROGRAMU!!!!!');end;
 ELSE writeln ('PORAZKA PRZY WPROWADZANIU DANYCH'); END;

readkey;
 end.


FAZA 3. Wprowadzenie komunikatu ze zmian¹ koloru w przypadku wprowadzenia b³êdnej danej.

program bimbacz;
uses crt,dos;
var liczba1, liczba2,wynik:byte;
znak: char;
begin
clrscr;
writeln('MENU');
writeln('1- START');
writeln('2-NOWA GRA');
writeln('0 - WYJSCIE');
write('TWOJ WYBOR'); readln(znak);
 wynik:=0;
case znak of
'1':begin writeln('ROZPOCZYNAM PROCEDURE -START!!!!!');end;
'2':  begin writeln('ROZPOCZYNAM PROCEDURE -NOWA GRA!!!!!');end;
'0': begin writeln('ROZPOCZYNAM PROCEDURE - WYJSCIA Z PROGRAMU!!!!!');end;
 ELSE

repeat wynik:=wynik+1;wynik:=wynik mod 2;
 if(wynik =0)then  textbackground(red) else textbackground(yellow);
 clrscr;
 gotoxy(30,10);writeln ('PORAZKA PRZY WPROWADZANIU DANYCH');delay(500);
 until keypressed END;

readkey;
 end.