Diễn đàn học tập của Hocmai.vn
Liên hệ quảng cáo: xem chi tiết tại đây

Diendan.hocmai.vn - Học thày chẳng tày học bạn! » Ngoại khóa » Tin học - Máy tính » pascal | cấu trúc if-then




Trả lời
  #1  
Cũ 13-12-2009
donghomauvang's Avatar
donghomauvang donghomauvang đang ngoại tuyến
Thành viên
Bàn phó
 
Tham gia : 15-10-2009
Đến từ: mạng nhện
Bài viết: 91
Đã cảm ơn: 27
Được cảm ơn 7 lần
Lightbulb pascal | cấu trúc if-then

chỉ cần viết cấu trúc if-then mà thôi.
1. gpt: ax+b=0 [a,b nhập từ bàn phím].
2. tìm GTLN của 3 số a,b,c.
3. nhập số n. In tổng các chữ số của n nếu n là số có 3 chữ số, ngược lại thì in căn bậc hai của n.

__________________
Phải Đậu Đại Học^^!!!!!!!!!!!!!!!!!!!!!!!!!
Trả Lời Với Trích Dẫn
Có một thành viên đã cám ơn donghomauvang vì bài viết này:
  #2  
Cũ 13-12-2009
nani_tam999 nani_tam999 đang ngoại tuyến
Thành viên
Bàn trưởng
 
Tham gia : 06-11-2008
Bài viết: 110
Đã cảm ơn: 11
Được cảm ơn 27 lần
==>>Câu lệnh if-then chứ ko phải cấu trúc nhé
a)
Mã:
if a=0 then
   if b=0 then write('pt co vo so nghiem ')
   else write('Pt vo nghiem')
else 
   begin
          x:=-b/a;
          write('pt co 1 nghiem duy nhat la ',x);
    end;
readln;
b)
Mã:
max:=0;
if a>max then max:=a;
if b>max then max:=b;
if c>max then max:=c;
write(max) ; readln;
c)
Mã:
s:=0;
if (n>=100) and (N<1000) then
  begin
         while n>=1 then
            begin
                   x:=n mod 10;
                   n:=n div 10;
                   s:=s+x;
            end;
         write(s);   
   end
else write(sqrt(n));
readln;

Thay đổi nội dung bởi: nani_tam999, 13-12-2009 lúc 15:37.
Trả Lời Với Trích Dẫn
Có 2 thành viên đã gửi lời cảm ơn đến nani_tam999 với bài viết này:
  #3  
Cũ 14-12-2009
donghomauvang's Avatar
donghomauvang donghomauvang đang ngoại tuyến
Thành viên
Bàn phó
 
Tham gia : 15-10-2009
Đến từ: mạng nhện
Bài viết: 91
Đã cảm ơn: 27
Được cảm ơn 7 lần
ở câu b, hình như là nhập 3 số a,b,c rồi so sánh xem số nào lớn hơn thì phải?
__________________
Phải Đậu Đại Học^^!!!!!!!!!!!!!!!!!!!!!!!!!
Trả Lời Với Trích Dẫn
  #4  
Cũ 14-12-2009
toletbygonebebygone's Avatar
toletbygonebebygone toletbygonebebygone đang ngoại tuyến
Mr thông minh 2010
Lớp phó
 
Tham gia : 22-10-2009
Đến từ: Phú Yên...
Bài viết: 840
Đã cảm ơn: 272
Được cảm ơn 417 lần
câu 3 thì làm theo bạn này nani_tam999 lak ngắn nhất mak hay nhất.
làm theo bạn donghomauvang cũng đúng nhưng mak có lẽ sẻ dài hơn
__________________
Facebook : http://www.facebook.com/Yoongcaspe/#!/profile.php?id=100002240691590
Buồn buồn ngồi post bài chơi
Ai dè rớt mạng, buồn ơi là buồn
* * *
Buồn buồn trêu vợ cho vui
Ai dè vợ đánh, buồn ơi là buồn.
* * *
Buồn buồn ngồi ký nhảm chơi
Ai mà ráng đọc... khùng ơi là khùng
Trả Lời Với Trích Dẫn
  #5  
Cũ 16-12-2009
donghomauvang's Avatar
donghomauvang donghomauvang đang ngoại tuyến
Thành viên
Bàn phó
 
Tham gia : 15-10-2009
Đến từ: mạng nhện
Bài viết: 91
Đã cảm ơn: 27
Được cảm ơn 7 lần
c)
Mã:
s:=0;
if (n>=100) and (N<1000) then
  begin
         while n>=1 then
            begin
                   x:=n mod 10;
                   n:=n div 10;
                   s:=s+x;
            end;
         write(s);   
   end
else write(sqrt(n));
readln;
mà vì sao phải gán s:=0 nhỉ
__________________
Phải Đậu Đại Học^^!!!!!!!!!!!!!!!!!!!!!!!!!
Trả Lời Với Trích Dẫn
  #6  
Cũ 19-12-2009
nani_tam999 nani_tam999 đang ngoại tuyến
Thành viên
Bàn trưởng
 
Tham gia : 06-11-2008
Bài viết: 110
Đã cảm ơn: 11
Được cảm ơn 27 lần
Trích:
Nguyên văn bởi donghomauvang
mà vì sao phải gán s:=0 nhỉ
Ban đầu phải gán tổng = 0, sau đó mới tính như đằng sau. Ko gán thì có thể máy tính sẽ gán mấy cái giá trị rác vào S => tính bị sai. Nói dễ hiểu hơn là nếu ko gán thì ko thể biét lúc đầu S = bao nhiêu mà cộng cả
Trích:
ở câu b, hình như là nhập 3 số a,b,c rồi so sánh xem số nào lớn hơn thì phải?
Tức là tìm max đấy. Bạn còn thắc mắc gì nữa ko ?
Trả Lời Với Trích Dẫn
Trả lời

