Câu lệnh If .. then (T2)
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Lê T Thu Hồng
Ngày gửi: 22h:04' 29-11-2011
Dung lượng: 275.5 KB
Số lượt tải: 96
Nguồn:
Người gửi: Lê T Thu Hồng
Ngày gửi: 22h:04' 29-11-2011
Dung lượng: 275.5 KB
Số lượt tải: 96
Số lượt thích:
0 người
KIỂM TRA BÀI CŨ
Hãy cho biết: cấu trúc, các thành phần, sự hoạt động của 2 dạng câu lệnh rẽ nhánh. Và nêu điểm giống và khác nhau cơ bản của 2 dạng.
Về mặt cấu trúc, được thể hiện:
Dạng thiếu:
If <điều kiện> then;
Dạng đủ:
If <điều kiện> then
else;
Thuật toán
Nhập 1 số bất kì (a)
Nếu a>0 thì
In: a la so duong
Nếu a<0 thì
In: a la so am
Nếu a=0 thì
In: Ban vua nhap so 0
Ngôn ngữ Pascal
Write(‘Nhap 1 so bat ki: ‘);
Readln(a);
If a>0 then
write(a,’ la so duong’);
If a<0 then
write(a,’ la so am’);
If a=0 then
write(‘Ban vua nhap so 0’);
Cấu trúc rẽ nhánh (t2)
III. Một số ví dụ
Ví dụ 1: Viết chương trình nhập vào 1 số nguyên bất kì. Cho biết đó là số dương, số âm hay số có giá trị bằng 0.
Program KT_So;
Uses crt;
Var a: integer;
Begin
clrscr;
Write(‘Nhap 1 so bat ki: ‘); Readln(a);
If a>0 then write(a,’ la so duong’);
If a<0 then write(a,’ la so am’);
If a=0 then write(‘Ban vua nhap so 0’);
Readln;
End.
Thuật toán
Nhập a, b, c
= b2 – 4ac
Nếu =0 thì In: ‘X1=X2=‘, -b/2a
ngược lại
Nếu <0 thì In: ‘ PTVN’
ngược lại
In: ‘X1= ‘, x1
In: ‘X2= ‘, x2
- Kết thúc
Ngôn ngữ Pascal
Write (‘ Nhap a, b, c: ‘);
Readln(a, b, c);
D := b*b – 4*a*c;
If D=0 then write(‘X1=X2=‘,-b/(2*a))
else
If D<0 then write(‘ PTVN’)
else
x1 := (-b - sqrt(D))/(2*a);
x2 := (-b + sqrt(D))/(2*a);
writeln(‘x1= ‘, x1);
writeln(‘x2= ‘,x2);
begin
end;
Program PT_Bac_2;
Uses crt;
Var a, b, c, d, x1, x2: real;
Begin
Write (‘ Nhap a, b, c: ‘); Readln(a, b, c);
D := b*b – 4*a*c;
If D=0 then write(‘ X1=X2= ‘, -b/(2*a))
else
If D<0 then write(‘ PTVN’)
else
begin
x1 := (-b - sqrt(D))/(2*a); x2 := (-b + sqrt(D))/(2*a);
writeln(‘x1= ‘, x1); writeln(‘x2= ‘,x2);
end;
End.
Program
Kiem tra;
Uses crt;
Var
a: real;
Begin
Clrscr;
Write(‘ Nhap a: ‘);
Readln(‘a’);
If a mod 2 =0 then write (a,’ la so chan’)
;
else
(a,’ la so le’);
Readln
End.
Kiem_tra;
a: byte;
Readln(a);
write( a,’ la so le’);
a mod 2 =0
Cho 1 số, kiểm tra số đó là số chẳn hay số lẻ.
Bạn thật
thông minh
Bạn sai rồi
Bạn sai rồi
Bạn sai rồi
10
15
20
25
Var
a,b,x: Byte;
Begin
x:=b;
if a End.
Cho a=20; b=15.
Kết quả x bằng bao nhiêu?
Hướng dẫn bài tập về nhà
Bài tập 1:
Viết chương trình: Nhập vào số đo 3 cạnh của tam giác là a, b, c. Kiểm tra tam giác đó là tam giác đều, cân, vuông hay thường.
Bài tập 2:
Viết chương trình: tìm nghiệm phương trình bậc 1:
ax + b = 0
Hãy cho biết: cấu trúc, các thành phần, sự hoạt động của 2 dạng câu lệnh rẽ nhánh. Và nêu điểm giống và khác nhau cơ bản của 2 dạng.
Về mặt cấu trúc, được thể hiện:
Dạng thiếu:
If <điều kiện> then
Dạng đủ:
If <điều kiện> then
else
Thuật toán
Nhập 1 số bất kì (a)
Nếu a>0 thì
In: a la so duong
Nếu a<0 thì
In: a la so am
Nếu a=0 thì
In: Ban vua nhap so 0
Ngôn ngữ Pascal
Write(‘Nhap 1 so bat ki: ‘);
Readln(a);
If a>0 then
write(a,’ la so duong’);
If a<0 then
write(a,’ la so am’);
If a=0 then
write(‘Ban vua nhap so 0’);
Cấu trúc rẽ nhánh (t2)
III. Một số ví dụ
Ví dụ 1: Viết chương trình nhập vào 1 số nguyên bất kì. Cho biết đó là số dương, số âm hay số có giá trị bằng 0.
Program KT_So;
Uses crt;
Var a: integer;
Begin
clrscr;
Write(‘Nhap 1 so bat ki: ‘); Readln(a);
If a>0 then write(a,’ la so duong’);
If a<0 then write(a,’ la so am’);
If a=0 then write(‘Ban vua nhap so 0’);
Readln;
End.
Thuật toán
Nhập a, b, c
= b2 – 4ac
Nếu =0 thì In: ‘X1=X2=‘, -b/2a
ngược lại
Nếu <0 thì In: ‘ PTVN’
ngược lại
In: ‘X1= ‘, x1
In: ‘X2= ‘, x2
- Kết thúc
Ngôn ngữ Pascal
Write (‘ Nhap a, b, c: ‘);
Readln(a, b, c);
D := b*b – 4*a*c;
If D=0 then write(‘X1=X2=‘,-b/(2*a))
else
If D<0 then write(‘ PTVN’)
else
x1 := (-b - sqrt(D))/(2*a);
x2 := (-b + sqrt(D))/(2*a);
writeln(‘x1= ‘, x1);
writeln(‘x2= ‘,x2);
begin
end;
Program PT_Bac_2;
Uses crt;
Var a, b, c, d, x1, x2: real;
Begin
Write (‘ Nhap a, b, c: ‘); Readln(a, b, c);
D := b*b – 4*a*c;
If D=0 then write(‘ X1=X2= ‘, -b/(2*a))
else
If D<0 then write(‘ PTVN’)
else
begin
x1 := (-b - sqrt(D))/(2*a); x2 := (-b + sqrt(D))/(2*a);
writeln(‘x1= ‘, x1); writeln(‘x2= ‘,x2);
end;
End.
Program
Kiem tra;
Uses crt;
Var
a: real;
Begin
Clrscr;
Write(‘ Nhap a: ‘);
Readln(‘a’);
If a mod 2 =0 then write (a,’ la so chan’)
;
else
(a,’ la so le’);
Readln
End.
Kiem_tra;
a: byte;
Readln(a);
write( a,’ la so le’);
a mod 2 =0
Cho 1 số, kiểm tra số đó là số chẳn hay số lẻ.
Bạn thật
thông minh
Bạn sai rồi
Bạn sai rồi
Bạn sai rồi
10
15
20
25
Var
a,b,x: Byte;
Begin
x:=b;
if a End.
Cho a=20; b=15.
Kết quả x bằng bao nhiêu?
Hướng dẫn bài tập về nhà
Bài tập 1:
Viết chương trình: Nhập vào số đo 3 cạnh của tam giác là a, b, c. Kiểm tra tam giác đó là tam giác đều, cân, vuông hay thường.
Bài tập 2:
Viết chương trình: tìm nghiệm phương trình bậc 1:
ax + b = 0
Các ý kiến mới nhất