Viết chương trình cho phép nhập vào ba số a,b,c kiểm tra xem 3 số đó có phải độ dài của ba cạnh tam giác hay không. Nếu đúng in dòng chữ là độ dài ba canh của tam giác va tính chu vi của tam giác đó. Ngược lại nếu sai in dòng chữ không phải là độ dài 3 cạnh của tam giác
GIÚP MÌNH VỚI MÌNH SẮP THI RỒI
XIN CẢM ƠN
uses crt;
var a,b,c:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
until (a>0) and (b>0) and (c>0);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
writeln('La do dai ba canh cua tam giac');
writeln('Chu vi tam giac la: ',a+b+c:4:2);
end
else writeln('Khong phai la do dai 3 canh cua tam giac');
readln;
end.
Câu 1:Cho trước ba số dương a,b và c.Hãy sắp xếp các bước sau để mô tả thuật toán cho biết ba số đó có thể là độ dài ba cạnh của một tam giác hay không.
B1: Cho kết quả a,b,c là 3 cạnh của tam giác;
B2: Nhập 3 số dương a,b,c;
B3: Nếu a+b <= c , nếu a+c <= b , nếu b+c <= a, chuyển đến bước tiếp theo;
B4: In ra kết quả và kết thúc thuật toán
A.1-3-2-4
B.1-2-3-4
C.3-1-2-4
D.2-3-1-4
Viết chương trình nhập vào 3 số a, b, c. Kiểm tra 3 số đó có phải là 3 cạnh của 1 tam giác hay không? Nếu phải, kiểm tra tam giác đó có phải là tam giác đều
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.
hãy viết chương trình pascal thực hiện nhập 3 giá trị cho ba biến a,b,c nếu ba giá trị nhập vào thỏa mãn là chiều dài 3 cạnh của 1 tam giác thì in ra màn hình là true nếu 3 giá trị nhập vào không thỏa mãn là chiều dài 3 cạnh của một tam giác thì in ra màn hình fales
1. Nhập vào 1 năm (ví dụ: 2022), cho biết năm đó có phải năm nhuận không.
2. Viết chương trình tính giá trị biểu thức 1/(a+b) với a, b là các số được nhập từ bàn phím; (có thể thay đổi biểu thức khác)
3. Nhập vào 1 ký tự bất kỳ, cho biết ký tự đó thuộc loại ký tự nào (Ký tự số hay ký tự chữ cái hay ký hiệu khác).
giúp em với ạ mai em thi rồi ạ :((((((
2:
#include <bits/stdc++.h>
using namespace std;
double a,b;
int main()
{
cin>>a>>b;
cout<<fixed<<setpricision(2)<<1/(a+b)<<endl;
return 0;
}
nhập vào 3 số a,b,c bất kì.Kiểm tra xem nó có thể là độ dài ba cạnh hay không , nếu không thì in ra màn hình 'Khong la ba canh cua mot tam giac ' nếu có thì cho biết tam giác đó là tam giác thường,cân, đều,vuông hay vuông cân
1) Viết chưng trình nhập vào 3 số nguyên a,b,c. Đưa ra màn hình giá trị lớn nhất trong chúng.
VD
Dữ liệu nhập vào | Kết quả ra màn hình |
4 2 6 | 6 |
88 66 33 | 88 |
2) Nhập một ký tự. Cho biết ký tự đó có phải là chữ cái hay không. Nếu có ghi ra là “YES”, ngược lại ghi ra “NO”.
Dữ liệu nhập vào | Kết quả ra màn hình |
T | YES |
A | YES |
Z | YES |
1 | NO |
@ | NO |
1) Viết chưng trình nhập vào 3 số nguyên a,b,c. Đưa ra màn hình giá trị lớn nhất trong chúng.
VD
Dữ liệu nhập vào | Kết quả ra màn hình |
4 2 6 | 6 |
88 66 33 | 88 |
2) Nhập một ký tự. Cho biết ký tự đó có phải là chữ cái hay không. Nếu có ghi ra là “YES”, ngược lại ghi ra “NO”.
Dữ liệu nhập vào | Kết quả ra màn hình |
T | YES |
A | YES |
Z | YES |
1 | NO |
@ | NO |
3) Cho hai số nguyên dương a và b (a,b<= 106). In ra ước chung nhỏ nhất và bội chung nhỏ nhất của a và b.
3) Cho hai số nguyên dương a và b (a,b<= 106). In ra ước chung nhỏ nhất và bội chung nhỏ nhất của a và b.
Viết chương trình nhập vào 3 số a, b, c. Kiểm tra 3 số đó có phải là 3 cạnh của 1 tam giác hay không? Nếu phải, kiểm tra tam giác đó có phải là tam giác đều, tam giác cân, tam giác vuông, tam giác vuông cân không?
Hướng dẫn:
Để kiểm tra tam giác: tổng hai cạnh bất kì lớn hơn cạnh còn lại
Để phân loại tam giác:
- Tam giác đều: có 3 cạnh bằng nhau
- Tam giác cân: có 2 cạnh bằng nhau
- Tam giác vuông: áp dụng công thức Pi-ta-go
- Tam giác vuông cân: nó vừa vuông, vừa cân
1:
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if (a>0) and (b>0) then writeln('Cung dau');
if (a<0) and (b<0) then writeln('Cung dau');
if (a>0) and (b<0) then writeln('Khac dau');
if (a<0) and (b>0) then writeln('Khac dau');
readln;
end.
2:
uses crt;
var n,i,d,t,x,y:integer;
st:string;
begin
clrscr;;
repeat
write('Nhap n='); readln(n);
until (100<=n) and (n<=999);
str(n,st);
d:=length(st);
t:=0;
for i:=1 to d do
begin
val(st[i],x,y);
if x mod 2=1 then t:=t+x;
end;
writeln('Tong cac chu so le cua ',n,' la: ',t);
readln;
end.