[Tin 11] Viết chương trình đơn giản

ngchau2001 said:

Đề 1: Viết chương trình tính khoảng cách từ 1 điểm I(x1; y1) đến đường thẳng D: Ax + By + C = 0
Đề 2: Viết chương trình nhập vào thời gian 1 công việc nào đó là x giây. Hãy chuyển đổi và viết ra màn hình số thời gian trên dưới dạng bằng bao nhiêu giờ, bap nhiêu phút, bao nhiêu giây.

Bác nào biết làm bơi vào đây giúp e với ạ , mai e kiểm tra rồi ạ
@toilatot @LN V @Nguyễn Thánh Tiền @lâm chấn phong

Bấm để xem đầy đủ nội dung ...

ngchau2001 said:

Đề 1: Viết chương trình tính khoảng cách từ 1 điểm I(x1; y1) đến đường thẳng D: Ax + By + C = 0
Đề 2: Viết chương trình nhập vào thời gian 1 công việc nào đó là x giây. Hãy chuyển đổi và viết ra màn hình số thời gian trên dưới dạng bằng bao nhiêu giờ, bap nhiêu phút, bao nhiêu giây.

Bác nào biết làm bơi vào đây giúp e với ạ , mai e kiểm tra rồi ạ
@toilatot @LN V @Nguyễn Thánh Tiền @lâm chấn phong

Bấm để xem đầy đủ nội dung ...

ngchau2001 said:

cái đoạn này là sao? mình không hiểu lắm, bạn giải thích giúp mình với

Bấm để xem đầy đủ nội dung ...

ngchau2001 said:

Bài 1 mình làm thế này có đúng không?
program Tinh_khoang_cach;
var x1, y1, A, B,C, d: real;

begin
writeln ('Nhap vao x1, y1 la toa do diem I');
readln(x1, y1);
writeln ('Nhap vao he so A, B, C cua phuong trinh duong thang D');
readln(A, B, C);
d := abs(A*x1 + B*y1 + C) / sqrt(sqr(A) + sqr(B));
writeln ('Khoang cach thu diem I den duong thang D la:', d:8:2);
readln(d);
end.

@kingsman(lht 2k2)

Bấm để xem đầy đủ nội dung ...

ngchau2001 said:

nếu cái này khai báo là real có được không bạn?? @kingsman(lht 2k2)

Bấm để xem đầy đủ nội dung ...

ngchau2001 said:

Là sao?? d là cái mình gán mà??

Bấm để xem đầy đủ nội dung ...