Rozwiązania zadań z kolokwium 1 roku 2012.

Zestaw 1

Zadanie 1

Napisz program, który po wprowadzeniu liczby z klawiatury, napisze komunikat:
- czy należy ona do iloczynu zbiorów A i B
- czy należy ona do iloczynu zbiorów A i C
- czy należy ona do iloczynu zbiorów B i C
- czy należy ona do iloczynu zbiorów A i B i C
Zbiór A {-12 ≤ x ≤ 7}, zbiór B {-5 ≤ x ≤ 20}, zbiór C {0 ≤ x ≤ 15}

Zadanie powinno zawierać instrukcje warunkowe IF sprawdzające kolejne punkty iloczynów zbiorów.

program Z1z1;

uses crt;

var

x:real;

begin

clrscr;

writeln('napisz liczbe');

readln(x);

IF (x>=-12) and (x<=7) and (x>=-5) and (x<=20) then begin

writeln('Liczba ',x:2:2,' nalezy do iloczynu zbiorow A i B');

IF (x>=-12) and (x<=7) and (x>=0) and (x<=15) then begin

writeln('Liczba ',x:2:2,' nalezy do iloczynu zbiorow A i C');

IF (x>=-5) and (x<=20) and (x>=0) and (x<=15) then begin

writeln ('Liczba ',x:2:2,' nalezy do iloczynu zbiorow B i C');

IF (x>=-12) and (x<=7) and (x>=-5) and (x<=20) and (x>=0) and (x<=15) then

Writeln('Liczba ',x:2:2,' nalezy do iloczynu zbiorow A i B i C');

end;

end;

end

else

Writeln('nie nalezy do zadnego zbioru');

readln;

end.

---