Diễn đàn Tin học
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
Đăng Nhập

Quên mật khẩu

March 2024
MonTueWedThuFriSatSun
    123
45678910
11121314151617
18192021222324
25262728293031

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 ..)

4 posters

Go down

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

Bài gửi by Admin 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 : 40
Đến từ : Cà Mau

https://phamhoe.forumvi.com

Về Đầu Trang Go down

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

Bài gửi by lethanhnhan9a3 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

Về Đầu Trang Go down

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

Bài gửi by lethanhnhan9a3 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

Về Đầu Trang Go down

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

Bài gửi by crazy 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 : 21
Đến từ : Cà Mau

Về Đầu Trang Go down

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

Bài gửi by TranAi 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

Về Đầu Trang Go down

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

Bài gửi by crazy 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 : 21
Đến từ : Cà Mau

Về Đầu Trang Go down

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

Bài gửi by crazy 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 : 21
Đến từ : Cà Mau

Về Đầu Trang Go down

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

Bài gửi by crazy 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 : 21
Đến từ : Cà Mau

Về Đầu Trang Go down

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

Bài gửi by TranAi 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

Về Đầu Trang Go down

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

Bài gửi by TranAi 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

Về Đầu Trang Go down

Bài 3: Câu lệnh điều kiện(if .. then ..) Empty 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

- Similar topics

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