Giả sử mình muốn tạo một chường trình Pascal để tính chu vi một hình chữ nhật thì ngoài cách làm thông thường, khai báo biến, khai báo hằng thì còn cách nào nữa không ạ
Giả sử mình muốn tạo một chường trình Pascal để tính chu vi một hình chữ nhật thì ngoài cách làm thông thường, khai báo biến, khai báo hằng thì còn cách nào nữa không ạ
uses crt;
var a,b:longint;
begin
clrscr;
write(‘a,b= ‘);Readln(a,b);
writeln(‘Chu vi: ‘,(a+b)*2);
readln
end.
uses crt;
var a,b:real;
function cv(x,y:real):real;
begin
cv:=(x+y)*2;
end;
function dt(x,y:real):real;
begin
dt:=a*b;
end;
begin
write(‘Nhap a: ‘); readln(a);
write(‘Nhap b: ‘); readln(b);
writeln;
write(‘Chu vi hinh chu nhat la: ‘,cv(a,b):4:2);
writeln;
write(‘Dien tich hinh chu nhat la: ‘,dt(a,b):4:2);
readln
end.