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.
uses crt;
var a:array[1..100]of real;
i,n,j:integer;
tam:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('Day tang dan la: ');
for i:=1 to n do
write(a[i]:4:2,' ');
writeln;
writeln('Day giam dan la: ');
for i:=n downto 1 do
write(a[i]:4:2,' ');
readln;
end.
a,
Program bai1;
uses crt;
var n : integer;
begin
clrscr;
write('nhap so n ='); readln(n);
if n<=2 then write('so vua nhap vao khong hop le ') else
if n*n=(n-2)*(n-2)+(n-1)*(n-1) then write(n, ' la so pytago')
else
write(n , 'khong phai l so py ta go');
readln;
end.
Program bai1;
uses crt;
var a,b,c: integer;
begin
clrscr;
write('nhap so a ='); readln(a);
write('nhap so b ='); readln(b);
write('nhap so c ='); readln(c);
if (a*a=b*b+c*c) or ( b*b= a*a+c*c) or (c*c= a*a+b*b) then
write(a,'',b,'',c,' la bo so pytago')
else
write(a,'',b,'',c,' khong phai la bo so pytago');
readln;
end.
Quoc Tran Anh Le
Nguyễn Minh Lệ
Băng Băng 2k6
ĐỖ CHÍ DŨNG
Hazz, khá tức giận với bạn này, lôi kéo cả mình vào nữa !
Mình nói cho bạn biết, bạn có liêm sỉ không ? Liêm sỉ bạn cất ở đâu vậy ? Câu trả lời thì toàn đi copy, đã thế toàn đòi GV tick đúng để lên GP, trong khi đó mình trả lời sai, thiếu vân vân đủ thứ ,... Bạn nghĩ mỗi bạn là người làm được bài này ư ? Sai rồi bạn, nên bỏ ngay cái tính trẻ con đấy đi nhé ! Lấy lại liêm sỉ của mình đi, ok :))
Lời nói k mất tiền mua
Lựa lời mà nói không "đóe" vừa lòng nhau đâu !
2:
#include <bits/stdc++.h>
using namespace std;
double a,b,c,p,s;
int main()
{
cin>>a>>b>>c;
p=(a+b+c)/2;
s=sqrt(p*(p-a)*(p-b)*(p-c));
cout<<fixed<<setprecision(2)<<s;
return 0;
}
<bits/stdc++.h>
using namespace std;
int DTT(int a, int b, int c)
int m = sqrt(2*b*b+2*c*c-a*a)/2;
return m;
int main()
int a, b, c, m;
cout << "Nhap ba canh tam giac" << endl;
cin >> a >> b >> c;
m = DTT(a,b,c);
cout << m;
return 0;
end.
uses crt;
var a,b,c:real;
{-----------------chuong-trinh-con--------------------}
function ttuyen(x,y,z:real):integer;
begin
ttuyen:=(2*(sqr(ab)+sqr(ac))-sqr(bc));
end;
{---------------chuong-trinh-chinh-----------------------}
begin
clrscr;
repeat
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
until (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a);
writeln(sqrt(ttuyen(a,b,c))/4:4:2);
readln;
end.
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;
const fi='max.out';
var f1:text;
a,b,c,max:integer;
begin
clrscr;
assign(f1,fi); rewrite(f1);
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
writeln(f1,max);
close(f1);
readln;
end.