Click đây để đến diễn đàn mới
 
PortalTrang ChínhGalleryTrợ giúpĐăng kýĐăng Nhập

Share | 
 

 Giúp nhox với, khó wá à

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Chuyển đến trang : 1, 2, 3, 4, 5  Next
Tác giảThông điệp
nhoxkute
Thành viên tâm huyết
Thành viên tâm huyết
avatar

Nữ
Tổng số bài gửi : 258
Age : 25
Nghề nghiệp, trường lớp : THPT Mạc Đĩnh Chi
Sở thích : ăn, ngủ, onl
Thú nuôi :
Cảnh cáo :
0 / 1000 / 100

Registration date : 11/06/2008

Bài gửiTiêu đề: Giúp nhox với, khó wá à   11/6/2008, 12:39 pm

Bài nì dễ lém Big Smile , nhưng học lâu òi nên nhox hem nhớ phải làm thế nào Burn Joss Stick . Pà kon giúp dùm nhox nha!
Nhập vài 10 số tự nhiên từ a1 đến a10, hãy viết chương trình in ra màn hình số lớn nhất và số nhỏ nhất.

Làm ơn đi pà kon Too Sad . Nhox cảm ơn trước nà Bye Bye !
Về Đầu Trang Go down
Xem lý lịch thành viên
k_u_t_3
Thành viên ưu tú
Thành viên ưu tú
avatar

Nữ
Tổng số bài gửi : 486
Age : 22
Nơi ở : nha* tu` Th3^ ky?
Nghề nghiệp, trường lớp : học sinh lớp 7T2
Sở thích : thix tham gia hoạt động đội, online, music.....(nhi`u lem')
Tâm trạng :
Thú nuôi :
Cảnh cáo :
0 / 1000 / 100

Registration date : 18/05/2008

Thông tin riêng
Thông tin tự bạch:

Bài gửiTiêu đề: Re: Giúp nhox với, khó wá à   11/6/2008, 10:32 pm

