Question

PSIO

1.Instrukcja CASE

Co musi być i dlaczego, najlepiej jakis krotki program dla sprawdzenia.

2.Instrukcja FOR

Co musi być i dlaczego, do czego służy.

PS. Tylko Oba Punkty, w przeciwny razie zgłaszam.

Answer 1

1. Instrukcja CASE

w pascalu:

 

CASE zmienna OF

'wartość1': instrukcja1;

'wartość2': instrukcja2;

...

'wartośćn': instrukcjan;

else instrukcja;

end;

 

chodzi w tym o to, że jeśli program natrafi na wartość taką samą jak podana zmienna, wykonuje instrukcje z tej samej linii tekstu, else to polecenie wykonywane jeśli każda wartość będzie inna niż podana zmienna. Przykładowy program:

 

program zadanie5;

uses crt;

var a: char;

begin

clrscr;

write('Wpisz litere (z malej) ');

read(a);

case a of

'a': begin write('Wpisales samogloske'); readkey; exit; end;

'e': begin write('Wpisales samogloske'); readkey; exit; end;

'i': begin write('Wpisales samogloske'); readkey; exit; end;

'o': begin write('Wpisales samogloske'); readkey; exit; end;

'u': begin write('Wpisales samogloske'); readkey; exit; end;

'y': begin write('Wpisales samogloske'); readkey; exit; end;

'b': begin write('Wpisales spolgloske'); readkey; exit; end;

'c': begin write('Wpisales spolgloske'); readkey; exit; end;

'd': begin write('Wpisales spolgloske'); readkey; exit; end;

'f': begin write('Wpisales spolgloske'); readkey; exit; end;

'g': begin write('Wpisales spolgloske'); readkey; exit; end;

'h': begin write('Wpisales spolgloske'); readkey; exit; end;

'j': begin write('Wpisales spolgloske'); readkey; exit; end;

'k': begin write('Wpisales spolgloske'); readkey; exit; end;

'l': begin write('Wpisales spolgloske'); readkey; exit; end;

'm': begin write('Wpisales spolgloske'); readkey; exit; end;

'n': begin write('Wpisales spolgloske'); readkey; exit; end;

'p': begin write('Wpisales spolgloske'); readkey; exit; end;

'r': begin write('Wpisales spolgloske'); readkey; exit; end;

's': begin write('Wpisales spolgloske'); readkey; exit; end;

't': begin write('Wpisales spolgloske'); readkey; exit; end;

'v': begin write('Wpisales spolgloske'); readkey; exit; end;

'x': begin write('Wpisales spolgloske'); readkey; exit; end;

'z': begin write('Wpisales spolgloske'); readkey; exit; end;

end;

write('Wpisany znak nie jest litera');

readkey;

end.

 

 

2. Instrukcja FOR

w pascalu:

 

for zmienna:wartość1 to wartość 2 do instrukcja

 

[np. for x:=3 to 8 do writeln('blablabla'); x:=x+1]

 

jest to pętla, program wykonuje instrukcje aż zmienna będzie większa bądź równa wartość2.