Pascal instrukcja if
- Szczegóły
- Kategoria: Pascal
- Opublikowano: poniedziałek, 29, sierpień 2011 16:11
- ber3333
- Odsłony: 70700
Pascal funkcja if
Praktyczne wykorzystanie instrukcji if
program wybierz; uses crt; var a: byte; begin clrscr; writeln('Podaj sumę liczb 2 i 5'); readln(a); if a=7 then begin writeln('Brawo Dobrze '); end else writeln('Niestety to nie ta liczba '); readln; end.
Praktyczne zastosowanie instrukcji else if
program wybierz_else_if; uses crt; var a: byte; begin clrscr; writeln('Podaj sumę liczb 2 i 5 lub 3 i 5'); readln(a); if a=7 then begin writeln('Brawo Dobrze wynik 7 '); end else if a=8 then begin writeln('Brawo Dobrze wynik 8 '); end else writeln('Niestety to nie ta liczba '); readln; end.