1) viết chương trình nhập vào chiều dài a và chiều rộng b của hình chữ nhật. Xuất ra giá trị diện tích và chu vi của hình chữ nhật đó.
2) viết chương trình nhập 2 số nguyên a và b .in ra màn hình kết quả hoán đổi giá trị 2 biến .
Giúp mik với
1) viết chương trình nhập vào chiều dài a và chiều rộng b của hình chữ nhật. Xuất ra giá trị diện tích và chu vi của hình chữ nhật đó.
2) viết chương trình nhập 2 số nguyên a và b .in ra màn hình kết quả hoán đổi giá trị 2 biến .
Giúp mik với
1.
program ctpt;
uses crt;
var a, b, C, S: real
begin
clrscr;
write(‘Nhap a = ‘); readln(a);
write(‘Nhap b = ‘); readln(b);
C:=(a+b)*2;
S:=a*b;
writeln(‘Dien tich hinh chu nhat la: ‘, S:2:1);
writeln(‘Chu vi hinh chu nhat la: ‘, C:2:1);
readln
end.
2.
program ctpt;
uses crt;
var a, b, t: real;
begin
clrscr;
write(‘Nhap a = ‘); readln(a);
write(‘Nhap b = ‘); readln(b);
t:=a;
a:=b;
b:=t;
writeln(‘Gia tri cua a va b sau khi hoan doi la:’);
writeln(‘a = ‘, a);
writeln(‘b = ‘, b);
readln
end.
Câu 1:
Program NN;
Uses crt;
Var a,b,s,p: real;
Begin
Clrscr;
Write(‘Nhap chieu dai va chieu rong: ‘); Readln(a,b);
s:=a*b;
p:=(a+b)*2;
Writeln(‘S = ‘,s:0:2);
Write(‘P = ‘,p:0:2);
Readln
End.
Câu 2:
Program NN;
Uses crt;
Var a,b: longint;
Begin
Clrscr;
Write(‘Nhap a: ‘); Readln(a);
Write(‘Nhap b: ‘); Readln(b);
Write(b,’ ‘,a);
Readln
End.