Instrukcja warunkowa IF -Pascal

[admin]

Struktura instrukcji:if (warunek) then polecenie else polecenie;
PrzykÂład:
if (x>10) then write('Liczba jest wiĂŞksza od 10') else write('to jednak inna liczba');

[admin]

Listing programu nr 2

program qwerty;
uses crt,dos;
var i,n:string;
x,y,z:integer;
begin
clrscr;
write('Podaj imie: ');readln(i);
write('Podaj swoje nazwisko: ');readln(n);
write('Podaj swoj wiek: ');readln(x);
if(x<18) then
writeln(i,' ',n,'Jestes niepelnoletni do pelnoletnosci masz ',18-x,' lat')
else
if(x>=65) then writeln(i,' ',n,'Jestes emerytem od ',x-65, ' lat')
else
writeln(i,' ', n, ' jestes pelnoletni od ',x-18,' lat');

if(x>=80) then writeln ('Przekroczyles srednia krajowa wieku o ',x-80,' lat');

   readkey;
end.

[admin]

Zadanie 2:ProszĂŞ napisaĂŚ program ktĂłry prosi o podanie dwĂłch liczb. JeÂżeli druga podana liczba jest =0 wtedy wyÂświetla komunikat "nie dzielĂŞ przez 0" w pozostaÂłych wypadkach wykonuje dzielenie i wynik wyÂświetla na ekranie.

Program zadanie_2;
uses crt, dos;
var x,y:real;
begin
clrscr;
write('Podaj pierwsza liczbe: ');readln(x);
write('Podaj druga  liczbe: ');readln(y);
if (y=0) then writeln('Nie dziele przez 0!!!!!') else
writeln( x:0:2,' / ',y:0:2,' = ',x/y:0:2);
readkey;
end.

[admin]

Zadanie 3. Podobnie jak w przypadku zadania 2 program prosi o podanie dwóch liczb. Je¿eli druga podana liczba jest = 0 wtedy zamienia je miejscami i wykonuje dzielenie. Np. podano liczby 3 i 2, wtedy program wykona dzia³anie 3/2. Je¿eli podane zostan¹ liczby 3 i 0, wtedy program zamieni ich kolejnoœÌ i wykona dzia³anie 0/3.

Program zadanie_2;
uses crt, dos;
var x,y:real;
begin
clrscr;
write('Podaj pierwsza liczbe: ');readln(x);
write('Podaj druga  liczbe: ');readln(y);
if (y=0) then writeln( y:0:2,' / ',x:0:2,' = ',y/x:0:2)  else
writeln( x:0:2,' / ',y:0:2,' = ',x/y:0:2);
readkey;
end.

[admin]

Zadanie 4. Program prosi o podanie trzech liczb. Oblicza ich sumĂŞ i jeÂżeli suma jest wiĂŞksza od 24 wtedy wyÂświetla napis: "Suma wiĂŞksza od 24", jeÂżeli suma jest mniejsza od 24 wtedy wyÂświetla komunikat:"suma jest mniejsza od 24 i =", tutaj wyÂświetlany jest wynik dodawania.

Program zadanie_4;
uses crt, dos;
var x,y,z,a:real;
begin
clrscr;
write('Podaj pierwsza liczbe: ');readln(x);
write('Podaj druga  liczbe: ');readln(y);
write('Podaj druga  liczbe: ');readln(z);
a:=x+y+z;
if (a>24) then writeln( y:0:2,' + ',x:0:2,' + ',z:0:2,' = ',a:0:2)  else
writeln( 'suma liczb jest mniejsza od 24 i = ',a:0:2);
readkey;
end.

[admin]

Zadanie 5. ProszĂŞ napisaĂŚ program ktĂłry prosi o podanie dwĂłch liczb. NastĂŞpnie wyÂświetla je w porzÂądku rosnÂącym. Np. podano liczby w kolejnoÂści 4 2. Po dziaÂłaniu programu wyÂświetlane sÂą w odwrotnej kolejnoÂści, czyli: 2 4.

Program zadanie_5;
uses crt, dos;
var x,y,z,a:real;
begin
clrscr;
write('Podaj pierwsza liczbe: ');readln(x);
write('Podaj druga  liczbe: ');readln(y);

if (x>y) then writeln( y:0:2,'  ',x:0:2)  else
writeln(x:0:2, '  ',y:0:2);
readkey;
end.

[admin]

Zadanie 6. ProszĂŞ napisaĂŚ program ktĂłry zada 2 pytania:"Kto odkryÂł AmerykĂŞ?", " w ktĂłrym roku byÂła bitwa pod Grunwaldem?" w przypadku udzielenia poprawnej odpowiedzi na pytanie wyÂświetlany jest komunikat: "brawo, poprawnie", w przypadku niepoprawnej odpowiedzi pojawi siĂŞ komunikat:"zla odpowiedz". Przypominam dla europy AmerykĂŞ odkryÂł Kolumb, a bitwa pod Grunwaldem miaÂła miejsce w 1410 roku.

