Nội dung của bài tập và thực hành 7 dưới đây sẽ giúp các em củng cố lại các kiến thức về chương trình con (thủ tục, hàm, tham số biến và tham số giá trị, biến toàn bộ và biến cục bộ) và rèn kĩ năng sử dụng được chương trình con để giải quyết trọn vẹn một bài toán trên máy tính. Mời các em cùng theo dõi nội dung bài học.
Hình 1. Cách viết và sử dụng chương trình con
b. Các biến - tham số và thực hiện chương trình trong chương trình con
Hình 2. Các biến - tham số và thực hiện chương trình trong chương trình con
Hình 3. Nội dung trọng tâm về biến
Hình 4. Nội dung trọng tâm về tham số
Hình 5. Cách thực hiện chương trình con
Viết chương trình thực hiện lần lượt các công việc sau:
Gợi ý làm bài:
p := (a+b+c)/2;
dt := sqrt(p* (p-a)*(p-b)*(p-c));
Var a,b,c : Integer;
Procedure NhapABC (Var a, b, c : Integer); {1. Nhập 3 cạnh a,b,c}
Begin
Write( 'Nhap a:' ); Readln( a );
Write( 'Nhap b:' ); Readln( b );
Write( 'Nhap c:' ); Readln( c );
End;
Procedure KiemTra_InDienTich ( a,b,c:Integer); {2. Kiểm tra tam giác}
Begin
If ((a+b>c) and (b+c>a) and (a+c>b)) then
Writeln(' Ba canh tren tao thanh tam giac.dien tich', Dientich(a,b,c) ) Else
Writeln('Ba canh tren khongtao thanh tam giac');
End;
Function Dientich( a, b, c:Integer ) : Real; {3. Hàm tính diện tích}
Var dt,p : Real;
Begin
p := (a+b+c)/2;
dt := sqrt(p* (p-a)*(p-b)*(p-c));
Dientich := dt;
End;
BEGIN {4. Chương trình chính}
NhapABC(a,b,c);
KiemTra_InDienTich (a,b,c);
END.
Viết chương trình tính \(C_{n}^{k}\). Có sử dụng hàm?
Gợi ý làm bài:
Program to_hop;
Uses crt;
Var n,k : integer;
nCk: real;
Function gt( n : integer) : integer;
var i,s: integer;
Begin
s:=1;
for i:=1 to n do
s:=s*i;
gt:=s;
end;
BEGIN
Write(‘ Nhap n:’); readln(n);
Write(‘ Nhap k:’); readln(k);
nCk := gt(n) /(gt(k) *gt(n-k));
Writeln(‘ nCk = ’, nCk);
Readln;
END.
Các em có thể hệ thống lại nội dung kiến thức đã học được thông qua bài kiểm tra Trắc nghiệm Tin học 11 Bài tập và thực hành 7 cực hay có đáp án và lời giải chi tiết.
Khẳng định nào sau đây là đúng?
Khẳng định nào sau đây là đúng?
Khẳng định nào sau đây là đúng?
Câu 4-10: Mời các em đăng nhập xem tiếp nội dung và thi thử Online để củng cố kiến thức về bài học này nhé!
Trong quá trình học tập nếu có thắc mắc hay cần trợ giúp gì thì các em hãy comment ở mục Hỏi đáp, Cộng đồng Tin học DapAnHay sẽ hỗ trợ cho các em một cách nhanh chóng!
Chúc các em học tập tốt và luôn đạt thành tích cao trong học tập!
-- Mod Tin Học 11 DapAnHay
Khẳng định nào sau đây là đúng?
Khẳng định nào sau đây là đúng?
Khẳng định nào sau đây là đúng?
Biến cục bộ là các biến được khai báo trong?
Biến toàn cục là các biến được khai báo trong?
Cho chương trình sau:
Program Chuong_Trinh;
Var a, b, S : byte;
Procedure TD(Var x : byte ; y : byte);
Var i : byte;
Begin
i := 5;
writeln(x,‘ ’, y);
x := x + i ;
y := y + i ;
S := x + y ;
Writeln(x,‘ ’, y);
End;
Begin
Write(‘nhập a và b : ’);
Readln(a, b);
TD(a,b);
Writeln(a,‘ ’, b, ‘ ’, S);
Readln;
End.
Trong chương trình trên có các biến cục bộ là:
Cho chương trình sau:
Program Chuong_Trinh;
Var a, b, S : byte;
Procedure TD(Var x : byte ; y : byte);
Var i : byte;
Begin
i := 5;
writeln(x,‘ ’, y);
x := x + i ;
y := y + i ;
S := x + y ;
Writeln(x,‘ ’, y);
End;
Begin
Write(‘nhập a và b : ’);
Readln(a, b);
TD(a,b);
Writeln(a,‘ ’, b, ‘ ’, S);
Readln;
End.
Trong chương trình trên có các biến toàn bộ là:
Cho chương trình sau:
Program Chuong_Trinh;
Var a, b, S : byte;
Procedure TD(Var x : byte ; y : byte);
Var i : byte;
Begin
i := 5;
writeln(x,‘ ’, y);
x := x + i ;
y := y + i ;
S := x + y ;
Writeln(x,‘ ’, y);
End;
Begin
Write(‘nhập a và b : ’);
Readln(a, b);
TD(a,b);
Writeln(a,‘ ’, b, ‘ ’, S);
Readln;
End.
Trong chương trình trên có các tham số thực sự là:
Trong lời gọi thủ tục, các tham số hình thức được thay bằng các giá trị cụ thể gọi là:
Để phân biệt giữa tham trị và tham biến ta dùng:
Họ và tên
Tiêu đề câu hỏi
Nội dung câu hỏi
Câu trả lời của bạn
Câu trả lời của bạn
Câu trả lời của bạn
Câu trả lời của bạn
m.n giải hộ em với
bài 1.viết chương trình nhập vào số nguyên n,xuất ra dãy số từ 1 đến n.
Câu trả lời của bạn
Program cai_j_cung_duoc;
Uses crt;
Var i,n integer;
Begin
Write(“nhap n “);read(n);
For i=1 to n do
Writeln(i);
Readln;
End.
0 Bình luận
Để lại bình luận
Địa chỉ email của hạn sẽ không được công bố. Các trường bắt buộc được đánh dấu *