Zadanie
do wykonania
Tematem
zajęć jest zapoznanie słuchaczy z instrukcjami wyboru jako pierwsze zadanie
proponuje dokonanie oceny wzrostu. ( Część teoretyczna została wcześniej omówiona)
1.
wykorzystując instrukcje if argument
then
dokonać oceny wzrostu osoby. oto przykładowy przykład:
PROGRAM
Ocena_wzrostu;
USES
crt;
VAR
wzrost:integer;
BEGIN
clrscr;
write('Podaj
wzrost w cm ');
readln(wzrost);
IF wzrost>=170
THEN writeln('Jestes wysoki.');
IF (wzrost<170) AND (wzrost>150) THEN writeln('Jestes sredni.') ;
IF wzrost<=150 THEN writeln('Jestes niski.');
readkey
END.
2.
program z wykorzystaniem instrukcji
wyboru case
parametr
of oraz
pętlą umożliwiającą wielokrotne wykonanie programu
PROGRAM
Ocena_wzrostu;
USES
crt;
VAR
wzrost:integer;
BEGIN
clrscr;
writeln('Jesli
chcesz dalej pracowac wcisnij dowolny klawisz,a jesli nie,wcisnij n ');
writeln('=========================================================================');
REPEAT
write('Podaj wzrost w cm ');
readln(wzrost);
CASE wzrost OF
170..220:writeln('Jestes
wysoki.');
150..170:writeln('Jestes sredniego wzrostu.') ;
100..150:writeln('Jestes
niski.');
END;
UNTIL readkey='n';
END.
Użycie kodów ASCII w części programów umożliwi nam prosty program drukujący kody ASCI w wersji najprostszej i wersji bardziej rozbudowanej oto przykłady
program
kody;
uses
crt ;
var
i:
integer;
begin
clrscr
for i:=1 to 256 do
write(chr(i)); readln;
end.
PROGRAM
znaki_kody; {znaki ASCII}
USES
crt;
VAR
i:byte;
BEGIN
clrscr;
writeln('Znaki
i kody ASCII');
FOR
i:=0 TO 99 DO
BEGIN
write(' ',i,'=',char(i));
END;
writeln;
FOR i:=100 TO 255 DO
BEGIN
write(' ',i,'=',char(i));
END;
readln
END.
znając kody asci może teraz zadeklarować w naszym programie klawisz na który bedziemy opuszczać program oto przykładowe rozwiązanie redkey#=48