Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  pithagor
Language: PASCAL
Code:
program ex 4;
uses wincrt;
var xa,ya,xb,yb,dista,distb,distab:integer
  
begin
  writeln('donnée xa:');
  Readln(xa);
  writeln('donnée ya:');
  readln(ya);
  writeln('donnée xb:);
  readln(xb);
  write('donnée yb');
  readln(yb);
  dista:=sqrt(sqr(xa)+sqr(ya));
  distb:=sqrt(sqr(xb)+sqr(yb));
  distab:=sqrt(sqr(dista))+sqrt(sqr(distb));
  writeln('le resultat et',distab);
end.          
Comments: