Nội dung của Bài tập và thực hành 8 dưới đây, các em sẽ hiểu thêm về khả năng đồ họa của Pascal và cách sử dụng các thủ tục về đồ họa để viết được một chương trình đơn giản. Mời các em cùng theo dõi nội dung chi tiết của bài thực hành.
Giới thiệu một số chương trình để học sinh thấy được khả năng đồ hoạ của Pascal.
Cho chương trình sau:
uses crt, graph;
var stop: boolean;
function Detectlnit(path:string): integer;
var drive, mode: integer;
begin
drive:= 0;
EnitGraph(drive, mode, path);
end;
begin
if Detectlnit('C:\TP\BGI')<>0 then
begin
Write('Loi do hoa ! Nhan phim Enter de ket thuc')
readln;
end
else
begin
Randomize;
MoveTo(getmaxx div 2, Getmaxy div 2);
stop:= false; while not (stop) do
begin
SetColor(Random(GetMaxColor)) ;
{Thiet lap mau mot cach ngau nhien}
LineTo(Random(getmaxx),Random(getmaxy));
Delay(200); {tam dung} stop :=keypressed;
end;
end;
CloseGraph
End.
Trả lời các câu hỏi dưới đây:
Thủ tục Moveto(getmaxx div 2, getmaxy div 2) có chức năng gì?
Chương trình này thực hiện công việc gì?
Gợi ý trả lời:
Cho chương trình sau:
program graphDemo;
uses graph;
var
gd, gm: integer;
xm, ym, xmaxD4, ymaxD4: Word;
begin
gd:=detect;
Initgraph(gd, gm, 'C:\TP\BGI');
xm: =GetmaxX div 2 , ym:= GetmaxY div 2);
{ve hinh chu nhat voi net ve mau vang}
SetColor(yellow);
Rectangle(10,10, xm, ym);
readln;
{Ve duong vong tron mau xanh la cay,tam(450; 100) Dan kinh 50}
Setcolor(LightGreen);
Circle(450, 100, 50);
readln;
{ve ellip mau do}
Sitrolor (red) ;
Elipse (100, 200, 0, 360, 50, 120);
readln;
CloseGraph
end.
Trả lời câu hỏi dưới đây:
Chương trình này thực hiện công việc gì?
Gợi ý trả lời:
Chương trình này thực hiện các công việc:
Sau khi học xong Bài tập và thực hành 8, các em cần nắm các kiến thức:
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 8 cực hay có đáp án và lời giải chi tiết.
Chương trình con là:
Phát biểu nào sau đây sai về chương trình con:
Chương trình con được chia làm mấy loại:
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é!
Các em có thể xem thêm phần hướng dẫn Giải bài tập Tin học 11 Bài tập và thực hành 8để giúp các em nắm vững bài học và các phương pháp giải bài tập.
Bài tập 1 trang 117 SGK Tin học 11
Bài tập 2 trang 117 SGK Tin học 11
Bài tập 3 trang 117 SGK Tin học 11
Bài tập 4 trang 117 SGK Tin học 11
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
Chương trình con là:
Phát biểu nào sau đây sai về chương trình con:
Chương trình con được chia làm mấy loại:
Phát biểu nào dưới đây là đúng:
Dựa vào đâu để phân loại chương trình con?
Mô tả nào dưới đây về tham số là sai?
Cho chương trình sau:
var a, b: integer;
procedure Hoan_doi( var a, b: integer);
var tmp: integer;
begin
tg:=a; a:=b; b:=tmp;
end;
Begin
a:=10; b:=11;
Hoan_doi(a,b);
write('a,' ',b);
End.
Kết quả chương trình là:
Cho chương trình sau:
var a, b: integer;
procedure Hoan_doi( var a, b: integer);
var tmp: integer;
begin
tg:=a; a:=b; b:=tmp;
end;
Begin
a:=10; b:=11;
Hoan_doi(a,b);
Hoan_doi(b,a);
write('a,' ',b);
End.
Kết quả chương trình trên là:
Cho x, y là hai biến nguyên và khai báo thủ tục:
Procedure Doicho( Var a : Integer; b : Integer);
Var z : Integer;
Begin
z:=a; a:=b; b:=z;
End;
Sau khi thực hiện các lệnh:
x:=7; y:=3;
Doicho(x, y);
thì giá trị của x, y là:
Khi chạy chương trình :
Var x : Integer;
Procedure TINH ;
Var x: Integer ;
Begin
x:=1; x:= x+12;
End;
BEGIN
x:=10;
TINH;
Write(x);
END.
Kết quả in ra là:
Hãy nêu sự giống nhau và khác nhau giữa thủ tục và hàm.
Chương trình con có thể không có tham số được không? Cho ví dụ.
Hãy cho ví dụ chương trình con có nhiều hơn một kết quả ra.
Viết chương trình con (hàm, thủ tục) tính bội số chung nhỏ nhất của hai số nguyên dương a, b. Hãy cho biết trong trường hợp này viết chương trình con dưới dạng hàm hay thủ tục là thuận tiện hơn. Vì sao?
Họ và tên
Tiêu đề câu hỏi
Nội dung câu hỏi
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 *