Chia sẻ/đánh dấu bài viết


Ðiều chỉnh Tìm trong bài viết
Tìm trong bài viết:

Tìm chi tiết
Xếp bài

Quyền hạn của bạn
Bạn không thể tạo chủ đề mới
Bạn không thể gửi trả lời
Bạn không thể đăng tập đính kèm
Bạn không thể sửa bài của mình

BB codeMở
Smilies đang Mở
[IMG] đang Mở
HTML đang Tắt

 
Bài giảng mới
Định Dạng và Giải Bài Tập Dao động cơ - Thầy Đỗ Ngọc Hà : Bài 4. Cắt, nối, ghép lò xo lí tưởng cho con lắc lò xo. Các dạng bài đặc biệt
Định Dạng và Giải Bài Tập Dao động cơ - Thầy Đỗ Ngọc Hà : Bài 4. Cắt, nối, ghép lò xo lí tưởng cho con lắc lò xo. Các dạng bài đặc biệt
Định Dạng và Giải Bài Tập Dao động cơ - Thầy Đỗ Ngọc Hà : Bài 3. Năng lượng con lắc lò xo tổng hợp và nâng cao
Định Dạng và Giải Bài Tập Dao động cơ - Thầy Đỗ Ngọc Hà : Bài 3. Năng lượng con lắc lò xo tổng hợp và nâng cao
Toán nâng cao lớp 7 :  Bài 9. Tam giác (tiết 9)
Toán nâng cao lớp 7 : Bài 9. Tam giác (tiết 9)
Toán nâng cao lớp 7 :  Bài 8. Tam giác (tiết 8)
Toán nâng cao lớp 7 : Bài 8. Tam giác (tiết 8)
Toán cơ bản và nâng cao lớp 8 :  Bài 9.Ôn tập chương 2 (tiết 2)
Toán cơ bản và nâng cao lớp 8 : Bài 9.Ôn tập chương 2 (tiết 2)
Toán cơ bản và nâng cao lớp 8 :  Bài 8.Ôn tập chương 2 (tiết 1)
Toán cơ bản và nâng cao lớp 8 : Bài 8.Ôn tập chương 2 (tiết 1)
Toán cơ bản và nâng cao lớp 8 :  Bài 7.Biến đổi biểu thức hữu tỉ (tiết 2)>
Toán cơ bản và nâng cao lớp 8 : Bài 7.Biến đổi biểu thức hữu tỉ (tiết 2)>
Toán cơ bản và nâng cao lớp 8 :  Bài 6.Biến đổi biểu thức hữu tỉ (tiết 1)
Toán cơ bản và nâng cao lớp 8 : Bài 6.Biến đổi biểu thức hữu tỉ (tiết 1)
PEN-I: Môn Vật lí (Thầy Đặng Việt Hùng) : Bài giảng chữa đề 01 (Phần 02)
PEN-I: Môn Vật lí (Thầy Đặng Việt Hùng) : Bài giảng chữa đề 01 (Phần 02)
Ôn luyện Toán lớp 6 : Bài 12.Luyện tập kiểm tra 45 phút ( tiết 2 )
Ôn luyện Toán lớp 6 : Bài 12.Luyện tập kiểm tra 45 phút ( tiết 2 )

Đề thi mới
PEN-I: môn Hoá học - thầy Phạm Ngọc Sơn 12 : Đề số 01
PEN-I: môn Hoá học - thầy Phạm Ngọc Sơn 12 : Đề số 01
Vật lí 12 : Đề kiểm tra năng lực môn Vật lí - Dành cho hoc sinh lớp 12 _ thang 11
Vật lí 12 : Đề kiểm tra năng lực môn Vật lí - Dành cho hoc sinh lớp 12 _ thang 11
Internal Test 9 : Hocmai.vn Contest 3 (2014.11)
Internal Test 9 : Hocmai.vn Contest 3 (2014.11)
Thi thử đại học 12 : Đề đánh giá năng lực môn Tiếng Anh - Dành cho học sinh lớp 13
Thi thử đại học 12 : Đề đánh giá năng lực môn Tiếng Anh - Dành cho học sinh lớp 13
Thi thử đại học 12 : Đề kiểm tra năng lực môn Tiếng Anh tháng 11 - Dành cho học sinh lớp 12
Thi thử đại học 12 : Đề kiểm tra năng lực môn Tiếng Anh tháng 11 - Dành cho học sinh lớp 12
Tiếng Anh 10 - cô Nguyễn Thị Phương 10 : Revision test 1+2+3
Tiếng Anh 10 - cô Nguyễn Thị Phương 10 : Revision test 1+2+3
Hóa học 10 : Chương IV. Phản ứng hoá học
Hóa học 10 : Chương IV. Phản ứng hoá học
Hóa học 10 : Chương III. Liên kết hóa học
Hóa học 10 : Chương III. Liên kết hóa học
Hóa học 10 : Chương I. Nguyên tử
Hóa học 10 : Chương I. Nguyên tử
Hóa học 10 : Chương II. Bảng HTTH các nguyên tố hoá học
Hóa học 10 : Chương II. Bảng HTTH các nguyên tố hoá học




Múi giờ GMT +7. Hiện tại là 15:56.
Powered by: vBulletin v3.x.x Copyright ©2000-2014, Jelsoft Enterprises Ltd.

Giấy phép cung cấp dịch vụ mạng xã hội trực tuyến số 196/GXN-TTĐT Cục Quản lý PTTH&TTĐT cấp ngày 11/11/2011.