DUzun's Web
Programare, proiecte personale, divertisment

Program P4;

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

   Pentru o lista de paralelograme se cunoaste:

    - denumirea fiecarui parallelogram,

    - dimensiunile fiecarui parallelogram,

    - masura unui unghi al fiecarui pral.

​

  A) sa se determine tipul fiecarui parallelogram;

  B) sa se determine perimetrul si aria fiecaruia;

  C) sa se afiseze denumirea si diagonale fiecarui parallelogram.

​

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

{--------------------------------------------------------------}

uses crt;

{--------------------------------------------------------------}

label next;

{--------------------------------------------------------------}

const 

  n = 10;

  toRad  = pi / 180;

  toGrad = 180 / pi;

  tipParal: array[0..3] of string = ('Paralelogram', 'Romb', 'Dreptunghi', 'Patrat');

{--------------------------------------------------------------}

type

   TParal = object

       a, b: Word; {lungimile laturilor}

       name: string[4];

   private

       u: real;    {masura unghiului in radiani}

   public

       function setUr(r: Real): Real;    {seteaza unghiului in radiani}

       function getUr: Real;             {masura unghiului in radiani}

       function setUg(r: integer): word; {seteaza unghiului in grade}

       function getUg: word;             {masura unghiului in grade}

       function Ha: Word;      {inaltimea dusa pe a}

       function Hb: Word;      {inaltimea dusa pe b}

       function D1: word;      {diagonala 1 (mai scurta)}

       function D2: Word;      {diagonala 2 (din u)}  

       function P: LongInt;    {perimetrul} 

       function S: real;       {aria}

       function Tip: byte;     {nr. tipului, conform tipParal}  

       function TipStr: String;{tipul paralelogramului}

   end;

{--------------------------------------------------------------}

function TParal.setUr(r: Real): Real;

begin

  if r > pi then r := r - pi;

  if r < 0  then r := r + pi;

  if r > pi/2 then r := pi - r; {alegem unghiul ascutit}

  u := r;

  setUr := u;          

end;

function TParal.setUg(r: integer): word;

begin

  setUg := round(setUr(r*toRad)*toGrad); 

end;

function TParal.getUr: Real; begin getUr := u; end;

function TParal.getUg: word; begin getUg := round(getUr*toGrad); end;

{--------------------------------------------------------------}

function TParal.Ha: Word; begin Ha := round(sin(u)*b); end;

function TParal.Hb: Word; begin Hb := round(sin(u)*a); end;

{--------------------------------------------------------------}

function TParal.D1: Word; begin D1 := round(sqrt(a*a+b*b-2*a*b*cos(u))); end;

function TParal.D2: Word; begin D2 := round(sqrt(a*a+b*b+2*a*b*cos(u))); end;

{--------------------------------------------------------------}

function TParal.P: LongInt; begin P := 2*(a+b);    end;

function TParal.S: real;    begin S := a*b*sin(u); end;  

{--------------------------------------------------------------}

function TParal.Tip: byte; 

var t: byte; 

begin 

  t := 0;

  if a = b  then inc(t,1);                {romb}

  if round((u-pi/2)*240)=0 then inc(t,2); {dreptunghi (cu exactitatea de 1 grad)}

  Tip := t; 

end;  

function TParal.TipStr: String; begin TipStr := tipParal[Tip]; end; 

{--------------------------------------------------------------}

var 

   list: array[1..n] of TParal;

   i, j: byte;

{--------------------------------------------------------------}

BEGIN

{ Generarea parametrilor }

  randomize;

  for i := 1 to n do with list[i] do begin

    a := random(10);

    b := random(10);

    setUg(random(24)*15);

    j := random(ord('Z')-ord('A')-3);

    name := chr(ord('A')+j) + chr(ord('A')+j+1) + chr(ord('A')+j+2) + chr(ord('A')+j+3);

  end;

​

goto next;    

{ Citirea parametrilor de la tastatura }    

  for i := 1 to n do with list[i] do begin

    write('nume (ex. "ABCD") = '); readln(name); 

    write('a = '); readln(a);

    write('b = '); readln(b);

    write('u = '); readln(u);

    setUr(u*toRad);{daca u este masura unghiul in grade}

  end;

next:

{ Afisarea rezultatului }

  clrscr;

  for i := 1 to n do with list[i] do begin

    writeln(name,' este ', TipStr,':');

    writeln(name[1]+name[2],' = ',a);    

    writeln(name[2]+name[3],' = ',b);

    writeln('<'+name[1]+name[2]+name[3],' = ',getUg);

    writeln('Diagonalele:  ');

    write(name[1]+name[3],' = ', D1);  write(',  ');

    write(name[2]+name[4],' = ', D2);  writeln;

    writeln('P  = ', P ); writeln('S  = ', S:4:2);

    write('Ha = ', Ha);  write(',  ');

    write('Hb = ', Hb);  writeln;

    writeln('---------------------');

    readkey;

  end;

​

  readkey;

END.

​

​