ĐỀ : viết chương trình tính chu vi, diện tích hình vuông có cạnh là a (a >0)
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.
uses crt;
var a:int64;
begin
clrscr;
readln(a);
writeln('Chu vi la:',a*4);
writeln('Dien tich la: ',a*a);
readln;
end.
minhhautran15/04/2020
program window
Uses crt;
Var a,C,S: real;
Begin
clrscr;
Write(' Nhap gia tri cua a: '); readln(a);
C:=a*4;
S:=a*a;
Writeln(' Chu vi la:',C:6:2);
Writeln(' Dien tich la:',S:6:2);
Readln
End.
#include<iostream>
using namespace std;
int main() {
int n;
cout << "Độ dài một cạnh hình vuông : "; cin >> n;
cout << "Chu vi hình vuông là : " << n * 4;
cout << "Diện tích hình vuông là : " << n * n;
return 0;
}
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.
#include <bits/stdc++.h>
using namespace std;
long long a,cv,dt;
int main()
{
cin>>a;
cv=a*4;
dt=a*a;
cout<<cv<<endl;
cout<<dt;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
int a=10;
int main()
{
cout<<a*4<<endl;
cout<<a*a;
return 0;
}
Program CT;
Uses Crt;
Begin
Clrscr;
Writeln('Chu vi hinh vuong =',10*4);
Writeln('Dien tich hinh vuong =',10*10);
Readln
End.
Câu 2:
#include <bits/stdc++.h>
using namespace std;
double a,b,cv,dt;
int main()
{
cin>>a>>b;
cv=(a+b)*2;
dt=a*b;
cout<<"Chu vi la:"<<fixed<<setprecision(2)<<cv<<endl;
cout<<"Dien tich la:"<<fixed<<setprecision(2)<<dt;
return 0;
}
Program HOC24;
var a:integer;
begin
write('Nhap a: '); readln(a);
writeln('Chu vi hinh vuong la: ',a*4);
write('Dien tich hinh vuong la: ',a*a);
readln
end.