Vyr.SMAZAT – Pascal – Fórum – Programujte.com

HELP PLEASE s tymto :

program interval;
uses crt;
var dh,hh,cislo:integer;

begin
write('Zadaj cislo:');
readln(cislo);
writeln('Zadaj dolnu a hornu hranicu intervalu:');
readln(dh,hh);
if dh < cislo and hh > cislo then

begin
writeln('Zadane cislo ',cislo,' je z intervalu <',dh,',',hh,'>');
writeln('Na ukoncenie programu stlac Enter...');
end;

if dh > cislo or hh < cislo then
begin
writeln('Zadane cislo ',cislo,' nie je z intervalu <',dh,',',hh,'>');
writeln('Na ukoncenie programu stlac Enter...');
end;
readln;
end.

argumenty okolo matematickych operacii (AND, OR) daj do zatvoriek

if  (dh < cislo) and (hh > cislo) then

skus takto:

program interval;

uses crt;

var dh,hh,cislo:integer;



begin

  write('Zadaj cislo:');

  readln(cislo);

  writeln('Zadaj dolnu a hornu hranicu intervalu:');

  readln(dh,hh);

  if  (dh < cislo) and (hh > cislo) then

  begin

   writeln('Zadane cislo ',cislo,' je z intervalu <',dh,',',hh,'>');

   writeln('Na ukoncenie programu stlac Enter...');

  end

  else

  begin

   writeln('Zadane cislo ',cislo,' nie je z intervalu <',dh,',',hh,'>');

   writeln('Na ukoncenie programu stlac Enter...');

  end;



readln;

end.

ok dik,, este mozte poradit ako spravit toto?

Vytvorte program, ktorý vypíše prienik dvoch intervalov <a,b> a <c,d>.
Príklady vstupov a výstupov:
Vstup Výstup
5
10
8
15 Prienikom intervalov <5,10> a <8,15> je interval <8,10>

Vstup Výstup
7
20
35
60 Prienikom intervalov <7,20> a <35,60> je prazdna mnozina

Pri riešení tejto úlohy treba uvažovať všetky možnosti (napr. interval v intervale atď.)

program Intervaly;

uses crt;

var dh1,dh2,hh1,hh2:integer;

begin

  readln(dh1,hh1,dh2,hh2);

  write('Prunikem intervalu <',dh1,',',hh1,'> a <',dh2,',',hh2,'> je ');

  if (dh1 > hh2) or (dh2 > hh1) then {prázdná množina}

    writeln('prazdna mnozina') else

  if hh1 = dh2 then

    writeln('cislo ',hh1) else

  if hh2 = dh1 then

    writeln('cislo ',hh2) else

    begin

      write('interval <');

      if dh1 > dh2 then

        write(dh1)

      else

        write(dh2);

      write(',');

      if hh1 > hh2 then

        write(hh2)

      else

        write(hh1);

      writeln('>');

    end;

  readln;

end.