... cũng
không được thực hiện
nhưng câulệnh if – then
chưa kết thúc mà câulệnh
7’
so a, b, c’);
Readln (a,b,c);
d:= b*b – 4*a*c;
if D<0 then writeln
(‘Phuong trinh vo
nghiem’)
else if D=0 ... writeln
(‘x1=’,(-b + sqrt(d))/
(2*a):0:8);
writeln
(‘x2=’,(-b - sqrt(d))/
(2*a):0:8);
end;
readln;
End.
- Ví dụ 2: Tìm số ngày
của năm N, biết rằng
năm nhuận là năm
chia hết cho 400
hoặc ... nghiêm hoặc
thông báo “phương trình
vô nghiệm”.
Program GPTB2;
Uses crt;
Var a, b, c, d, x1, x2:
real;
Begin
Clrscr;
Writeln (‘Nhap cac he
2 sẽ đựoc thực hiện.
Giáo viên:
- Thuyết trình: Sau...
... lệnh>;
End;
Điều kiện
Câu lệnh 1
Câu lệnh 2
T
F
Sơ đồ
Hãy chỉ ra
hứơng thực
hiện của cấu
trúc rẽnhanh
dạng đủ
bằng lưu đồ
bên?
2/ Câulệnh if-then:
Để mô tả cấu trúc rẽ nhánh, Pascal dùng ... được biểu diễn băng sơđồ sau:
Điều kiện
Câu lệnh
T
F
Hãy chỉ ra
hứơng thực
hiện của cấu
trúc rẽnhanh
dạng thiếu
bằng lưu đồ
bên?
Sơ đồ
a,b,c= 1 2 1
∆ = 2∗2 − 4∗1∗1 = 0
PT v« nghiÖm
PT...
... i: integer;
S: longint;
Begin
Write(‘nhap n’);
Readln(n);
S:=0;
For i:=1 to n do
S:=S+i;
Writeln(‘tong cua n so tu nhien dau tien S=’,S);
Readln;
End.
BÀI 7: CÂULỆNH LẶP (tt)
14
Program ... Tinhgiaithua;
Var n, i: integer;
P : longint;
Begin
Write(‘nhap n’);Readln(n);
P:=1;For i:=1 to n do P:=P*i;
Writeln(N,’!=’,P);
Readln;
End.
Ví dụ 6: Chương trình tính N!, với N là số
tự nhiên ... LẶP
Program InchuO;
Var i: integer;
Begin
For i:=1 to 20 do
Begin Writeln(‘O’); Delay(100) end;
Readln;
End.
1
13
Lưu ý: Vì N lớn nên tổng của N số tự nhiên lớn
nên trong chương trình trên...
... bậc hai của số a với a nhập từ bàn phím.
PROGRAM Tinh_can_bac_hai ;
VAR a : Real ;
BEGIN
Write (’ Nhap so a = ‘ ) ;
Readln(a) ;
IF a < 0 THEN
Write ( a : 10 : 2 ,’ La so am nen khong lay ... lay can duoc ')
ELSE
Writeln (’ Can bac hai cua ’, a : 2 : 2 ,’ la’ , SQRT(a) :10 : 3 );
Readln; {dung man hinh de xem ket qua}
END.
Ghi chú
Trong chương trình trên, a ta thấy có dạng...