Program zadanie_6;
uses crt, dos;
var x,y:integer;
a,b,c:string;
begin
clrscr;   y:=1410; a:='kolumb';b:='Kolumb';
write('Podaj rok w ktorym odbyla sie bitwa pod Grunwaldem?: ');readln(x);
if (x=y) then writeln('Masz racje, poprawna odpowiedz') else
writeln('Niestety podales nieporawny rok');
writeln('Podaj nazwisko odkrywcy Ameryki: ');readln(c);
if (c=a)then write('Podales poprawna odpowiedz!!!') else
if (c=b)then write('Podales poprawna odpowiedz!!!') else
writeln('Podales niepoprawna odpowiedz');
readkey;
end.

[admin]

Zadanie 7. Zmodyfikuj zadanie 6 w ten sposĂłb aby na koĂącu  pojawiaÂła siĂŞ informacja o liczbie poprawnych odpowiedzi.

Program zadanie_7;
uses crt, dos;
var x,y,licznik:integer;
a,b,c:string;
begin
clrscr;   y:=1410; a:='kolumb';b:='Kolumb'; licznik:=0;
write('Podaj rok w ktorym odbyla sie bitwa pod Grunwaldem?: ');readln(x);
if (x=y) then
begin writeln('Masz racje, poprawna odpowiedz');licznik:=licznik+1;end
else
writeln('Niestety podales nieporawny rok');
write('Podaj nazwisko odkrywcy Ameryki: ');readln(c);
if (c=a)then
begin write('Podales poprawna odpowiedz!!!'); licznik:=licznik+1;end else
if (c=b)then
begin writeln('Podales poprawna odpowiedz!!!'); licznik:=licznik+1; end else
writeln('Podales niepoprawna odpowiedz');
writeln('calkowita liczba poprawnych odpowiedzi= ',licznik);
readkey;
end.

UWAGA: W programie zastosowano zmiennÂą o nazwie licznik, zmienna zlicza poprawne odpowiedzi.
Po poleceniu if... znajduje siĂŞ omawiana na ĂŚwiczeniach instrukcja grupujÂąca: begin ....end;
Wszystkie polecenia ktĂłre znajdÂą siĂŞ pomiĂŞdzy sÂłowami begin ...end; bĂŞdÂą odczytywane przez kompilator jako jedno polecenie!!!
Dlaczego zachodzi taka potrzeba? Niestety kompilator Pascal pozwala na umieszczenie tylko jednego polecenia w instrukcji warunkowej. WstawiajÂąc instrukcjĂŞ grupujÂącÂą kompilator przyjmie jÂą jako jedno polecenie.

[admin]

Zadanie 9
Napisz program proszÂący o podanie trzech liczb caÂłkowitych. Po podaniu trzech liczb caÂłkowitych zostanÂą one wyÂświetlone w porzÂądku rosnÂącym. Czyli jeÂżeli podamy liczby w kolejnoÂści: 3, 1, 2 to zostanÂą na ekranie wyÂświetlone w porzÂądku: 1,2,3.

[admin]

Zadanie 10.
Napisz program proszÂący o podanie dwĂłch liczb i znaku operacji arytmetycznej (+,-,*,/). Program wykona takie dziaÂłanie jakie wybrano wyÂświetlajÂąc jego wynik w postaci np. 5+3=8.
JeÂżeli druga wprowadzona liczba jest = 0 , program nie wykona dzielenia. JeÂżeli podany zostanie znak inny niÂż; +,-,/,* program wyÂświetla komunikat "podano zÂły znak".

[admin]

program spr_8_11;
uses crt,dos;
var i:integer;
imie,nazw:string;
begin
clrscr;
write('Podaj swoje imie: ');readln(imie);
write('Podaj swoje nazwisko: '); readln(nazw);
write('Podaj swoj wiek: ');readln(i);
if (i<3) then
begin  writeln(imie,' ',nazw);writeln('Niemowlak!!!!!!'); end else
if (i<7) then
begin  writeln(imie,' ',nazw);writeln('Przedszkolak!!!!!!'); end
else
if(i<12) then begin  writeln(imie,' ',nazw);writeln('PODSTAWOWKA!!!!!!'); end
else
if(i<16) then
begin  writeln(imie,' ',nazw);writeln('PODSTAWOWKA!!!!!!'); end
 else
if(i<18) then
begin  writeln(imie,' ',nazw);writeln('LICEUM!!!!!!'); end
 else
begin writeln('Do roboty'); writeln(' do emerytury zostao',65-i,' lat');end;
readkey;


end.

[admin]

Zadanie 8.
Napisz program proszÂący o podanie imienia i nazwiska, po wczytaniu imienia i nazwiska umieszcza podane imiĂŞ i nazwisko w czterech rogach ekranu. WykorzystaĂŚ do realizacji tego celu polecenie gotoxy(x,y). Polecenie to zostaÂło podane w materiaÂłach ktĂłre PaĂąstwo otrzymaliÂście.

PROGRAM ZAD8;
uses crt,dos;
var imie,nazw:string;
begin
clrscr;
gotoxy(10,10);write('Podaj imie: ');readln(imie);
gotoxy(10,11);write('Podaj nazwisko: ');readln(nazw);

gotoxy(1,1);write(imie,' ',nazw);
gotoxy(60,1);write(imie,' ',nazw);
gotoxy(60,21);write(imie,' ',nazw);
gotoxy(1,21);write(imie,' ',nazw);
readkey;
end.