Darmowe Forum

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!!!!

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');

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.

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.

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.

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.

Zadanie 5. Napisz program proszÂący o podanie dwĂłch imon. Program ma sprawdzaĂŚ czy podano imiona zaczynajÂące siĂŞ na ta samÂą literĂŞ.

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: !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!.

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.

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.

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.

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.

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.