👤
GEORGETA345EZ
a fost răspuns

De la tastatura se introduc coordonantele a trei puncte pe planul cartezian x1,y1,x2,x3,y3.Scrieti un program ce va determina punctul cel mai apropiat si cemai indepartat de originea sistemului de coordonate. Va rog mult.. In pascal

Răspuns :

LOZANALEXEZ
function dist(x,y:real):real;
begin
  dist:=sqrt(sqr(x)+sqr(y));
end;

var
  x,y,dmn,dmx,mx,my,xx,xy:real;
  i:integer;

begin
  read(x,y);
  dmn:=dist(x,y);
  dmx:=dmn;
  mx:=x; xx:=x;
  my:=y; xy:=y;
  for i:=1 to 2 do
  begin
    read(x,y);
    if (dmn>(dist(x,y))) then
    begin
      dmn:=dist(x,y);
      mx:=x; my:=y;
    end;
    if (dmx<dist(x,y)) then
    begin
      dmx:=dist(x,y);
      xx:=x; xy:=y;
    end;
  end;
  writeln('cel mai apropriat puct ',mx,' ',my);
  write('cel mai indepartat punct ',xx,' ',xy);
end.
Vă mulțumim că ați vizitat platforma noastră dedicată Informatică. Sperăm că informațiile oferite v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Așteptăm cu nerăbdare să vă revedem și nu uitați să ne salvați în lista de favorite!


Ez Askings: Alte intrebari