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.
1. Khai báo 2 biến: a và b (trong đó: a là chiều dài, b là chiều rộng)
Cho người dùng nhập giá trị vào 2 biến trên
Công thức chu vi:(a+b)*2
Công thức diện tích: a*b
Điều kiện bổ sung:
+ Nếu a <= 0 hoặc b <=0 hoặc cả a,b <=0 => Báo lỗi (Chiều dài không bao giờ âm)!
+ Nếu a=b => Báo lỗi (Hình chữ nhật thì chiều dài không thể bằng chiều rộng)
de 3
program bt;
uses CRT;
var m,n:integer;
T:real;
BEGIN clrscr;
write('m,n ='); readln(m,n);
writeln('Tong la:',m+n);
writeln('Hieu la:',m-n);
writeln('Tich la:',m*n);
T:=m/n;
writeln('Thuong la:',T);
readln
END.
Program Dien_tich_tam_giac;
Uses Crt;
Var
a,b,c:Integer;
p,s:Real;
Begin
Clrscr;
Writeln('DIEN TICH TAM GIAC');
Writeln('------------------');
Write('-Nhap so thu nhat: ');
Readln(a);
Write('-Nhap so thu hai : ');
Readln(b);
Write('-Nhap so thu ba : ');
Readln(c);
If (a+b>c) And (b+c>a) And (c+a>b) Then
Begin
Writeln('+Dung la Tam giac');
p:=0.5*(a+b+c);
s:=Sqrt(p*(p-a)*(p-b)*(p-c));
Writeln('+Dien tich= ',s:10:2);
End .
de 1:
huong dan
- Nhập hai cạnh vào hai biến a, b.
- Chu vi hình chữ nhật bằng 2*(a+b); Diện tích hình chữ nhật bằng a*b.
b. Mã chương trình:
Program Chu_nhat;
uses crt;
Var a, b, S, CV: real;
Begin
Write('Nhap chieu dai:'); readln(a);
Write('Nhap chieu rong:'); readln(b);
S := a*b;
CV := (a+b)*2;
Writeln('Dien tich hinh chu nhat la:',S);
Writeln('Chu vi hinh chu nhat la:',CV:10:2);
readln
end.
de 3,
program bt;
uses CRT;
var m,n:integer;
T:real;
BEGIN clrscr;
write('m,n ='); readln(m,n);
writeln('Tong la:',m+n);
writeln('Hieu la:',m-n);
writeln('Tich la:',m*n);
T:=m/n;
writeln('Thuong la:',T);
readln
END.
uses crt;
var a, b, c, d, P, S, h:real;
BEGIN
write ( 'nhap do dai day be a, day lon b, 2 canh ben c, d va chieu cao h: ');
readln(a, b, c, d, h);
P:=a+b+c+d;
S:=((a+b)*h)/2;
writeln ( ' chu vi = ',P:8:3, 'dien tich = ',S:8:3);
readln
END.
uses crt;
var a,b,cv,dt:real;
begin
clrscr;
write('dai='); readln(a);
write('rong='); readln(b);
if (a>0) and (b>0) and (a>=b) then
begin
cv:=(a+b)*2;
dt:=a*b;
writeln('chu vi la: ',cv:4:1);
writeln('dien tich la: ',dt:4:1);
end
else writeln('vui long nhap lai');
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long a,b,c,d,e,t;
int main()
{
cin>>a>>b>>c>>d>>e;
t=0;
if ((a%10==0) or (a%10==5)) t=t+a;
if ((b%10==0) or (b%10==5)) t=t+b;
if ((c%10==0) or (c%10==5)) t=t+c;
if ((d%10==0) or (d%10==5)) t=t+d;
if ((e%10==0) or (e%10==5)) t=t+e;
cout<<t;
return 0;
}
a)
Program TAM_GIAC;
uses crt;
var a,b,c,p,S: real;
Begin
clrscr;
Write('Nhap canh a:');readln(a);
Write('Nhap canh b:');readln(b);
Write('Nhap canh c:');readln(c);
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
Write('Dien tich tam giac la:',s:10:2);
readln
end.
b) Program Hinh_vuong;
uses crt;
var a,s,cv: Real;
Begin
clrscr;
Write('Nhap chieu dai canh:'); Readln(a);
s:=a*a;
cv:=a*4;
Writeln('Chu vi hinh vuong la:',cv);
Writeln('Dien tich hinh vuon la:',s);
Readln
End.
quá dễ
a) uses crt;
var ab,bc,ca,cv:integer;
p,dt:real;
begin
clrscr;
write('nhap canh AB='); readln(ab);
write('nhap canh BC='); readln(bc);
write('nhap canh CA='); readln(ca);
if (ab+bc>ca) and (ab+ca>bc) and (bc+ca>ab) then
begin
cv:=ab+bc+ca;
p:=cv/2;
dt:=sqrt(p*(p-ab)*(p-ac)*(p-bc));
writeln('chu vi hinh tam giac la: ',cv);
writeln('dien tich hinh tam giac la: ',dt:4:2);
end
else writeln('day khong la 3 canh trong 1 tam giac');
readln;
end.
b) uses crt;
var a,cv,dt:integer;
begin
clrscr;
write('nhap 1 canh bat ky cua hinh vuong:'); readln(a);
cv:=a*4;
dt:=sqr(a);
writeln('chu vi hinh vuong la: ',cv);
writeln('dien tich hinh vuong la: ',dt);
readln;
end.
a) Program Hinh_Tamgiac_Program;
Uses crt;
Var a,b,c,s,p : real;
Begin
Clrscr;
Writeln(‘HINH TAM GIAC:’);
Write(‘nhap a =’);readln(a);
Write (‘nhap b =’);readln(b); Write(‘nhap c =’);readln(c);
If ((a+b)>c)and((b+c)>a)and((a+c)>b) then
Begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c)); Writeln(‘Chu vi tam giac:’,2*p:4:2) ; Writeln(‘Dien tich tam giac:’,s:4:2);
End
Else
Writeln(a,’, ‘, b,’, ‘, c, ‘ khong phai la ba canh cua tam giac’) ;
Readln;
End.
b)
uses crt;
var
a,S,C: integer;
begin
clrscr;
write('Nhap do dai canh hinh vuong: ');readln(a);
C:=a*4;
S:=a*a;
writeln('Chu vi hinh vuong la: ',C);
writeln('Dien tich hinh vuong la: ',S);
readln
end.
a) uses crt;
var ab,bc,ca,cv:integer;
p,dt:real;
begin
clrscr;
write('nhap canh AB='); readln(ab);
write('nhap canh BC='); readln(bc);
write('nhap canh CA='); readln(ca);
if (ab+bc>ca) and (ab+ca>bc) and (bc+ca>ab) then
begin
cv:=ab+bc+ca;
p:=cv/2;
dt:=sqrt(p*(p-ab)*(p-ac)*(p-bc));
writeln('chu vi hinh tam giac la: ',cv);
writeln('dien tich hinh tam giac la: ',dt:4:2);
end
else writeln('day khong la 3 canh trong 1 tam giac');
readln;
end.
b) uses crt;
var a,cv,dt:integer;
begin
clrscr;
write('nhap 1 canh bat ky cua hinh vuong:'); readln(a);
cv:=a*4;
dt:=sqr(a);
writeln('chu vi hinh vuong la: ',cv);
writeln('dien tich hinh vuong la: ',dt);
readln;
end.