Nội dung bài học Bài 6: Câu lệnh điều kiện dưới đây chúng ta sẽ cùng nhau tìm hiểu về cấu trúc rẽ nhánh trong lập trình; cú pháp, hoạt động của các câu lệnh điều kiện dạng thiếu và dạng đủ trong Pascal;... Mời các em cùng theo dõi bài học.
Ví dụ về hoạt động phụ thuộc điều kiện:
Từ "nếu" trong các câu trên được dùng để chỉ một "điều kiện" và các hoạt động tiếp theo sau sẽ phụ thuộc vào điều kiện đó
Tóm lại: Có những hoạt động chỉ được thực hiện khi một điều kiện cụ thể được xảy ra.
Xét tính đúng hoặc sai của điều kiện trong các ví dụ về hoạt động phụ thuộc điều kiện ở phần 1:
Điều kiện | Kiểm tra | Kết quả | Hoạt động tiếp theo |
Trời mưa? | Long nhìn ra ngoài và thấy trời mưa | Đúng | Long ở nhà (không đi đá bóng) |
Em bị ốm? | Buổi sáng thức dậy, em thấy mình hoàn toàn khỏe mạnh | Sai | Em tập thể dục buổi sáng như thường lệ |
Bảng 1. Minh họa tính đúng hoặc sai của điều kiện
Ví dụ trong Tin học:
Hình 1. Ví dụ trong Tin học về tính đúng hoặc sai của điều kiện
Nếu chọn đúng thì chương trình dừng lại, chọn sai chương trình chạy tiếp.
Để so sánh ta thường sử dụng các kí hiệu toán học như: <, >, =, <>, <=, >=.
Ví dụ 1: Nếu a > b, phép so sánh đúng thì in giá trị của a ra màn hình; ngược lại, in giá trị của b ra màn hình (có nghĩa là phép so sánh cho kết quả sai).
1.4. Cấu trúc rẽ nhánh
Ví dụ 2: Một hiệu sách thực hiện đợt khuyến mãi lớn với nội dung sau: Nếu mua sách với tổng số tiền ít nhất là 100 nghìn đồng, khách hàng sẽ được giảm 30% tổng số tiền phải thanh toán.
Mô tả hoạt động tính tiền cho khách:
Ví dụ 3: Trong ví dụ 2, chúng ta biết rằng nếu tổng số tiền không nhỏ hơn 100 nghìn đồng, khách hàng sẽ được giảm 30% tổng số tiền phải thanh toán. Giả sử thêm vào đó, cửa hàng giảm 10% cho những khách chỉ mua với tổng số tiền không đến 100 nghìn đồng.
Mô tả hoạt động tính tiền cho khách:
LƯU Ý:
Hình 2. Cấu trúc rẽ nhánh dạng thiếu
Hình 3. Cấu trúc rẽ nhánh dạng đủ
Cú pháp:
If < Điều kiện > then
< Câu lệnh >;
Hoạt động: Chương trình sẽ kiêm tra điều kiện. Nếu điều kiện được thoã mãn, chương trình sẽ thực hiện câu lệnh sau từ khoá then, ngược lại câu lệnh đó bị bỏ qua.
Cú pháp:
If < Điều kiện > then
< Câu lệnh 1 >
Else
< Câu lệnh 2 >;
Hoạt động: Chương trình sẽ kiểm tra điều kiện. Nếu điều kiện được thoã mãn, chương trình sẽ thực hiện câu lệnh 1 sau từ khoá then, ngược lại câu lệnh 2 sẽ được thực hiện.
Giả sử cần viết chương trình nhập một số tự nhiên vào máy tính và ghi ra màn hình kết quả số đã nhập là số chẵn hay lẻ, chẳng hạn "5 là số lẻ", "8 là số chẵn". Hãy mô tả các bước của thuật toán để giải quyết bài toán trên và viết chương trình Pascal để thực hiện thuật toán đó.
Gợi ý giải chi tiết:
Xác định bài toán:
Mô tả thuật toán:
Hãy mô tả thuật toán nhập ba số thực A, B và C từ bàn phím vào máy tính, sau đó kiểm tra ba số đó có thể là các cạnh của tam giác đều, tam giác cân hoặc tam giác vuông hay không và ghi kết quả ra màn hình.
Gợi ý giải chi tiết:
Xác định bài toán:
Mô tả thuật toán:
Sau khi học xong Bài 6: Câu lệnh điều kiện, các em cần ghi nhớ:
Các em có thể hệ thống lại nội dung kiến thức đã học được thông qua bài kiểm tra Trắc nghiệm Tin học 8 Bài 6 cực hay có đáp án và lời giải chi tiết.
Trong Pascal, câu lệnh điều kiện nào sau đây được viết đúng?
Câu lệnh điều kiện dạng đầy đủ là:
Hãy cho biết giá trị của biến X bằng bao nhiêu sau khi thực hiện câu lệnh:
if (45 mod 3 ) = 0 then X :=X+2;
( Biết rằng trước đó giá trị của biến X = 5)
Câu 4- 10: Mời các em đăng nhập xem tiếp nội dung và thi thử Online để củng cố kiến thức về bài học này nhé!
Các em có thể xem thêm phần hướng dẫn Giải bài tập Tin học 8 Bài 6để giúp các em nắm vững bài học và các phương pháp giải bài tập.
Bài tập 1 trang 50 SGK Tin học 8
Bài tập 2 trang 50 SGK Tin học 8
Bài tập 3 trang 51 SGK Tin học 8
Bài tập 4 trang 51 SGK Tin học 8
Bài tập 5 trang 51 SGK Tin học 8
Bài tập 6 trang 51 SGK Tin học 8
Trong quá trình học tập nếu có thắc mắc hay cần trợ giúp gì thì các em hãy comment ở mục Hỏi đáp, Cộng đồng Tin học DapAnHay sẽ hỗ trợ cho các em một cách nhanh chóng!
Chúc các em học tập tốt và luôn đạt thành tích cao trong học tập!
-- Mod Tin Học 8 DapAnHay
Trong Pascal, câu lệnh điều kiện nào sau đây được viết đúng?
Câu lệnh điều kiện dạng đầy đủ là:
Hãy cho biết giá trị của biến X bằng bao nhiêu sau khi thực hiện câu lệnh:
if (45 mod 3 ) = 0 then X :=X+2;
( Biết rằng trước đó giá trị của biến X = 5)
Ta có 2 lệnh sau:
x:= 8;
if x>5 then x := x +1;
Giá trị của x là bao nhiêu?
Các câu lệnh Pascal nào sau đây được viết đúng?
Để tìm giá trị lớn nhất của 2 số a, b thì ta viết:
If ... Then ... Else là:
IF a>8 THEN b:=3 ELSE b:=5;
Khi a nhận giá trị là 0 thì b nhận giá trị nào?
Chọn câu lệnh Pascal hợp lệ trong các câu sau:
Cấu trúc rẽ nhánh có mấy loại?
Em hãy nêu một vài ví dụ về các hoạt động hằng ngày phụ thuộc vào điều kiện.
Hãy cho biết các điều kiện hoặc phép so sánh sau đây cho kết quả đúng hay sai:
a) 123 là số chia hết cho 3.
b) Nếu ba cạnh a, b và c của một tam giác thỏa mãn c2 = a2 + b2 thì tam giác đó có một góc vuông.
c) 152 > 200.
d) x2 < 1.
Hai người bạn cùng chơi trò đoán số. Một người nghĩ trong đầu một số tự nhiên nhỏ hơn 10. Người kia đoán xem bạn đã nghĩ số gì. Nếu đoán đúng, người đoán sẽ được cộng thêm 1 điểm, nếu sai sẽ không được cộng điểm. Luân phiên nhau nghĩ và đoán. Sau 10 lần, ai được nhiều điểm hơn, người đó sẽ thắng.
Hãy phát biểu quy tắc thực hiện các điều kiện ở trò chơi. Hoạt động nào sẽ được thực hiện, nếu điều kiện của quy tắc đó thoả mãn? Hoạt động nào sẽ được thực hiện, nếu điều kiện của quy tắc đó không thoả mãn?
Một trò chơi máy tính rất hứng thú đối với các em nhỏ là hứng trứng. Một quả trứng rơi từ một vị trí ngẫu nhiên trên cao. Người chơi dùng các phím mũi tên \(\rightarrow\) hoặc \(\leftarrow\) để điều khiển một biểu tượng chiếc khay di chuyển theo chiều ngang để hứng quả trứng. Nếu hứng trượt, quả trứng bị rơi, vỡ và người chơi tiếp tục di chuyển khay để hứng quả trứng khác.
Điều kiện để điều khiển chiếc khay trong trò chơi là gì? Hoạt động nào sẽ được thực hiện, nếu điều kiện đó thỏa mãn? Hoạt động nào sẽ được thực hiện, nếu điều kiện đó không thỏa mãn?
Các câu lệnh Pascal sau đây được viết đúng hay sai?
a) if x:=7 then a=b;
b) if x>5; then a:=b;
c) if x>5 then; a:=b;
d) if x>5 then a:=b; m:=n;
e) if x>5 then a:=b; else m:=n;
f) if n>0 then begin a:=0; m:=-1 end else c:=a;
Sau mỗi câu lệnh sau đây:
a) if (45 mod 3)=0 then X:=X+1;
b) if X>10 then X:=X+1;
giá trị của biến X sẽ là bao nhiêu, nếu trước đó giá trị của X bằng 5?
Họ và tên
Tiêu đề câu hỏi
Nội dung câu hỏi
Câu trả lời của bạn
Câu trả lời của bạn
Hãy viết chuong trinh pascal yêu cầu người dùng nhập một số nguyên trong khoảng từ 1 đến 10 và yêu cầu nhập lại nếu số đó không thỏa mãn .In ra màn hình số nhập được
Câu trả lời của bạn
Câu trả lời của bạn
E nhe sbanj
Câu trả lời của bạn
Program Phuong_trinh_bac_nhat; user crt; var a,b begin clrscr ; write (Nhập số a); readln(a) write (nhập số b) readln(b)
if
program Phuong_trinh_bac_nhat;
uses crt;
var a,b : real;
begin
clrscr;
write ('Nhap so a:'); readln(a);
write ('Nhap so b:'); readln(b);
if (a<>0) then writeln ('Nghiem cua phuong trinh la:', -b/a);
if (a=0) and (b=0) then writeln ('Phuong trinh co vo so nghiem');
if (a=0) and (b<>0) then writeln ('Phuong trinh vo nghiem');
readln
end.
Câu trả lời của bạn
Program Tong_chan;
Uses Crt;
Var n,i,s:integer;
Begin
Clrscr;
write('Nhap n=');readln(n);
s:=0;
for i:=0 to n do if (i mod 2)=0 then s:=s+i;
writeln('Tong cac so chan tu 0 den ',n,' la s=',s);
Readln
End.
tổng các số chẵn trong khoảng từ 1 tới n hả bạn
uses crt;
var n,i,t:integer;
begin
clrscr;
write('n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+i;
writeln('tong cac so chan trong khoang tu 1 toi ',n,' la: ',t);
readln;
end.
Viết chương trình(cấu trúc rẽ nhánh) tính tổng a+b nếua a;b dương
Câu trả lời của bạn
uses crt;
var a,b:real;
begin
clrscr;
write('nhap a'); readln(a);
write('nhap b'); readln(b);
If a > 0 and b > 0 then write('Tong a va b: ',a+b);
End.
(đưa vào Pascal duyệt CT xem có mắc lỗi gì ko...nếu sai thì tự sửa ^^!)
Viết chương trình giải phương trình ax + b = 0 (các hệ số a,b được nhập từ bàn phím)
Hướng dẫn có sẵn trong bài là:
- Nếu a khác 0 thì phương trình có nghiệm x=-b/a(âm b phần a)
- Nếu a = 0 và b = 0 thì phương trình có vô số nghiệm
- Nếu a = 0 và b khác 0 thì phương trình vô nghiệm
Câu trả lời của bạn
uses crt;
var a, b: logint;
Begin
write('nhap so a ='); Readln(a);
write('nhap so b ='); readln(b);
If (a = 0 and b = 0)
then write ('pt co nghiem x thuoc R')
else
if (a=0 and b#0) then write('pt vo nghiem')
else
write(nghiẹm la x=': -b/a);
readln
end.
Viết chương trình chứng minh tam giác vuông.
Câu trả lời của bạn
var a,b,c:real;
begin
write('nhap 3 canh: '); readln(a,b,c);
If ((a*a = b*b + c*c) or (b*b=a*a+c*c)) or (c*c=b*b+a*a) then write('co') else write('khong');
end.
Viết chương trình in ra số lớn nhất trong bốn số nhập từ bàn phím với điều kiện chỉ được dùng 2 biến
Câu trả lời của bạn
program bai20;
uses crt;
var a,max:longint;
begin
clrscr;
max:=0;
write('Nhap so 1: '); readln(a);
if max<a then max:=a;
write('Nhap so 2: '); readln(a);
if max<a then max:=a;
write('Nhap so 3: '); readln(a);
if max<a then max:=a;
write('Nhap so 4: '); readln(a);
if max<a then max:=a;
write('So lon nhat trong 4 so la: ',max);
readln;
end.
Uses CRT;
Var a,b,c,d,MAX : integer;
Begin
clrscr;
Readln(a,b,c,d);
MAX:=a
If MAX<b then MAX:=b;
If MAX<c then MAX:=c;
If MAX<d then MAX:=d;
Writeln('So lon nhat la',MAX);
Readln
End.
( Chưa học nhưng mình đọc trước :v Sai thì mong được bổ sung )
Cú pháp câu lệnh điều kiện if, then , else là j???
Câu trả lời của bạn
Dạng thiếu
If <ĐIỀU KIỆN> then <CÂU LỆNH>
Dạng đủ
IF <ĐIỀU KIỆN> then <CÂU LỆNH 1>
ELSE <CÂU LỆNH 2>
Nếu gồm nhiều câu lệnh, thêm vào Begin trước những câu lệnh đó và kết thúc bằng End;
Cú pháp câu lệnh điều kiện dạng thiếu:
- if <điều kiện> then <câu lệnh >;
Cú pháp câu lệnh điều kiện dạng đủ:
-if <điều kiện> then<câu lệnh 1> else <câu lệnh 2>;
với cấu truc rẽ nhánh IF <điều kiện> THEN <câu lệnh>, câu lệnh đứng sau THEN được thực hiện khi
A. điều kiện được tính toán xong;
B. điều kiện được tính toán và cho giá trị đúng;
C. điều kiện không tính được;
D. điều kiện được tính toán và cho giá trị sai;
Câu trả lời của bạn
với cấu truc rẽ nhánh IF <điều kiện> THEN <câu lệnh>, câu lệnh đứng sau THENđược thực hiện khi
A. điều kiện được tính toán xong;
B. điều kiện được tính toán và cho giá trị đúng;
C. điều kiện không tính được;
D. điều kiện được tính toán và cho giá trị sai;
Hãy cho biết các điều kiện hoặc biểu thức sau đây có kết quả đúng hay sai:
- Nếu ba cạnh a,b,c của một tam giác thỏa mãn c^2=a^2+b^2 thì tam giác đó có một góc vuông.
Câu trả lời của bạn
thieu dk:
the nay dung ne:
if c^2=a^2+b^2 or a^2=b^2+c^2 or b^2=a^2+c^2
then
writeln('tam giac do co 1 goc vuong') else writeln('tam giac do khong co goc vuong')
Cho 3 số ngyên a,b,c . Tìm số lớn nhất trong 3 số đó
Câu trả lời của bạn
Cho ba số a b c xây dựng hàm số tìm số lớn nhất trong ba số đó
à, bài này mk bik nè
Program So_Lon_Nhat;
uses crt;
var a,b,c:integer;
Begin
Writeln(' Nhap 3 so nguyen:');
Readln(a,b,c);
if (a>b) and (a>c) then write(' a la so lon nhat');
if (b>a) and (b>c) then write('b la so lon nhat');
if (c>a) and (c>b) then write('c la so lon nhat')
else write(' khong co so nao lon nhat');
Readln;
End.
Vì pascal ko vik dấu dc nên ỡ đây mk cx ko vik dấu ^^ tự hỉu nha ^^
program giatrilonnhat;
vả a,b,c,max:integer;
begin
writeln(nhap a,b,c=');
readln(a,b,c);
max:=a;
ì max<b then max:=b;
if max<c then max:=c;
writeln('gia tri lon nhat la', max);
readln
end.
Viết chương trình trong Tubo Pascal của các thuật toán sau
- Đọc và số nguyên a, kiểm tra xem a là số chẵn hay số lẻ
- Giảm giá 30% cho khách hàng mua với số tiền T>=100000 và cách 10% cho khách hàng mua với số tiền t<100000
- nếu x>5 thì in giá trị của X ra ngoài màn hình
- Giảm giá 30% cho khách hàng mua với số tiền T>=100000
- Nếu Delta < 0 thì in ra màn hình phương trình vô nghiệm
Câu trả lời của bạn
program CT_dautien;
uses crt;
var a:integer;
begin
clrscr;
writeln('moi nhap so a');readln(a);
if a mod 2 = 0 then write(a, 'la so chan') else write(a, 'la so le');
readln
end.
Mô tả thuật toán và viết chương trình giải phương trình bậc nhất 1 ẩn a*x+b=0
@Lovers giúp mình vs
Câu trả lời của bạn
Thuật toán:
B1: Nhập a,b
B2:Nếu a< > 0 thì x=-a/b và kết thúc ngược lại thì đi tiếp
B3:Nếu b=0 thì phương trình vô số ngiệm ngược lại thì chương vô nghiệm và kết thúc thuật toán.
Viết chương trình:
Program PT_bac_nhat;
Var
a,b:Integer;
x:Real;
Begin
Writeln('GIAI PHUONG TRINH BAC NHAT');
Writeln(' aX + b = 0');
Write('-Nhap he so a= ');
Readln(a);
Write('-Nhap he so b= ');
Readln(b);
If a=0 Then
If b=0 Then
Writeln('+Phuong trinh vo dinh')
Else
Writeln('+Phuong trinh vo nghiem')
Else
Begin
x:=-b/a;
Writeln('+Nghiem cua phuong trinh X= ',x:0:6);
End;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
cho đoạn ct sau :
if x>=y*2 then x:=2*x else y=x
với m=28,n=13. Tìm giá trị x và y
Câu trả lời của bạn
m, n ở đâu vậy bn?
Cho 4 số a, b, c, d. Viết chương trình tìm giá trị lớn nhất và đưa ra màn hình kết quả
Câu trả lời của bạn
giải hộ mk nhanh bài nhày vs
Nhập 4 số nguyên dương a,b,c,d.kiểm tra 4 số đó là chẵn hay lẻ tính tổng 4 số này trên pascal nha
program tim_gia_tri_lon_nhat;
uses crt;
var a, b, c, d: real;
begin
clrscr;
write ('nhap 4 so a, b, c, d: '); readln (a, b, c, d);
if (a>b) and (a>c) and (a>d) then writeln('a la so lon nhat')
else if (b>a) and (b>c) and (b>d) then writeln('b la so lon nhat')
else if (c>a) and (c>b) and (c>d) then writeln('c la so lon nhat')
else if (d>a) and (d>b) and (d>c) then writeln ('d la so lon nhat')
else writeln ('a=b=c=d');
readln
end.
* ở đây mình chỉ áp dụng trường hợp là lớn nhất và 4 số cùng bằng nhưng nếu xét đúng ra thì nó còn xảy ra trường hợp a=b hoặc b=c hoặc a=b=c,... nhưng thầy mình nói chỉ cần làm như vậy thôi!
tính tích T=1.3.5...n T=2.4.6...n với n nhập từ bàn phím (dùng câu lệnh if then và for do )
Câu trả lời của bạn
Var T,n,i:integer;
begin
readln(n);
while n mod 2 =0 do begin
write('nhap lai n:'); readln(n);
end;
T:=1;
for i:=1 to n do
if i mod 2 <>0 then T:=T*i;
write(T);
end.
mình làm TH n lẻ thôi, TH n chẵn bạn lm tương tự nha :3
0 Bình luận
Để lại bình luận
Địa chỉ email của hạn sẽ không được công bố. Các trường bắt buộc được đánh dấu *