Question

Mọi người giúp em bài Pascal này với ạ:

Bài 1: Viết một thủ tục dùng để vẽ hình vuông bằng dấu *. Chiều dài của cạnh được nhập từ bàn phím. Gọi thực hiện thủ tục bởi chương trình chính.

Bài 2: Lập 3 thủ tục để tính diện tích hình tam giác, hình tròn và hình chữ nhật.

Bài 3: Lập 3 hàm để tính diện tích hình tam giác, hình tròn và hình chữ nhật.

Em xin cảm ơn ạ.

Answer 1

Bài 2:

- Thủ tục tính diện tích tam giác:

procedure tg(var a,b,c: integer);

var dt: real;

begin

dt:=1/4*sqrt((a+b+c)*(a+b-c)*(b+c-a)*(c+a-b));

write(dt:2:2);

end;

- Thủ tục tính diện tích hình tròn

procedure ht(var r: integer);

var dt1: real;

begin

dt1:=sqr(r)*pi;

write(dt1:1:2);

end;

- Thủ tục tính diện tích hình vuông

procedure hv( var x,y:integer);

var dt3:longint;

begin

dt3:=x;

dt3:=dt3*y;

write(dt3);

end;

Answer 2

Bài 1:

uses crt;
var n:integer;
{--------------------------chuong-trinh-con-----------------------}
procedure vehv(var a:integer);
var i,j:integer;
begin
for i:=1 to a do
begin
for j:=1 to a do
write('*');
writeln;
end;
end;
{-------------------------chuong-trinh-chinh---------------------}
begin
clrscr;
write('nhap canh hinh vuong:'); readln(n);
writeln('Hinh vuong bang dau * co canh bang ',n,' la: ');
vehv(n);
readln;
end.

Answer 3

Bài 3:

- Hàm tính diện tích tam giác:

function tg(a,b,c: integer): real;

var dt: real;

begin

dt:=1/4*sqrt((a+b+c)*(a+b-c)*(b+c-a)*(c+a-b));

tg:=dt;

end;

- Hàm tính diện tích hình tròn :

function ht(r: integer): real;

var dt: real;

begin

dt:=r*r*pi;

ht:=dt;

end;

- Hàm tính diện tích hình chữ nhật :

fuction hcn(x,y: integer): longint;

var dt: longint;

begin

dt:=x;

dt:=dt*y;

hcn:=dt;

end;