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.

8 tháng 1 2022

cứu mình với

 

8 tháng 1 2022

chỉ mình với ạ

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.

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
10 tháng 7 2017

a) Program chuvi_duongtron;

b) const pi = 3.14;

c) readln(r);

d) Thiếu End.

var s:string;

f1:text;

a:byte;

begin

assign(f1,'c:\ghixau1.txt'); rewrite(f1);

readln(s);

writeln(f1,s);

close(f1);

End.

24 tháng 6 2018

a) Program chuvi_duongtron;

b) const pi = 3.14;

c) write(‘nhap ban kinh r = ‘);

d) Thiếu End.

31 tháng 10 2017

a) uses crt;

b) var dt, r: real;

c) Thiếu Begin

d) dt:= pi*sqr(r);

18 tháng 12 2021

Bài 5: 

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<(a+b)*2;

return 0;

}

18 tháng 12 2021

Cảm ơn bạn rất nhiều😊

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.