Pascal instrukcja if
- Szczegóły
- Kategoria: Pascal
- Opublikowano: poniedziałek, 29, sierpień 2011 16:11
- ber3333
- Odsłony: 76405
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.
