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.

23 tháng 1 2022

var ax,ay,bx,by,cx,cy,a,b,c : real;

begin

writeln('nhap toa do A', ax,ay);

writeln('nhap toa do B',bx,by);

writeln('nhap toa do C',cx,cy);

c:=sqrt(sqr(ax-bx) + sqr(ay-by)); 

b:=sqrt(sqr(ax-cx)+sqr(ay-cy));

a:=sqrt(sqr(bx-cx)+sqr(by-cy));

if (a+b>c) and (a+c>b) and (b+c>a) then write('Ba diem A,B,C tao thanh tam giac) else ('Ba dinh A,B,C khong tao thanh tam giac);

readln

end.

Giải thích : Sử dụng tọa độ để tính độ dài AB = c, AC = b, BC=a

Nếu tổng của 2 trong 3 số a,b,c lớn hơn số còn lại thì ta được tam giác, nếu không thì không tạo thành ta giác

#include <bits/stdc++.h>

using namespace std;

double ax,ay,bx,by,cx,cy,a,b,c;

int main()

{

cin>>ax>>ay>>bx>>by>>cx>>cy;

a=sqrt((ax-bx)*(ax-bx)+(ay-by)*(ay-by));

b=sqrt((ax-cx)*(ax-cx)+(ay-cy)*(ay-cy));

c=sqrt((bx-cx)*(bx-cx)+(by-cy)*(by-cy));

if (a+b>c && b+c>a && c+b>a) cout<<"Yes";

else cout<<"No";

return 0;

}

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='bai1.inp';

var f1:text;

a,b,c,cv,dt,p:real;

begin

clrscr;

assign(f1,fi); rewrite(f1);

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

cv:=a+b+c;

p:=cv/2;

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

writeln(f1,'Chu vi la: ',cv:4:2);

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

end

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

close(f1);

readln;

end.

13 tháng 2 2022

cho em hỏi cái này viết ra thuật toán thì viết kiểu sao ạ

 

18 tháng 10 2021

#include <bits/stdc++.h>
using namespace std;
int main() {
double a, b, c;
cin >> a >> b >> c;
if(a==b)
{if (b!=c) {cout << "Ba so da nhap la do dai ba canh cua mot tam giac can";}
if(b==c) {cout << "Ba so da nhap la do dai ba canh cua mot tam giac deu";}}
if(b==c)
{if(a!=b) {cout << "Ba so da nhap la do dai ba canh cua mot tam giac can";}}
if(a==c)
{if(a!=b) {cout << "Ba so da nhap la do dai ba canh cua mot tam giac can";}}
if(a!=b)
{if(b!=c) {cout << "Ba so da nhap khong la do dai ba canh cua mot tam giac can";}}
return 0;
}

Chúc bn học tốt! (Bonus thêm trường hợp không là độ dài tam giác cân và là độ dài của tam giác đều nha!)

28 tháng 10 2021

Kiểm tra xem tam giác đó là tâm giác đều hay không

30 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b>>c;

if ((a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a)) cout<<"Day la ba canh trong mot tam giac";

else cout<<"Day khong la ba canh trong mot tam giac";

return 0;

}

31 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

double xa,ya,xb,yb,xc,yc,ab,ac,bc,am;

int main()

{

cin>>xa>>ya>>xb>>yb>>xc>>yc;

ab=sqrt(pow(xa-xb,2)+pow(ya-yb,2));

ac=sqrt(pow(xa-xc,2)+pow(ya-yc,2));

bc=sqrt(pow(xb-xc,2)+pow(yb-yc,2));

cout<<"AB="<<fixed<<setprecision(2)<<ab<<endl;

cout<<"AC="<<fixed<<setprecision(2)<<ac<<endl;

cout<<"BC="<<fixed<<setprecision(2)<<bc<<endl;

am=((2*(ac*ac+bc*bc)-ab*ab)/4);

cout<<"AM="<<fixed<<setprecision(2)<<sqrt(am)<<endl;

return 0;

}

1 tháng 11 2021

cảm ơn ạ 

 

 

21 tháng 3 2021

 câu 1 Uses Crt;

Var St:String;

dem: Array[‘A’..’Z’] Of Byte

; i:Byte;

ch:Char;

Begin Write(‘Nhap xau St: ‘);

Readln(St);

{Khởi tạo mảng} For ch:=’A’ To ‘Z’ Do dem[ch]:=0;

{Duyệt xâu} For i:=1 To Length(St) Do If Upcase(St[i]) IN [‘A’..’Z’] Then Inc(dem[Upcase(St[i])]);

{Liệt kê các ký tự ra màn hình} For ch:=’A’ To ‘Z’ Do If dem[ch]>0 Then Writeln(ch,’ : ’,dem[ch]);

Readln;

21 tháng 3 2021

Hehe,con sâu

20 tháng 11 2023

#include <iostream>

int main() {
    // Nhập vào ba số thực a, b, c từ bàn phím
    float a, b, c;
    std::cout << "Nhap vao ba so thuc a, b, c: ";
    std::cin >> a >> b >> c;

    // Kiểm tra xem ba số này có tạo thành cạnh của tam giác hay không
    if (a + b > c && a + c > b && b + c > a) {
        // Kiểm tra loại tam giác
        if (a == b && b == c) {
            std::cout << "" << std::endl;
        } else if (a == b || a == c || b == c) {
            if (a * a + b * b == c * c || a * a + c * c == b * b || b * b + c * c == a * a) {
                std::cout << "VUONG CAN" << std::endl;
            } else {
                std::cout << "CAN" << std::endl;
            }
        } else if (a * a + b * b == c * c || a * a + c * c == b * b || b * b + c * c == a * a) {
            std::cout << "VUONG" << std::endl;
        } else {
            std::cout << "THUONG" << std::endl;
        }
    } else {
        std::cout << "KHONGPHAITAMGIAC" << std::endl;
    }

    return 0;
}

Bài 1:

uses crt;

var S:String;

vt:integer;

begin

clrscr;

Write(‘Nhap 1 xau:’); Readln(S);

While pos(‘nang’,s)>0 do

Begin

Vt:= pos(‘nang’,s);

Delete(s,vt,4);

Insert(‘mua’,s ,vt);

End;

Writeln(‘Xau sau khi thay the ’,s);

Readln;

End.

Bài 2: 

uses crt;

var st:string;

d,i,kt:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

kt:=0;

for i:=1 to d do 

  if st[i]<>st[d-i+1] then kt:=1;

if kt=0 then writeln(st,' la xau doi xung')

else writeln(st,' khong la xau doi xung');

readln;

end.