Đăng Nhập

Quên mật khẩu

November 2018
MonTueWedThuFriSatSun
   1234
567891011
12131415161718
19202122232425
2627282930  

Calendar Calendar

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

[ View the whole list ]


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ên
Chú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 ..)

Go down

Bài 3: Câu lệnh điều kiện(if .. then ..)

Bài gửi by Admin on 26/3/2014, 08:25

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(Wink

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)

Admin
Admin

Tổng số bài gửi : 59
Points : 171
Reputation : 3
Join date : 06/10/2013
Age : 35
Đến từ : Cà Mau

Xem lý lịch thành viên http://phamhoe.forumvi.com

Về Đầu Trang Go down

Re: Bài 3: Câu lệnh điều kiện(if .. then ..)

Bài gửi by lethanhnhan9a3 on 5/3/2015, 18:35

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.

lethanhnhan9a3
Cấp 1
Cấp 1

Tổng số bài gửi : 11
Points : 12
Reputation : 1
Join date : 20/01/2015

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài 3: Câu lệnh điều kiện(if .. then ..)

Bài gửi by lethanhnhan9a3 on 5/3/2015, 18:45

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.

lethanhnhan9a3
Cấp 1
Cấp 1

Tổng số bài gửi : 11
Points : 12
Reputation : 1
Join date : 20/01/2015

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài 3: Câu lệnh điều kiện(if .. then ..)

Bài gửi by crazy on 10/12/2015, 19:06

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.


Được sửa bởi crazy ngày 3/1/2016, 15:12; sửa lần 1.

crazy
Cấp 1
Cấp 1

Tổng số bài gửi : 10
Points : 10
Reputation : 0
Join date : 13/11/2015
Age : 16
Đến từ : Cà Mau

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài 3: Câu lệnh điều kiện(if .. then ..)

Bài gửi by TranAi on 15/12/2015, 06:28

Bài 1 của crazy sai rồi. Chỗ đều kiện if....... then.

TranAi
Cấp 1
Cấp 1

Tổng số bài gửi : 15
Points : 19
Reputation : 4
Join date : 22/10/2013

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài 3: Câu lệnh điều kiện(if .. then ..)

Bài gửi by crazy on 3/1/2016, 16:57

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.

crazy
Cấp 1
Cấp 1

Tổng số bài gửi : 10
Points : 10
Reputation : 0
Join date : 13/11/2015
Age : 16
Đến từ : Cà Mau

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài 3: Câu lệnh điều kiện(if .. then ..)

Bài gửi by crazy on 3/1/2016, 17:36

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.

crazy
Cấp 1
Cấp 1

Tổng số bài gửi : 10
Points : 10
Reputation : 0
Join date : 13/11/2015
Age : 16
Đến từ : Cà Mau

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài 3: Câu lệnh điều kiện(if .. then ..)

Bài gửi by crazy on 8/1/2016, 10:55

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.

crazy
Cấp 1
Cấp 1

Tổng số bài gửi : 10
Points : 10
Reputation : 0
Join date : 13/11/2015
Age : 16
Đến từ : Cà Mau

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài 3: Câu lệnh điều kiện(if .. then ..)

Bài gửi by TranAi on 17/1/2016, 20:25

bài kiểm tra học điểm học sinh crazy chỗ readln ko chấm phẩy (Wink

TranAi
Cấp 1
Cấp 1

Tổng số bài gửi : 15
Points : 19
Reputation : 4
Join date : 22/10/2013

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài 3: Câu lệnh điều kiện(if .. then ..)

Bài gửi by TranAi on 17/1/2016, 20:30

baài cuối ko sai nhưng để dấu 'x',':' thì đẹp hơn

TranAi
Cấp 1
Cấp 1

Tổng số bài gửi : 15
Points : 19
Reputation : 4
Join date : 22/10/2013

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài 3: Câu lệnh điều kiện(if .. then ..)

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết