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

Văn Học

Cộng tác viên
Điểm
1,506
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(y);

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

readln

end.

 

Đính kèm

Xếp hạng chủ đề

Tạo
Văn Học,
Trả lời
0
Lượt xem
597

Đang có mặt

Không có thành viên trực tuyến.

Định hướng - GAC

Diễn đàn GAC - Giáo Án Chuẩn, nơi các Giáo viên, Phhs có thể tìm kiếm và chia sẻ những tài liệu giáo dục, những câu chuyện nghề nghiệp. Và cùng nhau thảo luận các chủ đề nuôi dạy con trẻ, chăm sóc sức khỏe, kinh doanh, du lịch, cuộc sống, tình yêu, hạnh phúc gia đình,...
Back
Top