Tin học Ôn thi HKII lớp 8

[Iam_lucky_girl]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Em đang cần gấp TT
Đề khá dài giúp em hết ạ
Em chân thành cảm ơn.

 

[Minh Tín]

View attachment 157806 View attachment 157807
Em đang cần gấp TT
Đề khá dài giúp em hết ạ
Em chân thành cảm ơn.

1C 2D 3B 4A 5C 6D
7. 85; 30
8A 9A 10B 11D 12A 13C 14A 15B 16C 17A 18D
19) Lặp biết trước:
- Mỗi ngày ăn 3 bữa cơm: mỗi bữa đều có hành động ăn uống.
- Một ngày học 5 tiết.
Cấu trúc lặp không biết trước. Có 2 cấu trúc:
While <điều kiện> do <câu lệnh>;
Repeat <câu lệnh> until <điều kiện>;

20) Lặp chưa biết trước:
- Tìm đồ bị mất.
- Gọi điện cho người khác đến khi họ bắt máy.
Cấu trúc lặp không biết trước: tương tự câu 19.

21)

program BT21;
uses crt;
var a: array[1..100] of integer; i,n: byte; S:integer;
begin
 clrscr; S:=0;
 write('Nhap so phan tu can dung:'); readln(n);
 for i:=1 to n do begin
 write('Nhap phan tu thu ',i,':'); readln(a[i]);
 S:=S+a[i];
 end;
writeln('Tong cac so vua nhap la:',S);
readln
 end.

22 )

program BT22;
uses crt;
var a: array[1..100] of integer; i,n: byte; 
begin
 clrscr; 
 write('Nhap so phan tu can dung:'); readln(n);
 for i:=1 to n do begin
 write('Nhap phan tu thu ',i,':'); readln(a[i]);
 end;
write('Cac phan tu chia het cho 3 la:');
for i:=1 to n do if a[i] mod 3 = 0 then write(a[i]:3);
readln
 end.

23)

program BT23;
uses crt;
var a: array[1..100] of integer; i,n: byte; max:integer;
begin
 clrscr; 
 write('Nhap so phan tu can dung:'); readln(n);
 for i:=1 to n do begin
 write('Nhap phan tu thu ',i,':'); readln(a[i]);
 end;
max:=a[1];
for i:=2 to n do if a[i] > max then max:=a[i];
writeln('So lon nhat trong day la:',max);
readln
 end.

24)

program BT24;
uses crt;
var a: array[1..100] of integer; i,n: byte; min:integer;
begin
 clrscr; 
 write('Nhap so phan tu can dung:'); readln(n);
 for i:=1 to n do begin
 write('Nhap phan tu thu ',i,':'); readln(a[i]);
 end;
min:=a[1];
for i:=2 to n do if a[i] < min then min:=a[i];
writeln('So lon nhat trong day la:',min);
readln
 end.