Tin học Pascal

[azura.]

[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.

Viết chương trình pascal
Cho 3 số nguyên a, b, c. Hãy cho biết đó có phải là 3 cạnh của tam giác không, nếu có thì đó là tam giác gì ?

 

[quân pro]

Viết chương trình pascal
Cho 3 số nguyên a, b, c. Hãy cho biết đó có phải là 3 cạnh của tam giác không, nếu có thì đó là tam giác gì ?

sorry vì không phải pascal
nhưng bạn cũng có thể dựa vô đây để tự biên dịch qua Pascal nhá

From C++ with love ~~

#include <iostream>
using namespace std;

int main() {
    int a{}, b{}, c{};
    cout << "Nhap so do tung canh (a b c): ";
    cin >> a >> b >> c;
   
    if (a + b < c || a + c < b || b + c < a) {
     cout << "Khong phai tam giac" << endl;
}
    if (a*a == b*b + c*c || b*b == a*a + c*c || c*c == b*b + a*a )
    {
        cout << "Tam giac vuong" << endl;
    }
    if (a == b || a == c || c == b)
    {
        cout << "Tam giac can" << endl;
    }
    else if ( a == b == c)
    {
        cout << "Tam giac deu" << endl;
    }
    else if (a != b != c)
    {
        cout << "Tam giac thuong" << endl;
    }
    system("pause");
    return 0;
}

 

[Tungtom]

sorry vì không phải pascal
nhưng bạn cũng có thể dựa vô đây để tự biên dịch qua Pascal nhá

From C++ with love ~~

#include <iostream>
using namespace std;

int main() {
    int a{}, b{}, c{};
    cout << "Nhap so do tung canh (a b c): ";
    cin >> a >> b >> c;

    if (a*a == b*b + c*c || b*b == a*a + c*c || c*c == b*b + a*a )
    {
        cout << "Tam giac vuong" << endl;
    }
    if (a == b || a == c || c == b)
    {
        cout << "Tam giac can" << endl;
    }
    else if ( a == b == c)
    {
        cout << "Tam giac deu" << endl;
    }
    else if (a != b != c)
    {
        cout << "Tam giac thuong" << endl;
    }
    system("pause");
    return 0;
}

1 TH không phải tam giác nữa ông êi~`

 

[Shinonome Kitaoji]

Uses crt;
Var (tự thông báo);
Begin
clrscr;
Write('Nhap do dai 3 canh: '); read(a,b,c);
If (bất đẳng thức tam giac) then
if ... then...( kiêm tra tam giac vuông)
else if... then... (kiểm tra tam giac đều)
else if...then.(kiểm tra tam giác cân)
else (thông báo tam giac thường)
else (thông báo khong phải là tam giac);
readln;
ENd.