DUzun's Web
Programare, proiecte personale, divertisment

{---------------------------------------------------------------------

 - Subiect:

   Intr-o cutie se contin n figuri geometrice de 2 tipuri:

   cu A laturi si cu B laturi. Numarul total de laturi ale tuturor

   figurilor din cutie este m.

​

 - Cerinta:

   De determinat numerele Xa si Xb de figuri, de tipurile respective,

   prezente in cutie.

​

 - Intrare:

   Numerele naturale n, m, A si B se introduc de la tastatura.

​

 - Iesire:

   Numerele naturale Xa si Xb se afiseaza la ecran.

​

 - Exemplu:

       Intrare: m = 1974    A = 3    |   Iesire:  Xa = 123

                n = 444     B = 5    |            Xb = 321

​

 - Analiza:

   Din cerinte avem:

     Xa +   Xb = n    | Acesta este un sistem de doua ecuatii si doua

   A*Xa + B*Xb = m    | necunoscute Xa si Xb, care poate fi rezolvat.

 ---------------------------------------------------------------------}

​

​

Program Figuri ;

uses crt ;

var A,B,m,n,Xa,Xb: Word ;

begin

clrscr ;

​

write('Nr de obiecte? n = ') ;             readln(n) ;

write('Nr de laturi? m = ') ;              readln(m) ;

write('Nr de obiecte cu A laturi? a = ') ; readln(A) ;

write('Nr de obiecte cu B laturi? b = ') ; readln(B) ;

​

if A = B then begin

   Writeln('Runtime Error 666:  The two types are identical!'#10#13'A must not be equal to B');

   Halt(1);

end;

​

Xa := (m-n*B)div(A-B) ;

Xb := (m-n*A)div(B-A) ; { Xb := n - Xa }

​

writeln('Xa = ', Xa) ;

writeln('Xb = ', Xb) ;

readkey ;

end.

​

​