i''''' bài ni`.......em cung~ ko bik' làm =.=
Về Đầu Trang Go down
Xem lý lịch thành viên http://360.yahoo.com/profile-M6.Y6tUlbql7V3eH1qRzAAMekvAbNT9E2bh
nhoxkute
Thành viên tâm huyết
Thành viên tâm huyết
avatar

Nữ
Tổng số bài gửi : 258
Age : 25
Nghề nghiệp, trường lớp : THPT Mạc Đĩnh Chi
Sở thích : ăn, ngủ, onl
Thú nuôi :
Cảnh cáo :
0 / 1000 / 100

Registration date : 11/06/2008

Bài gửiTiêu đề: Re: Giúp nhox với, khó wá à   12/6/2008, 8:07 am

không bít là cũng nói nữa nà, đi hỏi dùm đi em gái. Nhox năn nỉ lun á!
Về Đầu Trang Go down
Xem lý lịch thành viên
DevilKingBoy
Moderator
Moderator
avatar

Nam
Tổng số bài gửi : 2030
Age : 23
Nơi ở : My Home!!
Nghề nghiệp, trường lớp : hoc sinh truong lam son, lop 8A1
Sở thích : an, ngu, nghe nhac, xem phim,choi game
Tâm trạng :
Thú nuôi :
Cảnh cáo :
0 / 1000 / 100

Registration date : 29/03/2008

Thông tin riêng
Thông tin tự bạch:

Bài gửiTiêu đề: Re: Giúp nhox với, khó wá à   12/6/2008, 8:38 am

hãy viết chương trình in ra màn hình số lớn nhất và số nhỏ nhất.
ý anh kêu tìm max, min của dãy số tự nhiên đó àh
Về Đầu Trang Go down
Xem lý lịch thành viên http://360.yahoo.com/profile-kza54RI1frBomQx4uYgtdGWN15xIyGU52La
nhoxkute
Thành viên tâm huyết
Thành viên tâm huyết
avatar

Nữ
Tổng số bài gửi : 258
Age : 25
Nghề nghiệp, trường lớp : THPT Mạc Đĩnh Chi
Sở thích : ăn, ngủ, onl
Thú nuôi :
Cảnh cáo :
0 / 1000 / 100

Registration date : 11/06/2008

Bài gửiTiêu đề: Re: Giúp nhox với, khó wá à   12/6/2008, 8:58 am

uhm, em bít làm dùm nha! Sắp lên đoạn đầu đài òi. huhuhuhu Ah
Về Đầu Trang Go down
Xem lý lịch thành viên
TripleSix
Thành viên ưu tú
Thành viên ưu tú
avatar

Nam
Tổng số bài gửi : 1069
Age : 24
Nơi ở : TP Hồ Chí Minh
Nghề nghiệp, trường lớp : Lam Sơn, 9A1
Sở thích : Spam và Programming
Tâm trạng :
Thú nuôi :
Cảnh cáo :
0 / 1000 / 100

Thẻ cảnh cáo :
Registration date : 02/06/2008

Thông tin riêng
Thông tin tự bạch:

Bài gửiTiêu đề: Re: Giúp nhox với, khó wá à   12/6/2008, 11:22 am

nè anh:
Code:

Dim a:array [1..10] of integer
      i,min,max:integer;
Begin
      For i:=1 to 10 do begin
        Write('Nhap so thu ',i,': ');
        Readln(a[i]);
      End;
      min:=a[1];
      max:=a[1];
      For i:=2 to 10 do begin
        If a[i]<min then min:=a[i];
        If a[i]>max then max:=a[i];
      End;
      Writeln('So nho nhat: ',min);
      Writeln('So lon nhat: ',max;
      Readln;
End.
Về Đầu Trang Go down
Xem lý lịch thành viên
TripleSix
Thành viên ưu tú
Thành viên ưu tú
avatar

Nam
Tổng số bài gửi : 1069
Age : 24
Nơi ở : TP Hồ Chí Minh
Nghề nghiệp, trường lớp : Lam Sơn, 9A1
Sở thích : Spam và Programming
Tâm trạng :
Thú nuôi :
Cảnh cáo :
0 / 1000 / 100

Thẻ cảnh cáo :
Registration date : 02/06/2008

Thông tin riêng
Thông tin tự bạch:

Bài gửiTiêu đề: Re: Giúp nhox với, khó wá à   12/6/2008, 11:25 am

Đề dễ thế, có đang thử tụi em ko đó ? Ops


Được sửa bởi TripleSix ngày 12/6/2008, 11:26 pm; sửa lần 1.
Về Đầu Trang Go down
Xem lý lịch thành viên
nhoxkute
Thành viên tâm huyết
Thành viên tâm huyết
avatar

Nữ
Tổng số bài gửi : 258
Age : 25
Nghề nghiệp, trường lớp : THPT Mạc Đĩnh Chi
Sở thích : ăn, ngủ, onl
Thú nuôi :
Cảnh cáo :
0 / 1000 / 100

Registration date : 11/06/2008

Bài gửiTiêu đề: Re: Giúp nhox với, khó wá à   12/6/2008, 11:51 am

Thử làm j` na`. Nhox học pascal năm lớp 9, bi giờ nhox lên 11, nhớ tí j` chết liền á
Về Đầu Trang Go down
Xem lý lịch thành viên
TripleSix
Thành viên ưu tú
Thành viên ưu tú
avatar

Nam
Tổng số bài gửi : 1069
Age : 24
Nơi ở : TP Hồ Chí Minh
Nghề nghiệp, trường lớp : Lam Sơn, 9A1
Sở thích : Spam và Programming
Tâm trạng :
Thú nuôi :
Cảnh cáo :
0 / 1000 / 100

Thẻ cảnh cáo :
Registration date : 02/06/2008

Thông tin riêng
Thông tin tự bạch:

Bài gửiTiêu đề: Re: Giúp nhox với, khó wá à   12/6/2008, 11:54 am

Oh Sweat
Về Đầu Trang Go down
Xem lý lịch thành viên
TripleSix
Thành viên ưu tú
Thành viên ưu tú
avatar

Nam
Tổng số bài gửi : 1069
Age : 24
Nơi ở : TP Hồ Chí Minh
Nghề nghiệp, trường lớp : Lam Sơn, 9A1
Sở thích : Spam và Programming
Tâm trạng :
Thú nuôi :
Cảnh cáo :
0 / 1000 / 100

Thẻ cảnh cáo :
Registration date : 02/06/2008

Thông tin riêng
Thông tin tự bạch:

Bài gửiTiêu đề: Re: Giúp nhox với, khó wá à   12/6/2008, 11:56 am

Mau quên thía ? Big Smile


Được sửa bởi TripleSix ngày 12/6/2008, 11:27 pm; sửa lần 1.
Về Đầu Trang Go down
Xem lý lịch thành viên
nhoxkute
Thành viên tâm huyết
Thành viên tâm huyết
avatar

Nữ
Tổng số bài gửi : 258
Age : 25
Nghề nghiệp, trường lớp : THPT Mạc Đĩnh Chi
Sở thích : ăn, ngủ, onl
Thú nuôi :
Cảnh cáo :
0 / 1000 / 100

Registration date : 11/06/2008

Bài gửiTiêu đề: Re: Giúp nhox với, khó wá à   12/6/2008, 1:02 pm

Thế mới bít mình ngu hơn mí em nhiều. Mà nhox mới học lệnh IF à, hem bít co dùng mấy cái lệnh rắc rối nì dc hem. Có cách nào đơn giản hơn hông em?
Về Đầu Trang Go down
Xem lý lịch thành viên
k_u_t_3
Thành viên ưu tú
Thành viên ưu tú
avatar

Nữ
Tổng số bài gửi : 486
Age : 22
Nơi ở : nha* tu` Th3^ ky?
Nghề nghiệp, trường lớp : học sinh lớp 7T2
Sở thích : thix tham gia hoạt động đội, online, music.....(nhi`u lem')
Tâm trạng :
Thú nuôi :
Cảnh cáo :
0 / 1000 / 100

Registration date : 18/05/2008

Thông tin riêng
Thông tin tự bạch:

Bài gửiTiêu đề: Re: Giúp nhox với, khó wá à   12/6/2008, 3:29 pm

sAo thấy anh kia Làm rắc rối wa' za...............Em cũng đã học excel Oy` hem bik' cO' thể júp chị hem nữa!! Mà chương trìh in ra màn hình là sao em hEm hiu???
Về Đầu Trang Go down
Xem lý lịch thành viên http://360.yahoo.com/profile-M6.Y6tUlbql7V3eH1qRzAAMekvAbNT9E2bh
DevilKingBoy
Moderator
Moderator
avatar

Nam
Tổng số bài gửi : 2030
Age : 23
Nơi ở : My Home!!
Nghề nghiệp, trường lớp : hoc sinh truong lam son, lop 8A1
Sở thích : an, ngu, nghe nhac, xem phim,choi game
Tâm trạng :
Thú nuôi :
Cảnh cáo :
0 / 1000 / 100

Registration date : 29/03/2008

Thông tin riêng
Thông tin tự bạch:

Bài gửiTiêu đề: Re: Giúp nhox với, khó wá à   12/6/2008, 11:03 pm

Y21 , thì cái ông Lực làm đó
Về Đầu Trang Go down
Xem lý lịch thành viên http://360.yahoo.com/profile-kza54RI1frBomQx4uYgtdGWN15xIyGU52La
TripleSix
Thành viên ưu tú
Thành viên ưu tú
avatar

Nam
Tổng số bài gửi : 1069
Age : 24
Nơi ở : TP Hồ Chí Minh
Nghề nghiệp, trường lớp : Lam Sơn, 9A1
Sở thích : Spam và Programming
Tâm trạng :
Thú nuôi :
Cảnh cáo :
0 / 1000 / 100

Thẻ cảnh cáo :
Registration date : 02/06/2008

Thông tin riêng
Thông tin tự bạch:

Bài gửiTiêu đề: Re: Giúp nhox với, khó wá à   12/6/2008, 11:19 pm

Đơn giản nhất rùi đó:
- cho max và min là số thứ nhất,
- chạy 1 vòng lặp từ số thứ 2 đến số thứ 10, nếu số đang duyệt lớn hơn max thì gán cho max = số đang duyệt, tương tự với min

Như vậy hết vòng lặp thì ta được hai số max và min. In ra thế thui


Được sửa bởi TripleSix ngày 13/6/2008, 11:00 am; sửa lần 4.
Về Đầu Trang Go down
Xem lý lịch thành viên
TripleSix
Thành viên ưu tú
Thành viên ưu tú
avatar

Nam
Tổng số bài gửi : 1069
Age : 24
Nơi ở : TP Hồ Chí Minh
Nghề nghiệp, trường lớp : Lam Sơn, 9A1
Sở thích : Spam và Programming
Tâm trạng :
Thú nuôi :
Cảnh cáo :
0 / 1000 / 100

Thẻ cảnh cáo :
Registration date : 02/06/2008

Thông tin riêng
Thông tin tự bạch:

Bài gửiTiêu đề: Re: Giúp nhox với, khó wá à   12/6/2008, 11:20 pm

Nếu muốn xài IF thì cũng được. Cực kỳ đơn giản nhưng lại tốn sức. Beat Plaster


Được sửa bởi TripleSix ngày 12/6/2008, 11:25 pm; sửa lần 1.
Về Đầu Trang Go down
Xem lý lịch thành viên
TripleSix
Thành viên ưu tú
Thành viên ưu tú
avatar

Nam
Tổng số bài gửi : 1069
Age : 24
Nơi ở : TP Hồ Chí Minh
Nghề nghiệp, trường lớp : Lam Sơn, 9A1
Sở thích : Spam và Programming
Tâm trạng :
Thú nuôi :
Cảnh cáo :
0 / 1000 / 100

Thẻ cảnh cáo :
Registration date : 02/06/2008

Thông tin riêng
Thông tin tự bạch:

Bài gửiTiêu đề: Re: Giúp nhox với, khó wá à   12/6/2008, 11:24 pm

Code:
Dim max,min: integer;
    a[1..10]:array of integer;
Begin
  {nhập dữ liệu}
  max:=a[1];
  If max>a[2] then max:=a[2];
  If max>a[3] then max:=a[3];
  If max>a[4] then max:=a[4];
  If max>a[5] then max:=a[5];
  If max>a[6] then max:=a[6];
  If max>a[7] then max:=a[7];
  If max>a[8] then max:=a[8];
  If max>a[9] then max:=a[9];
  If max>a[10] then max:=a[10];
  min:=a[1];
  If min>a[2] then min:=a[2];
  If min>a[3] then min:=a[3];
  If min>a[4] then min:=a[4];
  If min>a[5] then min:=a[5];
  If min>a[6] then min:=a[6];
  If min>a[7] then min:=a[7];
  If min>a[8] then min:=a[8];
  If min>a[9] then min:=a[9];
  If min>a[10] then min:=a[10];
  Writeln('So nho nhat: ',min);
  Writeln('So lon nhat: ',max);
  Readln;
End.
Về Đầu Trang Go down
Xem lý lịch thành viên
k_u_t_3
Thành viên ưu tú
Thành viên ưu tú
avatar

Nữ
Tổng số bài gửi : 486
Age : 22
Nơi ở : nha* tu` Th3^ ky?
Nghề nghiệp, trường lớp : học sinh lớp 7T2
Sở thích : thix tham gia hoạt động đội, online, music.....(nhi`u lem')
Tâm trạng :
Thú nuôi :
Cảnh cáo :
0 / 1000 / 100

Registration date : 18/05/2008

Thông tin riêng
Thông tin tự bạch:

Bài gửiTiêu đề: Re: Giúp nhox với, khó wá à   13/6/2008, 1:18 am

Cha`j ui ha^m mộ wa'!!! sAo anh jỏi tin wá za.?? em hỉu chit' liền ----
Về Đầu Trang Go down
Xem lý lịch thành viên http://360.yahoo.com/profile-M6.Y6tUlbql7V3eH1qRzAAMekvAbNT9E2bh
nhoxkute
Thành viên tâm huyết
Thành viên tâm huyết
avatar

Nữ
Tổng số bài gửi : 258
Age : 25
Nghề nghiệp, trường lớp : THPT Mạc Đĩnh Chi
Sở thích : ăn, ngủ, onl
Thú nuôi :
Cảnh cáo :
0 / 1000 / 100

Registration date : 11/06/2008

Bài gửiTiêu đề: Re: Giúp nhox với, khó wá à   13/6/2008, 7:48 am

trùi ui, rối lun, hix, cảm ơn TripleSix nhìu nha!
p/s Lan Anh: lên lớp 8 đi òi hiểu em ha! Cố lên nhox
Về Đầu Trang Go down
Xem lý lịch thành viên
TripleSix
Thành viên ưu tú
Thành viên ưu tú
avatar

Nam
Tổng số bài gửi : 1069
Age : 24
Nơi ở : TP Hồ Chí Minh
Nghề nghiệp, trường lớp : Lam Sơn, 9A1
Sở thích : Spam và Programming
Tâm trạng :
Thú nuôi :
Cảnh cáo :
0 / 1000 / 100

Thẻ cảnh cáo :
Registration date : 02/06/2008

Thông tin riêng
Thông tin tự bạch:

Bài gửiTiêu đề: Re: Giúp nhox với, khó wá à   13/6/2008, 10:58 am

Pascal thì trường ta chỉ có bố Duy là Pro nhất thui hờ Beauty
Về Đầu Trang Go down
Xem lý lịch thành viên
k_u_t_3
Thành viên ưu tú
Thành viên ưu tú
avatar

Nữ
Tổng số bài gửi : 486
Age : 22
Nơi ở : nha* tu` Th3^ ky?
Nghề nghiệp, trường lớp : học sinh lớp 7T2
Sở thích : thix tham gia hoạt động đội, online, music.....(nhi`u lem')
Tâm trạng :
Thú nuôi :
Cảnh cáo :
0 / 1000 / 100

Registration date : 18/05/2008

Thông tin riêng
Thông tin tự bạch:

Bài gửiTiêu đề: Re: Giúp nhox với, khó wá à   13/6/2008, 11:27 am

o` za^.y đi!! hOk hỉu jì hít a'.......
Về Đầu Trang Go down
Xem lý lịch thành viên http://360.yahoo.com/profile-M6.Y6tUlbql7V3eH1qRzAAMekvAbNT9E2bh
nhoxkute
Thành viên tâm huyết
Thành viên tâm huyết
avatar

Nữ
Tổng số bài gửi : 258
Age : 25
Nghề nghiệp, trường lớp : THPT Mạc Đĩnh Chi
Sở thích : ăn, ngủ, onl
Thú nuôi :
Cảnh cáo :
0 / 1000 / 100

Registration date : 11/06/2008

Bài gửiTiêu đề: Re: Giúp nhox với, khó wá à   13/6/2008, 11:32 am

uhm, Duy là pro nhứt. Em nào mún giỏi pascal thì làm đệ tử Duy đi
Về Đầu Trang Go down
Xem lý lịch thành viên
k_u_t_3
Thành viên ưu tú
Thành viên ưu tú
avatar

Nữ
Tổng số bài gửi : 486
Age : 22
Nơi ở : nha* tu` Th3^ ky?
Nghề nghiệp, trường lớp : học sinh lớp 7T2
Sở thích : thix tham gia hoạt động đội, online, music.....(nhi`u lem')
Tâm trạng :
Thú nuôi :
Cảnh cáo :
0 / 1000 / 100

Registration date : 18/05/2008

Thông tin riêng
Thông tin tự bạch:

Bài gửiTiêu đề: Re: Giúp nhox với, khó wá à   13/6/2008, 1:14 pm

pascal lớp mấy mỚi hOc. za. chị...
Về Đầu Trang Go down
Xem lý lịch thành viên http://360.yahoo.com/profile-M6.Y6tUlbql7V3eH1qRzAAMekvAbNT9E2bh
nhoxkute
Thành viên tâm huyết
Thành viên tâm huyết
avatar

Nữ
Tổng số bài gửi : 258
Age : 25
Nghề nghiệp, trường lớp : THPT Mạc Đĩnh Chi
Sở thích : ăn, ngủ, onl
Thú nuôi :
Cảnh cáo :
0 / 1000 / 100

Registration date : 11/06/2008

Bài gửiTiêu đề: Re: Giúp nhox với, khó wá à   13/6/2008, 1:24 pm

nếu chị nhớ hem lầm thì lớp 8 đã có học òi
Về Đầu Trang Go down
Xem lý lịch thành viên
k_u_t_3
Thành viên ưu tú
Thành viên ưu tú
avatar

Nữ
Tổng số bài gửi : 486
Age : 22
Nơi ở : nha* tu` Th3^ ky?
Nghề nghiệp, trường lớp : học sinh lớp 7T2
Sở thích : thix tham gia hoạt động đội, online, music.....(nhi`u lem')
Tâm trạng :
Thú nuôi :
Cảnh cáo :
0 / 1000 / 100

Registration date : 18/05/2008

Thông tin riêng
Thông tin tự bạch:

Bài gửiTiêu đề: Re: Giúp nhox với, khó wá à   13/6/2008, 1:47 pm

zị là năm sau là em Học Oỳ!!
Về Đầu Trang Go down
Xem lý lịch thành viên http://360.yahoo.com/profile-M6.Y6tUlbql7V3eH1qRzAAMekvAbNT9E2bh
nhoxkute
Thành viên tâm huyết
Thành viên tâm huyết
avatar

Nữ
Tổng số bài gửi : 258
Age : 25
Nghề nghiệp, trường lớp : THPT Mạc Đĩnh Chi
Sở thích : ăn, ngủ, onl
Thú nuôi :
Cảnh cáo :
0 / 1000 / 100

Registration date : 11/06/2008

Bài gửiTiêu đề: Re: Giúp nhox với, khó wá à   13/6/2008, 1:51 pm

ráng học coh tốt, hme là lên 11 đuối lun đó
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: Giúp nhox với, khó wá à   

Về Đầu Trang Go down
 
Giúp nhox với, khó wá à
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 5 trangChuyển đến trang : 1, 2, 3, 4, 5  Next

Permissions in this forum:Bạn không có quyền trả lời bài viết
LAM SƠN :: Học tâp :: Tin Học :: Lập trình Pascal-
Chuyển đến