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.
PROGRAM DIEN TICH TAM GIAC;
{Nhap vao do dai 3 canh tam giac. Tinh dien tich tam giac ay}
VAR a,b,c,p,S:real;kt:boolean;{kt: kiem tra}
BEGIN
Write('Nhap a: ');readln(a);
Write('Nhap b: ');readln(b);
Write('Nhap c: ');readln(c);
Writeln;
kt:=(a>0)and(b>0)and(c>0)and(a+b>c)
and(b+c>a)and(a+c>b);
If kt=true then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Dien tich S= ',S:6:2);
end
Else writeln(,'Khong thuc hien vi day khong la do dai 3 canh tam giac');
Readln
END.
* Xin chú ý với bạn rằng: Trước khi tính diện tích tam giác, ta phải kiểm tra xem ba độ dài a, b, c có phải là ba cạnh của tam giác hay không, cho nên cần phải có biến kt:boolean;{kt: kiem tra}
kt:=(a>0)and(b>0)and(c>0)and(a+b>c)
and(b+c>a)and(a+c>b)
Chúc bạn học tốt!
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: ',p*2:4:2);
writeln('Dien tich la: ',s:4:2);
end
else writeln('a,b,c khong la ba canh cua tam giac');
readln;
end.
CÂU 1:
program hinhchunhat;
var a,b,S,C: real;
begin
Write('Nhapdodaicanhthuchata=');readln(a);
Write('Nhapdodaicanhthuhaib=');readln(b);
S:= a*b;
C:=(a+b)*2;
Writeln('Dientichhinhchunhatla:',S);
Writeln('Chuvihinhchunhatla:',C);
readln
end.
CHÚC BẠN HỌC TỐT!
CÂU 2:(lưu ý: câu này thì mik viết chương trình với bán kính hình tròn là sớ thực được nhập từ bàn phím còn số dương thì bn tự tìm hiểu nhe. nếu tìm hiểu đc thì bn chỉ cần thay phần khai báo var thôi nhe.)
program hinhtron;
var r:real;
const pi=3.14;
begin
clrscr;
Write('Nhapbankinh:');readln(r);
Writeln('Chuvihinhtronla:',2*pi*r);
Writeln('Dientichhinhtronla:',pi*r*r);
readln
end.
CHÚC BẠN HỌC TỐT (x2)
Câu 1:
uses crt;
var a,s,p:real;
begin
clrscr;
repeat
write('Nhap do dai canh hinh vuong:'); readln(a);
until a>0;
p:=4*a;
s:=sqr(a);
writeln('Chu vi hinh vuong la: ',p:4:2);
writeln('Dien tich hinh vuong la: ',s);
readln;
end.
Câu 2:
uses crt;
var a,b,t,s,h:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
t:=a+b;
h:=a-b;
s:=a*b;
writeln('Tong la: ',t:4:2);
writeln('Hieu la: ',h:4:2);
writeln('Tich la: ',s:4:2);
readln;
end.
Câu 3:
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 writeln('Day la ba canh trong mot tam giac')
else writeln('Day khong la ba canh trong mot tam giac');
readln;
end.
3:
#include <bits/stdc++.h>
using namespace std;
double x,y,z;
int main()
{
cin>>x>>y>>z;
cout<<x+y+z<<endl;
cout<<x*y*z;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
double a,b,c,h,p,s;
int main()
{
cin>>a>>b>>c;
p=(a+b+c)/2;
s=sqrt(p*(p-a)*(p-b)*(p-c));
if (s>50) cout<<"Dien tich tam giac lon hon";
else cout<<"Dien tich tam giac nho hon";
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long double a,b;
int main()
{
cin>>a>>b;
cout<<fixed<<setprecision(2)<<(a+b)*2<<endl;
cout<<fixed<<setprecision(2)<<a*b;
return 0;
}
Bài 1:
uses crt;
var a,b,cv,dt:real;
begin
clrscr;
repeat
write('nhap chieu dai:'); readln(a);
write('nhap chieu rong:'); readln(b);
if (a<=0) or (b<=0) or (a<b) then writeln('vui long nhap lai');
until (a>0) and (b>0) and (a>=b);
cv:=(a+b)*2;
dt:=a*b;
writeln('chu vi cua hinh chu nhat la: ',cv:4:2);
writeln('dien tich cua hinh chu nhat la: ',dt:4:2);
readln;
end.
Bài 2:
uses crt;
var r,s:real;
begin
clrscr;
repeat
write('nhap ban kinh:'); readln(r);
if r<=0 then writeln('vui long nhap lai');
until r>0;
s:=sqr(r)*pi;
writeln('dien tich hinh tron la: ',s:4:2);
readln;
end.
Bài 3:
uses crt;
var a,b,c,cv,p,s: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) then
begin
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
cv:=a+b+c;
writeln('chu vi tam giac la: ',cv:4:2);
p:=cv/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('dien tich tam giac la: ',s:4:2);
end
else writeln('Khong la ba canh cua mot tam giac');
end
else writeln('Khong la ba canh cua mot tam giac');
readln;
end.
Bài 4:
uses crt;
var a,b:real;
begin
clrscr;
write('nhap he so bac nhat='); readln(a);
write('nhap hang tu tu do='); readln(b);
if a=0 then
if b=0 then writeln('Phuong trinh co vo so nghiem')
else writeln('Phuong trinh vo nghiem')
else writeln('Phuong trinh co nghiem x=',-b/a:4:2);
readln;
end.
Bài 5:
Program BAT_PHUONG_TRINH_BACI;
Uses crt;
Var a,b: real;
Begin
Clrscr;
Writeln('GIAI BAT PHUONG TRINH BAC NHAT: AX + B>=0'); Writeln('----------------------------------------------------------------------'); Write('nhap a='); readln(a);
Write('nhap b='); readln(b);
If a<>0 then
If a>0 then Writeln('Bat phuong trinh co nghiem: x>=',-b/a:4:2)
Else Writeln('Bat phuong trinh co nghiem: x<=',-b/a:4:2)
Else If b>=0 then Writeln('Bat phuong trinh co vo so nghiem')
Else writeln('Bat phuong trinh vo nghiem');
Readln;
End.
cảm ơn bạn