có a chị nào giỏi pascal giúp em bài này với:

vunamduong · 13/10/16

đề: viết chương chình tính độ dài đoạn thẳng AB, biết tọa độ hai điểm A(xa,ya) và B(xb,yb). Em viết nhưng toàn kêu lỗi có ai giúp em đc k,thanks!
var AB,xa,xb,ya,yb,,C,x,y:real;
begin
read(xa,xb,ya,yb,x,y);
AB:=(xb-xa,yb-ya);
C:=(yb-ya,xa-xb);
0:=(x-xa)*(yb-ya)-(y-ya)*(xa-xb);
write(giúp em điền cái này)
END.

quanltv · 13/10/16

Các lỗi trong code của bạn:

Trong phần khai báo var thừa 1 dấu phẩy (không biết do lỗi soạn thảo hay sao)
AB, C đang khai báo là real thì không thể nhập giá trị là 1 cặp toạ độ điểm được
Biến 0 chưa khai báo là gì cả, mà tên biến trong Pascal cũng không được đặt bắt đầu bằng ký tự số

Yêu cầu đề bài:
Input: toạ độ 2 điểm, được xác định bởi 4 con số là xa,xb,ya,yb thuộc kiểu real.
Output: độ dài đoạn thẳng AB được tính theo công thức SQRT((xa-xb)^2 + (ya-yb)^2), xuất ra giá trị này là xong.

vunamduong · 13/10/16

quanltv:
Các lỗi trong code của bạn:

Trong phần khai báo var thừa 1 dấu phẩy (không biết do lỗi soạn thảo hay sao)

AB, C đang khai báo là real thì không thể nhập giá trị là 1 cặp toạ độ điểm được

Biến 0 chưa khai báo là gì cả, mà tên biến trong Pascal cũng không được đặt bắt đầu bằng ký tự số

Yêu cầu đề bài:
Input: toạ độ 2 điểm, được xác định bởi 4 con số là xa,xb,ya,yb thuộc kiểu real.
Output: độ dài đoạn thẳng AB được tính theo công thức (xa-xb)^2 + (ya-yb)^2, xuất ra giá trị này là xong.

ad có thể viết dùm e đc k? e ms học lập trình có vài tiết thực sự k hiểu được nhiều. sau khi chỉnh lại bài thì em viết như sau:

tengiday · 13/10/16

Code của bạn chữ "readln" viết sai rồi. Ngoài ra, tính khoảng cách thì phải lấy căn. In kết quả chỉ cần như thế này:

Mã:

writeln(sqrt( (ya-yb)*(ya-yb) + (xa-xb)*(xa-xb) ) );

PS: Bạn tập đọc dòng báo lỗi của chương trình để fix lỗi cơ bản trc đã nhé. Hồi đó mình mới học cũng phải tập như thế.

vunamduong · 13/10/16

thanks bạn mk sẽ thử viết lại sau^^

quanltv · 13/10/16

vunamduong:
thanks bạn mk sẽ thử viết lại sau^^

Theo như ý của anh tengiday là đúng rồi, cộng thêm việc nhập 4 giá trị đầu vào thì CODE phải là

Mã:

[COLOR=#000000][FONT=Arial]readln(xa,ya,xb,yb);[/FONT][/COLOR]

vunamduong · 14/10/16

thanks mọi người nhiều^^

có a chị nào giỏi pascal giúp em bài này với:

quanltv

Sư phụ của ADMIN

vunamduong

tengiday

Happy life

vunamduong

quanltv

Sư phụ của ADMIN

vunamduong

Bài viết mới nhất

Thống kê