Nội dung của Bài thực hành 4: Sử dụng câu lệnh điều kiện dưới đây nhằm giúp các em luyện tập sử dụng câu lệnh If...then, rèn kĩ năng ban đầu về đọc các chương trình đơn giản và hiểu được ý nghĩa của thuật toán sử dụng trong chương trình. Mời các em cùng theo dõi nội dung chi tiết của bài thực hành.
- Viết được được câu lệnh điều kiện if...then trong chương trình;
- Rèn luyện kĩ năng ban đầu về đọc các chương trình đơn giản và hiểu được ý nghĩa của thuật toán sử dụng trong chương trình.
Các dạng của câu lệnh điều kiện:
- Câu lệnh điều kiện dạng thiếu
Cú pháp: IF < điều kiện > THEN < câu lệnh >;
- Câu lệnh điều kiện dạng đủ:
Cú pháp:
IF < điều kiện > THEN < câu lệnh 1 >
ELSE < câu lệnh 2 >;
Bài 1. Viết chương trình nhập hai số nguyên a và b khác nhau từ bàn phím và in hai số đó ra màn hình theo thứ tự không giảm (tăng dần).
Gợi ý làm bài:
Xác định bài toán:
Input: Nhập 2 số nguyên a và b
Output:
Thuật toán:
Chương trình:
program Sap_xep;
uses crt;
var A, B: integer;
begin
clrscr;
write('Nhap so A: '); readln(A);
write('Nhap so B: '); readln(B);
if A
else writeln(B,' ',A);
readln
end.
Bài 2: Viết chương trình nhập chiều cao của hai bạn Long và Trang, in ra màn hình kết quả so sánh chiều cao của hai bạn, dưới dạng "Bạn Long cao hơn", "Bạn Trang cao hơn", "Hai bạn bằng nhau".
Gợi ý làm bài:
Xác định bài toán:
Input: Nhập chiều cao Long và Trang
Output:
In "Bạn Long cao hơn", nếu Long > Trang
In "Bạn Trang cao hơn", nếu Long < Trang
In "Hai bạn bằng nhau", nếu Long = Trang
Thuật toán:
Bước 1: Nhập chiều cao hai bạn Long, Trang;
Bước 2: Nếu Long > Trang in ra màn hình "Ban Long cao hon";
Bước 3: Nếu Lòng < Trắng in ra màn hình "Bạn Trắng cao hơn" ngược lại thì in ra màn hình "Hai bạn cao bằng nhau";
Bước 4: Kết thúc.
Chương trình:
program Ai_cao_hon;
uses crt;
var Long, Trang: Real;
begin
clrscr;
write('Nhap chieu cao cua Long:');
readln(Long);
write('Nhap chieu cao cua Trang:'); readln(Trang);
If Long>Trang then writeln('Ban Long cao hon');
If Long
else writeln('Hai ban cao bang nhau');
readln
end.
Lưu chương trình với tên Aicaohon
Nhập bộ dữ liệu (1.5, 1.6) và (1.6, 1.5) và (1.6, 1.6) để thử chương trình
Bài 3: Nhập ba số dương a, b, và c từ bàn phím, kiểm tra và in ra màn hình kết quả kiểm tra ba số đó có thể là độ dài các cạnh của một tam giác hay không.
Gợi ý làm bài:
- Xác định bài toán:
+ Input: Nhập ba số dương a, b, và c từ bàn phím
+ Output:
a, b, và c là độ dài các cạnh của một tam giác
a, b, và c không là độ dài các cạnh của một tam giác
- Mô tả thuật toán:
Hình 1. Sơ đồ khối mô tả thuật toán kiểm tra ba số a, b và c có phải là các cạnh của một tam giác hay không?
Chương trình:
Program Ba_canh_tam_giac;
uses crt;
Var a, b, c: real;
Begin
Clrscr;
write('Nhap ba so a, b va c:' ); readln(a,b,c);
If (a+b>c) and (b+c>a) and (c+a>b) then
writeln('a, b va c la 3 canh cua mot tam giac!')
else writeln('a, b, c khong la 3 canh cua 1 tam giac!');
end.
Sau khi học xong Bài thực hành 4: Sử dụng câu lệnh điều kiện, các em cần ghi nhớ các nội dung:
1. Câu lệnh điều kiện dạng thiếu:
If <điều kiện> then ;
2. Câu lệnh điều kiện dạng đầy đủ:
If <điều kiện> then else ;
3. Sử dụng từ khóa and trong câu lệnh If có thể kết hợp nhiều phép so sánh đơn giản thành một phép so sánh phức tạp. Giá trị của phép so sánh này là đúng khi và chỉ khi tất cả các phép so sánh đơn giản đều đúng. Ngược lại, nó có giá trị sai.
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 thực hành 4 cực hay có đáp án và lời giải chi tiết.
Các câu lệnh Pascal sau đây được viết đúng?
If ... Then ... Else là loại nào?
Câu 3- 5: 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é!
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
Các câu lệnh Pascal sau đây được viết đúng?
If ... Then ... Else là loại nào?
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ương trình sau cho kết quả là gì?
Program vd;
Var a, b,: real; x,: integer ;
Begin readln(a, b);
If a>b then x:=a else x:=b;
Write(x);
End.
Chọn câu lệnh Pascal hợp lệ trong các câu sau:
Họ và tên
Tiêu đề câu hỏi
Nội dung câu hỏi
Viết cú pháp câu lệnh dạng thiếu và dạng đủ ? điều kiện trong câu lệnh là gì?
Câu trả lời của bạn
Câu trả lời của bạn
Câu trả lời của bạn
Câu trả lời của bạn
Anh bình đến vay ngân hàng một khoản tiền (a>=200 triệu) với hình thức trả góp dư nợ giảm dần trong khoảng b tháng với lãi suất như sau:
12 tháng đầu : 9%/năm
các tháng còn lai: 11,5%/năm
yêu cầu nhập số tiền và số tháng vay
kết quả ra được phải có tổng số tiền phải trả
CÁCH TÍNH:
VD:
Vay 200 triệu trong 20 tháng
tháng 1 gốc 10 triệu lãi: 200.9%.1/12 Dư nợ 200-10 =190 triệu tổng tiền trả 11,5 triệu(lãi +gốc)
tháng 2 gốc 10 triệu lãi 200.9%.1/12 dư nợ 190-10 = 180 triệu tổng tiền trả(lãi +gốc)
(10 tháng còn lại tương tự)
tháng 13 gốc 10 triệu lãi: 80(dư nợ sau 12 tháng trước).11,5%.1/12 dư nợ 70 tổng tiền lãi+gốc
Giúp mik nha mình sắp nộp rồi
thank nha
Câu trả lời của bạn
khó
mình thì ra dư nợ 80
lãi 90
tổng trả là 180 triệu
Mik xin 1 khoảng trống để nói về việc này. Mik ko thể chấp nhận được sự ko công bằng của web mình là khi bạn NGUYỄN THÀNH ĐẠT spam và hack điểm rất nhiều nhưng bạn ý vẫn được giải rất bình thường, trong khi nó nick chính mik ko hề spam hay hack điểm đúng 1 câu nào nhưng vẫn nằm trong top 5 nhưng lại ko được giải tại sao vậy ạ???? Mik ko thể chấp nhận được, web mình thì admin ko có, ý mik là ko có trên diễn đàn để trao đồi với TV, mà gmail của web thì gửi ko rep lại? Gì mà kì thế? Web phải có 1 sự công bằng cho TV chứ, e ko chấp nhận việc ko cho e giải mà lại cho bạn NGUYỄN THÀNH ĐẠT giải nhì được.
Gạch dòng cho dễ nhìn bạn
Hãy so sánh chiều cao ba bạn trong pascal:
+ A cao nhất
+ B cao nhất
+C cao nhất
+ A,B bằng nhau và c cao nhất
+ A,C bằng nhau và B cao nhất
+ B,C bằng nhau và A cao nhất
+ A,B bằng nhau và C thấp nhất
+ A,C bằng nhau và B thấp nhất
+ B,C bằng nhau và A thấp nhất
+ A,B,C bằng nhau
Câu trả lời của bạn
...............
Câu trả lời của bạn
Câu trả lời của bạn
Var
m,a,b:Integer;
Begin
m:=a+b;
If m mod 2=0 then write('chan')
else write('le');
readln
End.
Câu trả lời của bạn
Program Chan_le;
Uses Crt;
var a,b,s:longint;
Begin
write('Nhap so a: ');readln(a);
write('Nhap so b: ');readln(b);
s:=a+b;
if (s mod 2)=0 then write('Tong cua 2 so ',a,' va ',b,' la so chan')
else write('Tong cua 2 so ',a,' va ',b,' la so le');
End.
Câu trả lời của bạn
Câu trả lời của bạn
i like it
Câu lệnh lặp với số lần biết trước :
– Chỉ thị cho máy tính thực hiện 1 lệnh hay 1 nhóm lệnh với số lần đã được xác định từ trước.
– Điều kiện là 1 giá trị của 1 biến đếm có giá trị nguyên
Câu lệnh lặp với số lần chưa biết trước :
– Chỉ thị cho máy tính thực hiện 1 lệnh hay 1 nhóm lệnh với số lần lặp chưa biết trước.
– Điều kiện tổng quát hơn, có thể là kiểm tra của 1 giá trị có thực, cũng có thể là 1 điều kiện tổng quát khác.
Câu trả lời của bạn
Câu trả lời của bạn
tên chương trình như thế nào hợp lệ trong ngôn ngữ pascal
Uses cry;
Var a,b,x:lonignt;
Begin
Clrscr;
Write('nhap a : '); readln(a);
Write('nhap b : '); readln(b);
If a = 0 then
If b = 0 then
Writeln('phuong trinh co vo so nghiem')
Else Writeln('phuong trinh vo nghiem')
Else Writeln('phuong trinh co nghiem x = ',-b/a:4:2);
Readln;
End.
Câu trả lời của bạn
Uses crt;
Var a:longint;
Begin
Clrscr;
Write('nhap a : '); readln(a);
If (a < 0) then exit
Else If (a >= 0) then
If (a mod 2 = 0) and (a mod 3 = 0) and (a mod 5 = 0) then
Writeln(a,'la boi cua 2,3,5')
Else Writeln(a,'ko la boi cua 2,3,5');
Readln;
End.
Uses crt;
Var a: longint;
begin
clrscr;
write('a = ');
readln(a);
if (a < 0) then writeln('Khong thuc hien')
else
if (a mod 2 = 0) and (a mod 3 = 0) and (a mod 5 = 0) then writeln('La boi cua 2,3,5')
else writeln('Khong la boi cua 2,3,5');
readln;
end.
Var
a:integer;
Begin
readln(a);
If a<0 then write('khong thuc hien')
else if (a mod 5=0) and (a mod 2=0) and (a mod 3=0) then write('la boi cua 2,3,5');
readln
End.
Câu trả lời của bạn
Uses crt;
Var a,m:longint;
Begin
Clrscr;
Write('nhap a : '); readln(a);
If (a>0) then
m:=a
Else If (a < 0) then
m:=-a;
Writeln(m);
Readln;
End.
Sử dụng hàm ABS
Câu trả lời của bạn
Uses crt;
Var a,b:longint;
Begin
Clrscr;
Write('nhap a : '); Readln(a);
Write('nhap b : '); Readln(b);
If (a < b) then Writeln(b)
Else If (a > b) then Writeln(a);
Readln;
End.
Câu trả lời của bạn
Câu trả lời của bạn
viết chương trình kiểm tra xem 1 số có phải là số chính phương không
Câu trả lời của bạn
Program so_chinh_phuong;
uses crt;
Var n,x: integer;
BEGIN
clrscr;
write('Nhap so can kiem tra: n = ');
readln(n);
x:=trunc(sqrt(n);
IF sqr(x)=n then write(n,'la so chinh phuong);
ELSE write(n,' khong phai la so chinh phuong.');
readln;
END.
Tìm số lớn nhất trong 3 số a, b, c chỉ được dùng hàm if vs and
Các bạn giỏi tin giúp mình giải bài toán hàm IF với nhé!cảm ơn các bạn
Câu trả lời của bạn
Program So_Lon_Nhat;
Uses crt;
Var a,b,c:integer;
Begin
Clrscr;
Write(' Nhap ba so nguyen:');
Readln(a,b,c);
If (a>b) and (a>c) then Write(' So lon nhat la:',a);
If (b>a) and (b>c) then Write(' So lon nhat la:',b);
If (c>a) and (c>b) then Write(' So lon nhat la:',c);
Readln;
End.
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 *