K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

1)     Cho trước tọa độ 4 đỉnh A,B,C,D, viết chương trình Python kiểm tra cạnh AB có cắt cạnh CD không?Thuật toán kiểm tra 2 đoạn thẳng giao nhau hay không như sau: Hai đoạn thẳng AB cà CD cắt nhau khi và chỉ khi đường thẳng ab qua AB cắt đoạn CD và đường thằng cd qua CD sẽ cắt AB. Giả sử f(x) là phương trình đường thẳng d thì d cắt đoạn AB khi và chỉ khi f(A).f(B) < 0.2)     Cho tam giác ABC với các cạnh có...
Đọc tiếp

1)     Cho trước tọa độ 4 đỉnh A,B,C,D, viết chương trình Python kiểm tra cạnh AB có cắt cạnh CD không?

Thuật toán kiểm tra 2 đoạn thẳng giao nhau hay không như sau:

 Hai đoạn thẳng AB cà CD cắt nhau khi và chỉ khi đường thẳng ab qua AB cắt đoạn CD và đường thằng cd qua CD sẽ cắt AB. Giả sử f(x) là phương trình đường thẳng d thì d cắt đoạn AB khi và chỉ khi f(A).f(B) < 0.

2)     Cho tam giác ABC với các cạnh có độ dài lần lượt là a,b,c. Các đường cao ha, hb, hc tương ứng  các cạnh a,b,c được tính theo công thức:

ha = 2S/a, hb = 2S/b, hc = 2S/c.

S là diện tích tam giác được tính theo công thức He ron.

Viết chương trình Python nhập 3 số a,b,c và tính các giá trị ha,hb,hc. Kết quả thể hiện trên màn hình. 

Cả 2 bài trên viết chương trình con

Mọi người giúp mình với ạ! :(((

 

0
10 tháng 3 2022

const fi='tep1.txt';

fo='ketqua.txt';

var

f1,f2:text;

b,d,f:byte;

T,a,c,e:longint;

begin

assign(f1,fi);

assign(f2,fo);

reset(f1);

rewrite(f2);

Readln(f1,a,b,c,d,e,f);

close(f1);

a:=exp(b*ln(a));

c:=exp(d*ln(c));

e:=exp(f*ln(e));

t:=a+c;

t:=t+e;

writeln(f2,t);

close(t2);

end.

10 tháng 3 2022

nếu viết chương trình giống như v nhưng cho vô hạn số thì sao ạ

uses crt;

var a,b,c,p,s,am,bn,cp:real;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then

begin

writeln('Day la ba canh trong mot tam giac vuong');

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Dien tich tam giac la: ',s:4:2);

am:=sqrt(2*(sqr(b)+sqr(c))-sqr(a))/4;

bn:=sqrt(2*(sqr(a)+sqr(c))-sqr(b))/4;

cp:=sqrt(2*(sqr(a)+sqr(b))-sqr(c))/4;

writeln('Do dai duong trung tuyen ung voi canh a la: ',am:4:2);

writeln('Do dai duong trung tuyen ung voi canh b la: ',bn:4:2);

writeln('Do dai duong trung tuyen ung voi canh c la: ',cp:4:2);

end

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

uses crt;

var a,b,c,p,s:real;

begin

clrscr;

readln(a,b,c);

if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then 

begin

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Chu vi la: ',2*p:4:2);

writeln('Dien tich la: ',s:4:2);

end

else writeln('A B C khong phai la chieu dai ba canh cua mot tam giac');

readln;

end.

uses crt;

var a,b,c:real;

begin

clrscr;

readln(a,b,c);

if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then 

begin

if (a=b) and (b=c) then write('Day la tam giac deu')

else writeln('Day khong la tam giac deu');

end

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.