PROGRAMOWANIE APLIKACJI UŻYTKOWYCH- WYKŁAD 4. 27.10.2010r.

13. KOMENTARZE

• komentarz nie zawiera treści programu; powinien być istotną informacją dla osoby czytającej program: (*…*) lub {…}

• np.

(*

{pierwszy komentarz}

(*następny komentarz*)

*)

14. RELACJA UŻYTKOWNIK-PROGRAM

• Projektując program należy:

• precyzyjnie sformułować algorytm, zgodnie z którym wykonanie programu przekształci się dane do pożądanych wyników;

• opracować szczegółowo powyższy schemat komunikacji programu z użytkownikiem

15. INSTRUKCJA READ

• Składnia:

• read (lista_parametrów); lub

• readln (lista_parametrów);

• Interpretacja: wprowadzenie do komputera wartości i podstawienie wczytanej wartości pod zmienną (parametr instrukcji)

• Przykłady:

• read(X); read(suma);

• readln (liczba1, liczba2);

• readln (zm1, zm2,… zmN);

• źle: readln (`napis', zm);

• źle: readln (zm+1);

16. INSTRUKCJA WRITE

• Składnia:

• write (lista_parametrów); lub

• writeln (lista_parametrów);

• Interpretacja: wyświetlanie informacji na ekranie monitora (np. tekstu lub wartości zmiennej, stałej, funkcji itp.)

• Przykłady:

• write (`napis');

• writeln (`suma'=,s);

• writeln (`napis1', zm1,…'napisN',zmN);

• writeln (`średnia=',suma/(n-10));

17. ZASTOSOWANIE INSTRUKCJI := WRITE READ

• Zadanie: napisać program, który zsumuje 2 liczby wprowadzone przez użytkownika

• program suma_2_liczb;

var L1,L2,suma:integer;

begin

{-wprowadzenie danych-}

write (`Podaj L1:'); readln (L1);

write (`Podaj L2:'); readln (L2);

{-przetwarzanie danych-}

suma := L1+L2;

{-wprowadzenie wyników-}

writeln (`Wynik=', suma)

end.

18. INSTRUKCJA WARUNKOWA

19. PRZYKŁADY

20. PRZYKŁAD- INSTRUKCJA ZŁOŻONA

Program Pole_Kola_3;

Var promien:real; {promień koła}

pole: Real; {pole koła}

Begin

Write (`Wprowadź promień koła:');

ReadLn (promien);

if (promien>0) then

Begin

pole:=3.14*promien*promien;

Writeln (`Pole koła=',pole)

end

else Writeln (`Brak rozwiązania!')

End.

21. DEFINIOWANIE STAŁYCH

22. INSTRUKCJE ITERACYJNE

23. OPIS INSTRUKCJI REAPT…UNTIL

• powtarzaj wykonywanie instrukcji aż wartość wyrażenia logicznego będzie prawdą

• iteracja typu „powtarzaj” zapewni wykonanie instrukcji znajdującej się między rapt i until co najmniej raz

24. PRZYKŁAD REPEAT…UNTIL

• Zadanie: zapewnić kontrolę wprowadzonej wartości PIN

program dostęp_PIN;

const kodPIN=2905;

var pin_we:Word;

Begin

repeat

write (`Wprowadź kod PIN:');

readln (pin_we);

until pin_we=kodPIN;

writeln (`Wprowadzono poprawny PIN');

{…dalsza część programu}

end.

25. PRZYKŁAD 2

• Zadanie: zapewnić kontrolę wprowadzonej wartości PIN max. 3 razy

program dostęp_PIN_3x;

const kodPIN=2905;

max_prob=3;

var pin_we:Word;

proba:byte;

Begin

proba:=0

repeat

write (`Wprowadź kod PIN:');

readln (pin_we);

proba:=proba+1

until pin_we=kodPIN; Or

(proba=max+prob);

if (pin_we<>kodPIN)

then begin

writeln (`błędny PIN');

{…dalsza część programu}

end

end. {koniec programu}

25. INSTRUKCJA WHILE…DO

• Opis:

• dopóki wartość wyrażenia logicznego jest prawdą wykonywana jest instrukcja po słowie „do”

• w szczególnym przypadku instrukcja nie zostanie wykonana nawet raz

26. PRZYKŁAD INSTRUKCJI WHILE…DO

• Zadanie: obliczyć sumę kolejnych liczb całkowitych od liczba do liczbaK

• DaneWE: liczba, liczbaK DaneWY: suma

program Suma_N_liczb;

var liczba, liczbaK: integer;

liczba_i: integer;

suma: longint;

Begin

{--wprowadzenie danych--}

write (`Podaj pierwszą liczbę:');

readln (liczba);

write (`Podaj ostatnią liczbę:');

readln (liczbaK);

{--wartości początkowe zm.--}

suma :=0;

liczba_i := liczba;

{-- obliczenia--}

while (liczba_i<=liczbaK) do

Begin

suma :=suma+liczba_i;

liczba_i :=liczba_i+1

end;

{--wprowadzenie wyników--}

writeln (`SUMA=' , suma)

end.

DANE
wartości wprowadzane przez użytkownika

WYKONANIE PROGRAMU przetwarzanie danych

WYNIK

rezultaty wykonania programu

---