Đăng Nhập
Latest topics
Thống Kê
Hiện có 1 người đang truy cập Diễn Đàn, gồm: 0 Thành viên, 0 Thành viên ẩn danh và 1 Khách viếng thăm Không
Số người truy cập cùng lúc nhiều nhất là 48 người, vào ngày 2/8/2017, 00:32
Statistics
Diễn Đàn hiện có 74 thành viênChúng ta cùng chào mừng thành viên mới đăng ký: AlinaL92956302
Tổng số bài viết đã gửi vào diễn đàn là 107 in 53 subjects
Bài 3: Câu lệnh điều kiện(if .. then ..)
4 posters
Trang 1 trong tổng số 1 trang
Bài 3: Câu lệnh điều kiện(if .. then ..)
A. Lý thuyết
- Dạng thiếu:
+ Cấu trúc: If (điều kiện) then (công việc)
+ Ý nghĩa: Nếu điều kiện đúng thì thực hiện công việc(nếu sai thì không thực hiện công việc)
+ VD: If a>0 then write('a la so duong');
- Dạng đủ:
+ Cấu trúc: If (điều kiện) then (công việc 1)
else công việc 2
+ Ý nghĩa: Nếu điều kiện đúng thì thực hiện công việc 1. Ngược lại thực hiện công việc 2
+ VD: If a>0 then write('a la so duong')
else write('a la so am');
- Chú ý: Trước từ khóa else không có dấu chấm phẩy(
B. Bài tập
Bài 1. Cho số nguyên a. Hãy in ra màn hình số a là số dương, hay số âm, hay là số không dương không âm.
VD: a = 2, kết quả: 2 là số dương
Gợi ý: So sánh với số 0
Bài 2: Cho số tự nhiên b(b>0). Hãy in ra màn hình b là số chẵn hay số lẻ
VD: b = 4, kết quả: 4 là số chẵn
b = 3, kết quả: 3 là số lẻ
Gợi ý: dùng từ khóa mod(chia lấy phần dư, chẳng hạn: b mod 2)
Bài 3: Điểm trung bình của hoc sinh được nhập từ bàn phím, in ra màn hình yêu cầu sau:
- Nếu điểm trung bình lớn hơn hoặc bằng 8.0 và nhỏ hơn hoặc bằng 10 thì in: "La hoc sinh gioi"
- Nếu điểm trung bình lớn hơn hoặc bằng 6.5 và nhỏ hơn 8.0 thì in: "La hoc sinh khá"
- Nếu điểm trung bình lớn hơn hoặc bằng 5.0 và nhỏ hơn 6.5 thì in: "La hoc sinh TB"
- Nếu điểm trung bình lớn hơn hoặc bằng 3.5 và nhỏ hơn 5.0 thì in: "La hoc sinh Yếu"
- Nếu điểm trung bình lớn hơn hoặc bằng 0 và nhỏ hơn 3.5 thì in: "La hoc sinh kem"
- Các trường hợp còn lại báo lỗi "nhập sai điểm trung bình"
Gợi ý: Dùng cấu trúc lồng nhau(dạng đủ)
Bài 4: Cho a,b là hai số nguyên được nhập từ bàn phím. Hãy in ra màn hình kết quả của phép tính a với b(+, -, *, /)
VD: Nhập a = 6, b = 3 và phép tính là:
'+' thì kết quả: 9
'-' thì kết quả: 3
'*' thì kết quả: 18
'/' thì kết quả: 2
Gợi ý: Phép tinh khai báo kiểu kí tự(char)
- Dạng thiếu:
+ Cấu trúc: If (điều kiện) then (công việc)
+ Ý nghĩa: Nếu điều kiện đúng thì thực hiện công việc(nếu sai thì không thực hiện công việc)
+ VD: If a>0 then write('a la so duong');
- Dạng đủ:
+ Cấu trúc: If (điều kiện) then (công việc 1)
else công việc 2
+ Ý nghĩa: Nếu điều kiện đúng thì thực hiện công việc 1. Ngược lại thực hiện công việc 2
+ VD: If a>0 then write('a la so duong')
else write('a la so am');
- Chú ý: Trước từ khóa else không có dấu chấm phẩy(
B. Bài tập
Bài 1. Cho số nguyên a. Hãy in ra màn hình số a là số dương, hay số âm, hay là số không dương không âm.
VD: a = 2, kết quả: 2 là số dương
Gợi ý: So sánh với số 0
Bài 2: Cho số tự nhiên b(b>0). Hãy in ra màn hình b là số chẵn hay số lẻ
VD: b = 4, kết quả: 4 là số chẵn
b = 3, kết quả: 3 là số lẻ
Gợi ý: dùng từ khóa mod(chia lấy phần dư, chẳng hạn: b mod 2)
Bài 3: Điểm trung bình của hoc sinh được nhập từ bàn phím, in ra màn hình yêu cầu sau:
- Nếu điểm trung bình lớn hơn hoặc bằng 8.0 và nhỏ hơn hoặc bằng 10 thì in: "La hoc sinh gioi"
- Nếu điểm trung bình lớn hơn hoặc bằng 6.5 và nhỏ hơn 8.0 thì in: "La hoc sinh khá"
- Nếu điểm trung bình lớn hơn hoặc bằng 5.0 và nhỏ hơn 6.5 thì in: "La hoc sinh TB"
- Nếu điểm trung bình lớn hơn hoặc bằng 3.5 và nhỏ hơn 5.0 thì in: "La hoc sinh Yếu"
- Nếu điểm trung bình lớn hơn hoặc bằng 0 và nhỏ hơn 3.5 thì in: "La hoc sinh kem"
- Các trường hợp còn lại báo lỗi "nhập sai điểm trung bình"
Gợi ý: Dùng cấu trúc lồng nhau(dạng đủ)
Bài 4: Cho a,b là hai số nguyên được nhập từ bàn phím. Hãy in ra màn hình kết quả của phép tính a với b(+, -, *, /)
VD: Nhập a = 6, b = 3 và phép tính là:
'+' thì kết quả: 9
'-' thì kết quả: 3
'*' thì kết quả: 18
'/' thì kết quả: 2
Gợi ý: Phép tinh khai báo kiểu kí tự(char)
Re: Bài 3: Câu lệnh điều kiện(if .. then ..)
program so_duong_am;
uses crt;
var a:integer;
begin
clrscr;
writeln('hay nhap so nguyen a');
readln(a);
if a>0 then writeln('la so nguyen duong');
if a<0 then writeln('la so nguyen am');
if a=0 then writeln('khong phai la so nguyen duong, khong phai la so nguyen am');
readln;
end.
uses crt;
var a:integer;
begin
clrscr;
writeln('hay nhap so nguyen a');
readln(a);
if a>0 then writeln('la so nguyen duong');
if a<0 then writeln('la so nguyen am');
if a=0 then writeln('khong phai la so nguyen duong, khong phai la so nguyen am');
readln;
end.
lethanhnhan9a3- Cấp 1
- Tổng số bài gửi : 11
Points : 12
Reputation : 1
Join date : 20/01/2015
Re: Bài 3: Câu lệnh điều kiện(if .. then ..)
program so_chan_so_le;
uses crt;
var b:integer;
begin
clrscr;
writeln('hay nhap mat so bat ki (b>0)');
readln(b);
if b mod 2=0 then writeln('la so chan')
else writeln('la so le');
readln;
end.
uses crt;
var b:integer;
begin
clrscr;
writeln('hay nhap mat so bat ki (b>0)');
readln(b);
if b mod 2=0 then writeln('la so chan')
else writeln('la so le');
readln;
end.
lethanhnhan9a3- Cấp 1
- Tổng số bài gửi : 11
Points : 12
Reputation : 1
Join date : 20/01/2015
Re: Bài 3: Câu lệnh điều kiện(if .. then ..)
bai 1:
program kiem_tra_so;
uses crt;
var a: integer;
begin
writeln(' hay nhap mot so nguyen bat ki');
readln(a);
if a mod 2=0 then write('la so duong')
else if a<0 then write(' la so am ')
else write(' la so khong duong khong am);
readln;
end.
program kiem_tra_so;
uses crt;
var a: integer;
begin
writeln(' hay nhap mot so nguyen bat ki');
readln(a);
if a mod 2=0 then write('la so duong')
else if a<0 then write(' la so am ')
else write(' la so khong duong khong am);
readln;
end.
Được sửa bởi crazy ngày 3/1/2016, 15:12; sửa lần 1.
crazy- Cấp 1
- Tổng số bài gửi : 10
Points : 10
Reputation : 0
Join date : 13/11/2015
Age : 21
Đến từ : Cà Mau
TranAi- Cấp 1
- Tổng số bài gửi : 15
Points : 19
Reputation : 4
Join date : 22/10/2013
Re: Bài 3: Câu lệnh điều kiện(if .. then ..)
program kiem_tra_so_chan_le;
uses crt;
var a: integer;
begin
writeln(' hay nhap mot so nguyen bat ki');
readln(a);
if a mod 2 = 0 then write ('la so chan')
else write(' la so le');
readln
end.
uses crt;
var a: integer;
begin
writeln(' hay nhap mot so nguyen bat ki');
readln(a);
if a mod 2 = 0 then write ('la so chan')
else write(' la so le');
readln
end.
crazy- Cấp 1
- Tổng số bài gửi : 10
Points : 10
Reputation : 0
Join date : 13/11/2015
Age : 21
Đến từ : Cà Mau
Re: Bài 3: Câu lệnh điều kiện(if .. then ..)
program kiem_tra_diem_hoc_sinh;
uses crt;
var a:real;
begin
writeln(' hay nhap so diem cua hoc sinh');
readln(tb);
if (tb>10) or (tb<0) then write(' nhap diem khong hop le')
else if (tb >= 8 ) or (tb <= 10) then write (' La hoc sinh gioi')
else if (tb >= 6.5) or (tb < 8 ) then write(' La hoc sinh kha')
else if (tb >= 5) or (tb <6) then write('La hoc sinh TB')
else if (tb >= 3.5) or (tb < 5) then write(' La hoc sinh yeu')
else write(' la hoc sinh kem');
readln
end.
uses crt;
var a:real;
begin
writeln(' hay nhap so diem cua hoc sinh');
readln(tb);
if (tb>10) or (tb<0) then write(' nhap diem khong hop le')
else if (tb >= 8 ) or (tb <= 10) then write (' La hoc sinh gioi')
else if (tb >= 6.5) or (tb < 8 ) then write(' La hoc sinh kha')
else if (tb >= 5) or (tb <6) then write('La hoc sinh TB')
else if (tb >= 3.5) or (tb < 5) then write(' La hoc sinh yeu')
else write(' la hoc sinh kem');
readln
end.
crazy- Cấp 1
- Tổng số bài gửi : 10
Points : 10
Reputation : 0
Join date : 13/11/2015
Age : 21
Đến từ : Cà Mau
Re: Bài 3: Câu lệnh điều kiện(if .. then ..)
bài 4:
program tinh toan;
uses crt;
var a,b : real;
pt: char;
begin
writeln(' hay nhap 2 so bat ki');
readln(a,b);
writeln(' hay nhap phep tinh');
readln(pt);
if pt='+' then write(a,'+',b,'=',a+b:4:1);
if pt='-' then write(a,'-',b,'=',a-b:4:1);
if pt='*' then write(a,'*',b,'=',a*b:4:1);
if pt='/' then write(a,'/',b,'=',a/b:4:1);
readln
end.
program tinh toan;
uses crt;
var a,b : real;
pt: char;
begin
writeln(' hay nhap 2 so bat ki');
readln(a,b);
writeln(' hay nhap phep tinh');
readln(pt);
if pt='+' then write(a,'+',b,'=',a+b:4:1);
if pt='-' then write(a,'-',b,'=',a-b:4:1);
if pt='*' then write(a,'*',b,'=',a*b:4:1);
if pt='/' then write(a,'/',b,'=',a/b:4:1);
readln
end.
crazy- Cấp 1
- Tổng số bài gửi : 10
Points : 10
Reputation : 0
Join date : 13/11/2015
Age : 21
Đến từ : Cà Mau
Re: Bài 3: Câu lệnh điều kiện(if .. then ..)
bài kiểm tra học điểm học sinh crazy chỗ readln ko chấm phẩy (
TranAi- Cấp 1
- Tổng số bài gửi : 15
Points : 19
Reputation : 4
Join date : 22/10/2013
Re: Bài 3: Câu lệnh điều kiện(if .. then ..)
baài cuối ko sai nhưng để dấu 'x',':' thì đẹp hơn
TranAi- Cấp 1
- Tổng số bài gửi : 15
Points : 19
Reputation : 4
Join date : 22/10/2013
Similar topics
» Các lệnh cơ bản trong Pascal
» Bài 1: Lệnh thông báo ra màn hình(Write)
» Điều khiển máy tính từ xa bằng TeamViewer 8
» Bài 1: Lệnh thông báo ra màn hình(Write)
» Điều khiển máy tính từ xa bằng TeamViewer 8
Trang 1 trong tổng số 1 trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết
|
|
2/2/2016, 18:55 by crazy
» Bài 3: Câu lệnh điều kiện(if .. then ..)
17/1/2016, 20:30 by TranAi
» Bài 2: Nhập dữ liệu vào biến(Readln)
3/1/2016, 16:25 by crazy
» Bài 4: Cấu trúc rẽ nhánh(Case .. of)
29/11/2015, 18:11 by TranAi
» Bài 1: Lệnh thông báo ra màn hình(Write)
19/11/2015, 14:45 by caodao
» Hướng dẫn Ghost HDD không cần đĩa CD
12/6/2015, 16:44 by duchiep0123
» Bài tập tổng hợp
15/4/2015, 19:23 by TranAi
» Bàn ghế tre – cafe, nhà hàng giá xuất xưởng chỉ với 380k/1b
18/7/2014, 09:42 by hoaithuong
» Bài thuốc truyền đời chữa bệnh viêm gan B và xơ gan cổ trướng của lương y nức tiếng Hà thành
27/5/2014, 10:30 by hatcatvothuong