... chuẩn sau:
1. Kiểu nguyên
Kiểu Số byte Miền giá trị
Byte 1 0 25 5
integer 2 - 327 68 327 67
word 2 0 65535
longint 4 -21 47483648 21 47483647
2. Kiểu thực
Kiểu Số byte Miền giá trị
Real 6 0 hoặc có giá ... lặp bao
nhiêu lần
- Hai thuật toán giống và khác nhau ở
chỗ nào?
- Cài gì thay đổi trong 2 thuật toán này.
Sau khi so sánh kĩ 2 thuật toán trên,
giáo viên đa ra 2 cách lặp t...
... thức toán học sau sang Turbo Pascal:
yẽ
e
xxxCos
a
+
+++
1
22
b.
yẽ
e
+
+
1
9
3
c.
22 2
2
zyx
e
yx
++
+
Câu 2: Hãy chuyển biểu thức từ Turbo Pascal sang toán học:
a. 5*Sin(x) - Cos(y)/4 /2 b. ... real;
Begin
N: =2;
Sh:=1 /2;
S:= s+ sh;
While sh> ;2. 10
-6
do
Begin
N:= n+1;
Sh:= sh*1/n;
S:= s + sh;
End;
Hs: Biến tổng S, biến n
S:= 2;
N:= 2;
Gv: Ta thấy:
2! = 1 ....
... quả
abc def Lenght(S); 6
g. Hàm POS(s1,s2) cho vị trí xuất hiện đầu tiên của xâu s1 trong xâu s2.
Giá trị S2 Thao tác Kết quả
abc def Pos(ef,s2); 6
abc def Pos(m,s2) 0
h. Hàm Upcase(ch) cho chữ cai ... i: Integer;
F, F1, F2: integer;
Begin
Writeln(Tim so hang n cua day Phi bo
na xi, N = );
Readln(n);
F1:= 1;
F2:=1;
For i:= 3 to n do
Begin
F:= f1+ f2;
F1:= f2;
F2:= f;
End;
Writeln(f);...
... Delete(st, 5, 2) ; abcd
Bac Son Delete(st,4,4); Bac
d. Thủ tục insert(s1, s2, vt) chèn xâu s1 vào xâu s2 băt đầu từ vị trí vt.
Giá trị s1 Giá trị s2 Thao tác Kết quả
.net Vnexpress insert(s1, s2, 9); ... i: Integer;
F, F1, F2: integer;
Begin
Writeln(Tim so hang n cua day Phi bo
na xi, N = );
Readln(n);
F1:= 1;
F2:=1;
For i:= 3 to n do
Begin
F:= f1+ f2;
F1:= f2;
F2:= f;
End;
Writeln...
... thớc
Byte 1 22 5 1Byte
Integer -21 5 21 5 2Byte
Word 0 21 6-1 2Byte
Longint -23 1 23 1-1 4Byte
2. Kiểu thực
Các kiểu thực đợc trữ và kết quả tính toán chỉ là gần
đúng với sai số không đáng kể, miền ... (sai)
Kiểu Miền giá trị Kích thớc
Char 25 6 kí tự 1Byte
Nội dung Hoạt động của GV và HS
phép toán lôgic
Ví dụ:
(x > =2) and (y = 1)
6. Câu lệnh gán
Lệnh gán là một trong những lệnh c...