Ôn tập học kì II lớp 8

Chia sẻ bởi Nguyễn Thị Duyên | Ngày 24/10/2018 | 60

Chia sẻ tài liệu: Ôn tập học kì II lớp 8 thuộc Tin học 8

Nội dung tài liệu:

Ôn tập học kỳ II
PHẦN LẬP TRÌNH HỌC KÌ II
Câu lệnh lặp
Làm việc với dãy số
Lặp với số lần biết trước
For…to….do
Lặp với số lần chưa biết trước
While…do
Khai báo mảng
Nhập mảng
Xuất mảng
Lặp với số lần biết trước
For := to do ;

Ví dụ:
For i: = 1 to 10 do write (‘A’);
For i: = 1 to 10 do begin write (‘A’); delay(100) end;




Lặp với số lần chưa biết trước
While <điều kiện> do ;

Ví dụ:
While a< 1 do write (‘A’);
While S<=5 do begin n:=n+1; S: = S+n end;


- Khai báo mảng:
Var Tên mảng: array[]
of ;
Ví dụ: Var Diem: array [1..50] of real;

- Nhập mảng:
For i:= 1 to n do
begin write(i,’.’); readln(Diem[i]) end;

- Xuất mảng:
For i:= 1 to n do write(Diem[i]);


Bài tập
b) Var X: Array[5 .. 50.5] of Real;
e) While x:= 10 do x: =x + 5;
a) Var X: Array[1;50] of Integer;
Sai, phải thay dấu chấm phẩy bằng hai dấu chấm
Sai, vì chỉ số mảng phải là số nguyên
Sai, vì giá trị của biến đếm phải là giá trị nguyên
Sai, vì điều kiện thường là phép so sánh không phải phép gán
c) For i:= 1.5 to 10 do write (‘A’);
d) For i: 1 to; 10 do write (‘A’);
Sai, vì thiếu dấu bằng ở phép gán và thừa dấu chấm phẩy sau ‘to’
?1 Tìm giá trị của a qua đoạn chương trình sau?
A: = 15;
For i:=1 to 10 do a: = a - i;
?2 Tìm giá trị của a qua đoạn chương trình sau?
a: = 15; b:=5;
While a>=10 do
Begin B:=b+a;
a:= a-1;
End;

?3 Viết chương trình Pascal nhập 1 mảng 10 số thực bất kỳ, báo ra màn hình tổng bình phương của các số âm trong mảng?
Program BT3;
Var i: integer;
TongBP: real;
A: array[1..100] of real;
Begin
Write (‘ Nhap mang so thuc’);
For i: =1 to 10 do
Begin
Write (‘A[‘,i,’ ] =’); readln(A[i]);
end;
Write (‘Mang so thuc la’);
For i: =1 to 10 do write (A[i]: 5: 1)
Tong BP: = 0;
For i: =1 to 10 do if A[i]< 0 then Tong BP: = Tong BP+ A[i]*A[i];
Write (‘Tong binh phuong cac so am la:’, TongBP: 2:3);
Readln
End.
?4 Viết chương trình Pascal nhập 1 mảng các số nguyên bất kỳ, ghi ra màn hình các số dương và chẵn trong mảng
Program BT4;
Var i, n: integer;
A: array[1..100] of integer;
Begin
Write (‘ Nhap so phan tu mang n:’); readln(n);
Write (‘ Nhap mang’);
For i: =1 to n do
Begin
Write (‘A[‘,i,’ ] =’); readln(A[i]);
end;
Write (‘Mang so nguyen la’);
For i: =1 to 10 do write (A[i]: 5: 1); writeln;
Write (‘Mang so nguyen la’);
For i: =1 to 10 do
If (A[i]>0) and (A[i] mod 2=0) then write (A[i]: 5: 1);
Readln
End.
?5 Viết chương trình nhập vào từ bàn phím điểm trung bình của 10 học sinh, đếm và báo ra màn hình có bao nhiêu học sinh có số điểm trung bình nhỏ hơn 5?
Program BT5;
Var i, dem: integer;
Diem: array[1..100] of integer;
Begin
Write (‘ Nhap diem trung binh cua 10 hoc sinh’);
For i: =1 to 10 do
Begin
Write (‘Diem hoc sinh ‘,i,’ la =’); readln( Diem[i]);
end;
Write (‘Day diem trung binh cua 10 hoc sinh la’);
For i: =1 to 10 do write (A[i]: 5: 1); writeln;
Dem: = 0;
For i: =1 to 10 do
If (A[i]<5) then dem:=dem+ 1;
Write (‘Co ‘,dem,’ hoc sinh diem duoi trung binh’);
Readln;
End.
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...

Người chia sẻ: Nguyễn Thị Duyên
Dung lượng: | Lượt tài: 1
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)