Giáo án môn Tin học lớp 11, tiết 43: Bài tập

[Văn Học]

TIẾT 43: BÀI TẬP​

1. Ổn định tổ chức

Lớp​	Ngày dạy​	Sĩ số​	Họ tên học sinh vắng​	Ghi chú​
​	​	​	​	​
​	​	​	​	​
​	​	​	​	​
​	​	​	​	​
​	​	​	​	​
​	​	​	​	​
​	​	​	​	​
​	​	​	​	​
​	​	​	​	​

2. Kiểm tra bài cũ

3. Dạy bài mới

1. SGK

2. Chương trình con không có tham số

Procedure ve;

Begin

Writeln(‘****************’);

Writeln(‘*I love you ok!*’);

Writeln(‘****************’);

End;

3. Chương trình con cho nhiều hơn một kết quả:

Procedure hoandoi(var x, y:integer);

Var tg:integer;

Begin

Tg:=x;

X:=y;

Y:=tg;

End;

4.

program bai4;

uses crt;

var x, y:integer;

function ucln(a, b:integer): integer;

var r:integer;

begin

while b>0 do

begin

r:=a mod b;

a:=b; b:=r;

end;

ucln:=a;

end;

function bcnn(a, b:integer): integer;

begin

bcnn:=a*b div ucln(a,b);

end;

begin

clrscr;

write('Nhap x: ');readln(x);

write('Nhap y: ');readln;

write('Boi chung nho nhat: ',bcnn(x,y));

readln

end.