Temat: Instrukcja wyboru (CASE) w Delphi.

I. Instrukcja wyboru CASE - I postać

Instrukcja CASE jest instrukcją wyboru (selekcji), sterującą wyborem jednej z instrukcji do wykonania i ma postać:

CASE Wyrażenie OF

wartość1 : { Blok instrukcji } ;

wartość2 : { Blok instrukcji } ;

. . .

wartośćN : { Blok instrukcji } ;

END;

Wyrażenie (selektor) - wyrażenie typu porządkowego integer, char, boolean,

Wartości od 1 do N - zwane stałymi wyboru muszą mieć z góry określoną wartość (nie mogą być wyrażeniami zawierającymi zmienne), muszą być tego samego typu.

W trakcie wykonywania instrukcji CASE wykonywany jest tylko jeden Blok instrukcji. Jest to pierwszy napotkany, dla którego zdefiniowana stała wyboru (lub jedna z nich, jeżeli zdefiniowaliśmy kilka lub przedział) spełnia wyrażenie :Wyrażenie = Wartość.

Jeżeli żadna ze stałych wyboru nie spełnia Wyrażenia, to Blok instrukcji zostanie pominięty i wykonywana jest dalsza część programu lub Blok instrukcji po ELSE, jeżeli żadna ze stałych wyboru nie spełnia Wyrażenia.

II. Instrukcja wyboru CASE - II postać

CASE Wyrażenie OF

wartość1 : { Blok instrukcji } ;

wartość2 : { Blok instrukcji } ;

. . .

wartośćN : { Blok instrukcji } ;

ELSE

{ Blok instrukcji }

END;

Przykłady programów z instrukcją CASE

1. Program po wczytaniu numeru (1-3) wypisze odpowiedni komunikat.

Program Instrukcja_CASE_1;

{ Program wczytuje numer (1-3) i wypisuje odpowiedni komunikat }

{ znajdujący się pod wczytanym numerem. }

uses SysUtils;

var Numer : Char; { Deklaracja zmiennej Numer typu znakowego }

begin

Writeln (' Program wczytuje numer (1-3) i wypisuje odpowiedni komunikat');

Writeln (' znajdujący się pod wczytanym numerem.');

Writeln;

Writeln (' 1) Poziom łatwy. ');

Writeln (' 2) Poziom średni.');

Writeln (' 3) Poziom trudny.');

Writeln;

Write (' Podaj numer (1-3) i naciśnij ENTER : ');

Read (Numer); { Wczytanie podanego numeru }

Writeln;

case Numer of { Początek instrukcji CASE }

'1': Write(' WYBRAŁEŚ POZIOM ŁATWY !!!');

'2': Write(' WYBRAŁEŚ POZIOM ŚREDNI !!!');

'3': Write(' WYBRAŁEŚ POZIOM TRUDNY !!!');

end; { Koniec instrukcji CASE }

Readln;

Writeln; Writeln; Writeln;

Write(' Naciśnij klawisz ENTER...');

Readln;

end.

Zadanie 1.

Napisz program, który po podaniu cyfry przez użytkownika wypisuje jej nazwę słownie.

Zadanie 2. Prosty kalkulator.

Napisz program, który wczytuje dwie liczby, a następnie wyświetla menu. Z menu można wybrać numer opcji (1-4), pod którym wykona się odpowiednie działanie matematyczne dla wprowadzonych liczb.

2

---