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

[Chou Chou]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Đề 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

 

[lâm chấn phong]

Đề 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

tui ngu tin lắm bà ơi

 

[kingsman(lht 2k2)]

Đề 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ài 2 đây bạn nhé
Program doi_gio_phut_giay;
Uses crt;
Var gio, phut,giay, x:longint;
Begin
Clrscr;
Write('Nhap vao so giay: ');readln(x);
gio:= x div 3600;
x:=x mod 3600;
phut:=x div 60;
x:=x mod 60;
Writeln('Ket qua = ', gio,'gio : ', phut, 'phut : ', x, 'giay'); Readln;
Readln;
End.

 

[Chou Chou]

gio:= x div 3600;
x:=x mod 3600;
phut:=x div 60;
x:=x mod 60;
Writeln('Ket qua = ', gio,'gio : ', phut, 'phut : ', x, 'giay');

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

 

[Chou Chou]

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;
end.

@kingsman(lht 2k2)

 

[kingsman(lht 2k2)]

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

chỗ đó có nghĩ là nhập số giay
xong rồi gán 1gio =3600
và đổi ngược lại
phút cũng vậy

 

[kingsman(lht 2k2)]

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)

readln là dc rồi ko cần readln(d); làm gì
đúng rồi
mà để bạn cho thiếu mất hồi này đề ko thấy d ở đâu mất (vắng ct d)

 

[Chou Chou]

mà để bạn cho thiếu mất hồi này đề ko thấy d ở đâu mất (vắng ct d)

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

 

[Chou Chou]

Var gio, phut,giay, x:longint;

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

 

[kingsman(lht 2k2)]

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

real là số thực
mà h ;phut; s có khi nào âm đâu bạn

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

thường thì đề cho luôn ct rồi ...còn cái công thức này thì nhớ cũng dc ...