Viết chương trình Pascal tính diện tích hình chữ nhật biết chiều dài là x, chiều rộng là y
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.
cái này thì mình ko chắc lắm!
Program Chu_nhat
uses crt;
Var x, y, S;
Begin Write(“Nhap chieu dai:”);
readln(x);
Write(“Nhap chieu rong:”);
readln(y);
S := x*y;
Writeln(“Dien tich hinh chu nhat la:”,S)
readln;
end.
uses crt;
var a,b:real;
begin
clrscr;
readln(a,b);
writeln(2*(a+b):4:2);
writeln(a*b:4:2);
readln;
end.
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:3:2);
Writeln('Chu vi hinh chu nhat la:',CV:3:2);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<a*b;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<(a+b)*2<<endl;
cout<<a*b;
return 0;
}
TK
program bt;
uses crt;
var a,b,S,P:real;
begin
clrscr;
writeln('hay nhap chieu dai hinh chu nhat: ');readln(a);
writeln('hay nhap chieu rong hinh chu nhat: ');readln(b);
S:=a*b;
P:=(a+b)*2;
writeln('dien tich hinh chu nhat la: ',S);
writeln('chu vi hinh chu nhat la: ',P);
readln;
end.
Program Chu_nhat
uses crt;
Var x, y, S;
Begin Write(“Nhap chieu dai:”);
readln(x);
Write(“Nhap chieu rong:”);
readln(y);
S := x*y;
Writeln(“Dien h hinh chu nhat la:”,S)
readln;
end.
easy
sdf