Programlama | Programlama Dilleri | C Programlama Dili |C++

Anasayfa Programlama Pascal Koordinatları Verilen Doğru Denklemini Bulma


Koordinatları Verilen Doğru Denklemini Bulma

Pascal programlama dilinde yazılmış olan bu program koordinat noktaları verilen doğrunun denklemini vermektedir. Kullanıcının girdiği koordinatlara göre üretilen doğru denklemi konsola yazdırılmaktadır.

Program Kodu:

  1. uses crt;
  2. var
  3. x1,y1,x2,y2,x:integer;
  4. m,y:real;
  5.  
  6. procedure denklem;
  7. begin
  8. m:=(y2-y1)/(x2-x1);
  9. y:=m*(x-x1)+y1;
  10.  
  11.  
  12.  
  13. begin
  14. clrscr;
  15. writeln('İlk noktanin koordinatlarini giriniz.. [x1,y1]: ');
  16. read(x1); read(y1);
  17. writeln('İkinci noktanin koordinatlarini giriniz.. [x2,y2]: ');
  18. read(x2); read(y2);
  19. denklem;
  20. readln;
  21. writeln('Dogru denklemi.. Y=',m,'(x-',x1,')+',y1);
  22. readln;
  23.  
  24.  

Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!