Pascal instrukcja if

Pascal instrukcja if

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.

• « poprz.
• nast. »