Instrukcja warunkowa if

[admin]

W Turbo Pascalu instrukcja warunkowa realizowana jest przez złożone polecenie if....else.
Składnia polecenia: if (warunek) then polecenie else polecenie;

np. if (x=10) then write('Adam') else write('Ewa');

Jeżeli x=10 to wyświetl napis Adam w przeciwnym wypadku wyświetl napis Ewa.

Uwaga: przed else nie ma średnika!!!!

[admin]

Jeszcze raz"
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]

Przykład 1. Napisać program który prosi o podanie liczby. Jezeli podana liczba = 5 , program wyświetla komunikat : podałeś liczbe =5. Jeżeli podana została inna liczb wyświetlany jest komunikat: podano inną liczbe.

program misio;
uses crt,dos;
var x:integer;
begin
clrscr;
write('Podaj dowolna liczbe calkowita: ');readln(x);
if(x=5) then writeln('Podales liczbe =5')else writeln('Podales inna liczbe');
readkey;
end.

[admin]

Zadanie 2. Napisać program który prosi o podanie liczby całkowitej, jeżeli liczba jest podzielna przez 2 to wyświetla komunikat liczba jest podzielna przez 2. W przeciwnym wypadku wyświetla komunikat podałeś inną liczbę.

program misio;
uses crt,dos;
var x,y:integer;
begin
clrscr;
write('Podaj dowolna liczbe calkowita: ');readln(x);
y:=x mod 2;
if(y=0) then write('Liczba jest podzielna przez 2') else
writeln('Liczba jest niepodzielna przez 2');
readkey;
end.

[admin]

Zadanie 3. Napisz program który prosi o podanie imienia jeżeli podano imie= rysio, wyświetla komunikat: "podano poprawne imie" w przeciwnym przypadku wyświetla komunikat: "błędne dane".

program misio;
uses crt,dos;
var x,y:integer;
imie: string;
begin
clrscr;
write('Podaj imie: ');readln(imie);

if(imie='rysio') then write('Podano poprawne imie') else
writeln('Bedne dane');
readkey;
end.

[admin]

Zadanie 4. Napisz program który prosi o podanie dwóch liczb. Jeżeli podane liczby są sobie równe wyświetla komunikat : podano równe liczby. Jeżeli liczby nie są równe wyświetla komunikat: "podane liczby nie są równe"

program hermenegilda;
uses crt, dos;
var x,y :integer;
begin
clrscr;
write('Podaj pierwsza liczbe: '); readln(x);
write('Podaj druga liczbe: '); readln(y);
if(x=y) then write('Podane liczby sa rowne!!!!')
else
write('Podane liczby roznia sie');
readkey;
end.

[admin]

Zadanie 5. Napisz program proszący o podanie dwóch imon. Program ma sprawdzać czy podano imiona zaczynające się na ta samą literę.

[admin]

Zadanie 6. Napisać program który prosi o podanie litery program sprawdza czy podaną literą jest litera A. Jeżeli wprowadzono literę A wyświetlany jest komunikat: podano literę A. W pozostałym wypadku wyświetlany jest napis: !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!.

[admin]

Zadanie 7. Napisać program proszący o podanie trzech liczb całkowitych. Obliczający ich sumę. Jeżeli suma liczb jest większa od 20 , wyświetla komunikat: suma większa od 20 w przeciwnym wypadku wyświetla komunikat: suma mniejsza od 20.

[admin]

Zadanie 8. Napisać program proszący o podanie liczby. Następnie prosi o podanie drugiej liczby , Następnie prosi o podanie trzeciej liczby. Na ekranie wyświetla wartość największej wprowadzonej liczby.

[admin]

Zadanie X. Napisać program który prosi o podanie dwóch liczb. Po wprowadzeniu dwóch liczb prosi o podanie trzeciej liczby. Jeżeli trzecia liczba=1, wtedy program oblicza sumę dwóch pierwszych liczb, w przeciwnym wypadku oblicz ich różnicę

program hermenegilda;
uses crt, dos;
var x,y,z :integer;
begin
clrscr;
write('Podaj pierwsza liczbe: '); readln(x);
write('Podaj druga liczbe: '); readln(y);
write('Podaj trzecia liczbe: '); readln(z);
if(x=1) then write('Suma liczb=', x+y)
else
write('Roznica liczb=',x-y);
readkey;
end.

[admin]

Zadanie XX. Napisać program który prosi o podanie imienia. Jeżeli podano imię Ala, program wyświetla komunikat "Witaj Ala", w przeciwnym wypadku wyświetla napis "To chyba pomyłka" i prosi o podanie liczby. Jeżeli wprowadzona liczba jest większa od 10 to wyświetla komunikat "Duża liczba" w przeciwnym wypadku wyświetla napis " Cos nie tak".

program hermenegilda;
uses crt, dos;
var x,y :string;
z:integer;
begin
clrscr;
write('Podaj imie: '); readln(x);

if(x='Ala') then write('Witaj Ala')
else
writeln('To chyba pomylka');
writeln('Podaj liczbe:');readln(z);
if(z>10) then writeln('Duza liczba')else
writeln('Cos nie tak');
readkey;
end.

[admin]

Zadanie XXL. Napisać program który prosi o podanie trzech liczb. Następnie wyświetla je od najmniejszej do największej oraz wiersz niżej od największej do najmniejszej.