Đề cương Tin học 8

ĐỀ CƯƠNG TIN HỌC 8
Phần lí thuyết:
Xem lại cú pháp, hoạt động của các câu lệnh If  then; For  do và While  do.
Câu lệnh điều kiện If  then:
a . Dạng khuyết:
 * Cú pháp: 
 If then ; 
b . Dạng đủ:
 * Cú pháp: 
 If then else ; 
Câu lệnh lặp For  do:
 * Cú pháp: 
 For := to do ;
Câu lệnh lặp While  do:
* Cú pháp:
 While do ;
Phần thực hành:
 1. Viết chương trình (bằng ngôn ngữ Pascal) sử dụng câu lệnh For để tính tổng các số tự nhiên từ 10 đến 100 : T = 10 + 11 + .... +100.
Program tinh_tong;
	Var i, S: Integer;
 Begin
 S:=0;
 For i:= 10 to 100 do S:= S + i;
 Writeln(‘ tong cac so tu nhien tu 10 den 100 la:’,S);
 Readln;
 End.
 2. Viết chương trình (bằng ngôn ngữ Pascal) sử dụng câu lệnh While ... do để tính tổng các số tự nhiên từ 10 đến 100 : T = 10 + 11 + .... +100.
 Program tinh_tong;
	Var i, S: Integer;
 Begin
 i:= 10; S:= 0;
 While i <= 100 do
	 Begin S:= S + i; i:= i + 1; end;
 Writeln(‘ Tong cac so tu nhien tu 10 den 100 la:’,S);
	 Readln;
 End.
Viết chương trình (bằng ngôn ngữ Pascal) thực hiện công việc nhập 10 phần tử có giá trị nguyên cho mảng A (mảng 1 chiều) từ bàn phím và tính tổng các số lẻ có trong dãy số A. 
Program C2;
 uses crt;
 var i, S:integer;
 A: array[1..10] of integer;
 Begin
 clrscr;
 writeln('Nhap gia tri cho cac phan tu trong mang:');
 for i:=1 to 10 do
 begin
 write('Phan tu thu ',i,': ');
 readln(A[i]);
 end;
 for i:=1 to 10 do
 if A[i] mod 20 then
 S:= S+ A[i]; 
 Writeln( ‘Tong cac so le co trong day A = ‘,S) ;
 readln;
 End.
Viết chương trình (bằng ngôn ngữ Pascal) thực hiện công việc nhập 10 phần tử có giá trị nguyên cho mảng A (mảng 1 chiều) từ bàn phím và tính tổng các số chẵn có trong dãy số A. 
Program C2;
 uses crt;
 var i, S:integer;
 A: array[1..10] of integer;
 Begin
 clrscr;
 writeln('Nhap gia tri cho cac phan tu trong mang:');
 for i:=1 to 10 do
 begin
 write('Phan tu thu ',i,': ');
 readln(A[i]);
 end;
 for i:=1 to 10 do
 if A[i] mod 2=0 then
 S:= S+ A[i]; 
 Writeln( ‘Tong cac so chan co trong day A = ‘,S) ;
 readln;
 End.