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.