Bµi
12
Gi¸o ¸n ®iÖn tö tin häc líp 11!"# $%&'
(
* Dữ liệu nhập vào (INPUT): t1,t2,t3,t4,t5,t6,t7.
* Dữ cần tính và in ra (OUTPUT): tb, dem.
Hãy xác định
Input, Output và
viết chơng trình
giải bài toán trên ?
&)*+,-

Program vd1;
Uses crt;
Var
t1,t2,t3,t4,t5,t6,t7,tb : real;
dem : integer;
BEGIN
Clrscr;
write( Nhap vao nhiet do 7 ngay : );‘ ’
readln(t1,t2,t3,t4,t5,t6,t7);
tb : = (t1+t2+t3+t4+t5+t6+t7)/7;
dem : = 0 ;
if (t1>tb) then dem := dem + 1;
if (t2>tb) then dem := dem + 1;
if (t3>tb) then dem := dem + 1;
if (t4>tb) then dem := dem + 1;

Khi tham chiÕu ®Õn phÇn tö thø i ta viÕt A[i].
VÝ dô: A[5] = 19.
 Tªn m¶ng : A.
 Sè phÇn tö cña m¶ng: 7.
VÝ dô:
 KiÓu d÷ liÖu cña c¸c phÇn tö: KiÓu nguyªn.
19
89)

:9)/,;<=><?
* Cách 1: Khai báo gián tiếp
@;ABC67/DEFBG!"DBG!""DHIB674DJ
KB0!L/D-BC67/DJ
K0M- @;AN0EF8OPQHINNJ
K<-N0J
Trong đó -
Chỉ số đầu, chỉ số cuối thờng là các hằng hoặc biểu thức nguyên;
Chỉ số đầu chỉ số cuối;
Giữa 2 chỉ số là dấu
* Cách 2: Khai báo trực tiếp
KBR!L/D-FBG!"DBG!""DHIB674DJ
K<S&-F88TTHIN#J
K0M- KN0-F8OPQHINNJ

O>))U4#/,
A
n
1.
Nhập số phần tử của mảng (n).
Write( Nhap vao so ngay:);

In giá trị của các phần tử
17 20 18 21 19 17 19
Kết quả in ra màn hình:
Ví dụ:
In mảng vừa nhập.

VWL)4//1,6 X
dem :=0;
For i :=1 to n do
IF A[i]>TB then dem:=dem+1;
c. C¸c thao t¸c xö lÝ kh¸c
VÝ dô
:
§Õm sè ngµy cã nhiÖt ®é cao
h¬n nhiÖt ®é TB cña tuÇn.
TB = 18.7
Dem=0
7654321
i
19171921182017
A[i]
0 1 1 2
3
3 4
20 21 19 19
+1 +1 +1+1

Program vd1;
Uses crt;
Var

Nhap nhiet do ngay thu 1 :
17
Nhap nhiet do ngay thu 2 :
20
Nhap nhiet do ngay thu 3 :
18
Nhap nhiet do ngay thu 4 :
21
Nhap nhiet do ngay thu 5 :
19
Nhap nhiet do ngay thu 6 :
17
Nhap nhiet do ngay thu 7 :
19
Nhiet do trung binh 7 ngay = 18.70
So ngay co nhiet do cao hon nhiet do TB la: 4
> '36LY/ !-

Z [S))U4#/,,05\#]^_R^
V`)4//1,6 X
VÝ dô:

TÝnh tæng c¸c phÇn tö trong
m¶ng chia hÕt cho 3.
S :=0;
For i :=1 to n do
IF A[i] mod 3 = 0 then S:=S+A[i];
19121825162015
S = 45