K
Khách

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.

14 tháng 5 2022

Tham khảo

program hcn;

uses crt;

var d,r,dt:longint;

cv:real;

begin

write('nhap chieu dai va chieu rong cua hcn:');

readln(d,r);

cv:=(d+r)*2;

dt:=d*r;

writeln(' chu vi hcn do la:',cv);

writeln(' dien tich hcn do la:',dt);

readln

end.

uses crt;

var a,b:integer;

{-----------------chuong-trinh-con-tinh-chu-vi----------------------------------}

function cv(x,y:integer):integer;

begin

cv:=x+y;

end;

{-------------------chuong-trinh-con-tinh-dien-tich-----------------------------}

function dt(x,y:integer):integer;

begin

dt:=x*y;

end;

{-------------------------chuong-trinh-chinh-------------------------}

begin

clrscr;

write('Nhap chieu dai:'); readln(a);

write('Nhap chieu rong:'); readln(b);

writeln('Chu vi la: ',cv(a,b));

writeln('Dien tich la: ',dt(a,b));

readln;

end.

20 tháng 4 2023

# Hàm tính diện tích hình vuông

def dien_tich_hinh_vuong(canh):

     dien_tich = canh ** 2

     return dien_tich

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

def dien_tich_hinh_chu_nhat(dai, rong):

     dien_tich = dai * rong

     return dien_tich

# Kiểm tra và in kết quả

canh = float(input("Nhập vào cạnh hình vuông: "))

dai = float(input("Nhập vào độ dài hình chữ nhật: "))

rong = float(input("Nhập vào chiều rộng hình chữ nhật: "))

if canh <= 0 or dai <= 0 or rong <= 0:

     print("Kích thước không hợp lệ!")

else:

     dien_tich_hv = dien_tich_hinh_vuong(canh)

     dien_tich_hcn = dien_tich_hinh_chu_nhat(dai, rong)

     print("Diện tích hình vuông là: ", dien_tich_hv)

     print("Diện tích hình chữ nhật là: ", dien_tich_hcn)

1:

function dt(r:real):real;

begin

dt:=sqr(r)*pi;

end;

2:

function dt(a,b:real):real;

begin

dt:=1/2*a*b;

end;

#include <bits/stdc++.h>

using namespace std;

int main()

{

int a,b;

freopen("hcn.inp","r",stdin);

freopen("hcn.out","w",stdout);

cin>>a>>b;

cout<<(a+b)*2<<endl;

cout<<a*b;

return 0;

}

3 tháng 10 2021

uses crt;
var a,b,cv,s:longint;
begin
 clrscr;
  write('a=');readln(a);
  write('b=');readln(b);
  cv:=(a+b)*2;
  s:=a*b;
  writeln('chu vi cua hinh chu nhat do la:',cv);
  write('dien tich cua hinh chu nhat do la:',s);
 readln;
end.

 

CÁC BÀI TẬP VỀ CHƯƠNG TRÌNH CON BT_04_01: Viết chương trình con tính chu vi và diện tích của hình chữ nhật. Giải: Ta thấy rằng chương trình con tính chu vi, diện tích của hình chữ nhật nhất định phải có tham số đầu vào là 2 cạnh, đó là 2 tham trị. Nếu ta viết chương trình con là thủ tục thì kết quả phải lưu bằng một tham biến để đưa ra. Đặt tên các thủ tục là chu_vi, dien_tich ta cài...
Đọc tiếp
CÁC BÀI TẬP VỀ CHƯƠNG TRÌNH CON


BT_04_01: Viết chương trình con tính chu vi và diện tích của hình chữ nhật.

Giải: Ta thấy rằng chương trình con tính chu vi, diện tích của hình chữ nhật nhất định phải có tham số đầu vào là 2 cạnh, đó là 2 tham trị. Nếu ta viết chương trình con là thủ tục thì kết quả phải lưu bằng một tham biến để đưa ra. Đặt tên các thủ tục là chu_vi, dien_tich ta cài đặt như sau:

procedure Chu_vi(a,b : real; var c : real);

begin

C := 2*(a+b);



end;

 

{=================================}

procedure Dien_tich(a,b : real; var d : real);

begin


d := a*b;

end;


Tuy nhiên kết quả ra là kiểu thực, là kiểu mà hàm có thể trả lại nên ta có thể cài đặt 2 chương trình con trên bằng hàm như sau:

function Chu_vi(a,b : real): real;

Begin

Chu_vi := 2*(a+b);



end;

 

{=================================}

function Dien_tich(a,b : real): real;

begin


Dien_tich := a*b;

end;

 

0