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

Thi thử đại học 2014



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.


Các bài viết xem nhiều nhất cùng chuyên mục:
__________________
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: 111
Đã 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 412 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: 111
Đã 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

Đề thi mới




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

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.