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 416 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
Bồi dưỡng HSG Toán 3 : Bài 10. Tìm số theo các điều kiện về chữ số của nó (tiết 2)
Bồi dưỡng HSG Toán 3 : Bài 10. Tìm số theo các điều kiện về chữ số của nó (tiết 2)
Bồi dưỡng HSG Toán 3 : Bài 9. Tìm số theo các điều kiện về chữ số của nó (tiết 1)
Bồi dưỡng HSG Toán 3 : Bài 9. Tìm số theo các điều kiện về chữ số của nó (tiết 1)
Bồi dưỡng HSG Toán 3 : Bài 8.Tìm số các số chẵn và số các số lẻ
Bồi dưỡng HSG Toán 3 : Bài 8.Tìm số các số chẵn và số các số lẻ
Hình học tổ hợp - Thầy Phan Huy Khải : Bài 17. Các bài toán về lân cận điển hình
Hình học tổ hợp - Thầy Phan Huy Khải : Bài 17. Các bài toán về lân cận điển hình
Phần Đại số tuyến tính - thầy Lê Bá Trần Phương : Bài 3. Không gian con và hệ sinh (Phần 2)
Phần Đại số tuyến tính - thầy Lê Bá Trần Phương : Bài 3. Không gian con và hệ sinh (Phần 2)
Luyện thi quốc gia PEN-C: Môn Toán (Thầy Trần Phương) : Bài 3. Phương trình vô tỉ (Phần 2)
Luyện thi quốc gia PEN-C: Môn Toán (Thầy Trần Phương) : Bài 3. Phương trình vô tỉ (Phần 2)
Hoá học - Lớp 12 - Thầy Phạm Ngọc Sơn (2014-2015) :  Bài 8. Luyện tập Bạc - Vàng - Niken - Kẽm - Thiếc - Chì
Hoá học - Lớp 12 - Thầy Phạm Ngọc Sơn (2014-2015) : Bài 8. Luyện tập Bạc - Vàng - Niken - Kẽm - Thiếc - Chì
Hoá học - Lớp 12 - Thầy Phạm Ngọc Sơn (2014-2015) :  Bài 7. Luyện tập về hợp chất của sắt
Hoá học - Lớp 12 - Thầy Phạm Ngọc Sơn (2014-2015) : Bài 7. Luyện tập về hợp chất của sắt
Toán 11 - Thầy Nguyễn Thanh Tùng : Bài 11. Luyện tập
Toán 11 - Thầy Nguyễn Thanh Tùng : Bài 11. Luyện tập
Luyện thi quốc gia PEN-C: Môn Hoá học (Thầy Trần Hải) :  Giới thiệu khoá học PEN-C
Luyện thi quốc gia PEN-C: Môn Hoá học (Thầy Trần Hải) : Giới thiệu khoá học PEN-C

Đề thi mới
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 - 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 - 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
Toán 11 : Chương 2. Tổ hợp và xác suất
Toán 11 : Chương 2. Tổ hợp và xác suất
Tiếng Anh 10 - cô Nguyễn Thị Phương 10 : Pronunciation test
Tiếng Anh 10 - cô Nguyễn Thị Phương 10 : Pronunciation test
Internal Test 9 : Hocmai.vn contest 2 2014.08
Internal Test 9 : Hocmai.vn contest 2 2014.08




Múi giờ GMT +7. Hiện tại là 19:02.
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.