Follow us on...
Follow us on Twitter Follow us on Facebook Watch us on YouTube

Tuyển chuyên viên tin tức VN-Zoom 2014

Tìm HD - Phần mềm tìm và xem phim HD miễn phí

Hoãn tổ chức offline VN-Zoom 8 năm tại TP HCM

Chiêm ngưỡng BaoMoi đẹp "tuyệt diệu" trên Windows Phone

Tài trợ VNZ Siêu phẩm Tân Kiếm Thế chibi 3D mới

Tuyển BQT VN-Zoom
Trang 1/2 1 2 cuốicuối
kết quả từ 1 tới 15 trên 29
  1. #1
    gemini5156's Avatar
    gemini5156 vẫn chưa có mặt trong diễn đàn Búa Đá
    Tham gia
    Aug 2008
    Bài
    54
    Cảm ơn
    30
    Điểm
    4/2 bài viết
    VR power
    0

    Default giúp mình lập chương trình bài toán pascal lớp 11 này!!

    1. lập trình nhập từ bàn phím 3 số nguyên dương a, b, c đưa ra màn hình giá trị max trong 3 số ( dùng 2 câu lệnh if dạng thiếu )

    2. lập trình nhập từ bàn phím 3 số nguyên dương a, b, c sao cho chúng là 3 cạnh tam giác.
    Thanks!

  2. #2
    Rimocchino's Avatar
    Rimocchino vẫn chưa có mặt trong diễn đàn Búa Đá Đôi
    Tham gia
    Jul 2008
    Bài
    98
    Cảm ơn
    18
    Điểm
    25/21 bài viết
    VR power
    12

    Default

    mình ko được học pascal, đag học C++, viết bằng C++ được không ? bài 2 là sao vậy bạn nói rõ hơn đi

  3. #3
    Rimocchino's Avatar
    Rimocchino vẫn chưa có mặt trong diễn đàn Búa Đá Đôi
    Tham gia
    Jul 2008
    Bài
    98
    Cảm ơn
    18
    Điểm
    25/21 bài viết
    VR power
    12

    Default

    bài 1 theo C++ :
    #include "stdio.h"
    #include "conio.h"
    void main()
    {
    int a[50],n,i,max;
    clrscr();
    printf("Nhap so phan tu , n = ");scanf("%d",&n);
    for(i=1;i<=n;i++)
    printf("Nhap gia tri cua a[%d] =",i);scanf("%d",&a[i]);
    max=a[1];
    for(i=1;i<=n;i++)
    if (max<a[i])max = a[i];
    printf("Gia tri lon nhat = %d",max);
    getch();
    }
    (bài này bạn có thể nhập tối đa 50 phần tử chứ ko phải chỉ có 3 phần tử nữa)
    Thay đổi nội dung bởi Rimocchino; 10-12-2008 lúc 19:49.

  4. #4
    gemini5156's Avatar
    gemini5156 vẫn chưa có mặt trong diễn đàn Búa Đá
    Tham gia
    Aug 2008
    Bài
    54
    Cảm ơn
    30
    Điểm
    4/2 bài viết
    VR power
    0

    Default

    bạn nào có thể giúp mình giải trong pascal không?Mình không học nên không hiểu C++

  5. #5
    longthieugiacbg's Avatar
    longthieugiacbg vẫn chưa có mặt trong diễn đàn Rìu Vàng Đôi
    Tham gia
    Sep 2008
    Bài
    1.474
    Cảm ơn
    100
    Điểm
    2.863/722 bài viết
    VR power
    0

    Default

    Câu 1:
    Code:
    program xxx;
    var a,b,c:integer;
    begin
      write('Nhap gia tri ba so a,b,c: ');readln(a,b,c);
      if (a>b) and (a>c) then write('Gia tri lon nhat trong ba so da cho la: a=',a);
      if (b>c) and (b>a) then write('Gia tri lon nhat trong ba so da cho la: b=',b);
      if (c>b) and (c>a) then write('Gia tri lon nhat trong ba so da cho la: c=',c);
    readln;
    end.

  6. Có 1 thành viên cảm ơn longthieugiacbg cho bài viết này:
    chjcon_95 (18-11-2011)

  7. #6
    longthieugiacbg's Avatar
    longthieugiacbg vẫn chưa có mặt trong diễn đàn Rìu Vàng Đôi
    Tham gia
    Sep 2008
    Bài
    1.474
    Cảm ơn
    100
    Điểm
    2.863/722 bài viết
    VR power
    0

    Default

    Bài 2:
    Code:
    program xxx;
    var
    begin
      write('Nhap gia tri ba so nguyen a,b,c: ');readln(a,b,c);
      if (a+b>c) and (a+c>b) and (b+c>a) then 
        write('Ba so nguyen a,b,c la gia tri ba canh mot tam giac.')
      else write('Ba so nguyen a,b,c khong phai la gia tri ba canh mot tam giac.');
      readln;
    end.

  8. Có 1 thành viên cảm ơn longthieugiacbg cho bài viết này:
    chjcon_95 (18-11-2011)

  9. #7
    minhquang_ns's Avatar
    minhquang_ns vẫn chưa có mặt trong diễn đàn Rìu Vàng
    Tham gia
    Oct 2008
    Đến từ
    Hà Nội
    Bài
    728
    Cảm ơn
    513
    Điểm
    766/225 bài viết
    VR power
    0

    Default

    Toàn pro pascal.

  10. #8
    INET's Avatar
    INET vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    May 2008
    Bài
    227
    Cảm ơn
    21
    Điểm
    116/43 bài viết
    VR power
    0

    Default

    chán kinh không biết cha này có học pascal ko mà hỏi cái này tròy
    Học sinh mới học lập trình cũng có thể giải rồi
    nói thiệt chỉ cần dựa vào kiến thức toán học cũng có thể làm bài này nếu đã biết cấu trúc của 1 CT pascal
    Sorry mình ko cố ý xúc phạm đâu mà là thật đấy
    ĐT: (08) 66 7575 015 - Mobile: 0918 81 80 68
    Web đa dụng ưu việt hỗ trợ thiết kế kéo thả trực tuyến chỉ 1.500.000 VNĐ http://i.ibo.vn

  11. #9
    Rimocchino's Avatar
    Rimocchino vẫn chưa có mặt trong diễn đàn Búa Đá Đôi
    Tham gia
    Jul 2008
    Bài
    98
    Cảm ơn
    18
    Điểm
    25/21 bài viết
    VR power
    12

    Default

    đọc pascal cũng hiểu sơ sơ phần code thôi chứ phần khai báo khai biếc thì không hiểu

  12. #10
    INET's Avatar
    INET vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    May 2008
    Bài
    227
    Cảm ơn
    21
    Điểm
    116/43 bài viết
    VR power
    0

    Default

    THực ra pascal là ngôn ngữ rất dễ sử dụng
    các hàm, thủ tục... của nó rất gần gũi với con người
    VD: Viết ra một chuỗi thì có hàm Write Đọc 1 biến thì có hang read tất cả đều dựa trên từ ngữ latinh ma ra cả so với C thì nó dễ hơn nhiều. Nhưng cũng từ cái dễ đó mà nó trở thành khó vô cùng mà dường như không làm được trong lập trình hướng đối tượng hay kết nối và quản lý cơ sở dữ liệu cũng trở lên rất khó khăng
    ĐT: (08) 66 7575 015 - Mobile: 0918 81 80 68
    Web đa dụng ưu việt hỗ trợ thiết kế kéo thả trực tuyến chỉ 1.500.000 VNĐ http://i.ibo.vn

  13. #11
    cute chip's Avatar
    cute chip vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Nov 2009
    Bài
    2
    Cảm ơn
    0
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    các bác làm gì mà dài quá vậy
    để em giải quyết bài này cho:
    program timmax;
    var a,b,c,max : integer;
    begin
    write('nhap vao 3 so a,b,c'); readln(a,b,c);
    max:=a;
    if max<b then max:=b;
    if max<c then max:=c;
    writeln('so lon nhat la', max);
    readln;
    end.

    chỉ cần thế thui là ok cái chụt thui mà.
    ak quên còn bài kia thùy đúng rùi không cần chữa đâu ha.

    ---------- Bài viết đã được nhập tự động bởi hệ thống ----------

    mà các bác ơi giúp em bài này với khó lắm nha mời các bác pro vô help me! nha
    thùy mà là nó như thế này nài:
    nhập vào xâu S(a->z) in ra ký tự xuất hiện nhiều lần nhất trong xâu và số lần xuất hiện ? nếu có nhiều trường hợp thì in ra trường hợp đầu tiên.
    các bác hộ em chút nha
    thanks các bác cái chụt hé hjhjhj
    Thay đổi nội dung bởi cute chip; 03-11-2009 lúc 15:25. Lý do: Hệ thống nhập bài tự động

  14. #12
    littlelee's Avatar
    littlelee vẫn chưa có mặt trong diễn đàn Rìu Bạc
    Tham gia
    Jul 2009
    Đến từ
    Đà Nẵng
    Bài
    308
    Cảm ơn
    15
    Điểm
    47/39 bài viết
    VR power
    0

    Default

    Trích cute chip View Post
    mà các bác ơi giúp em bài này với khó lắm nha mời các bác pro vô help me! nha
    thùy mà là nó như thế này nài:
    nhập vào xâu S(a->z) in ra ký tự xuất hiện nhiều lần nhất trong xâu và số lần xuất hiện ? nếu có nhiều trường hợp thì in ra trường hợp đầu tiên.
    các bác hộ em chút nha
    thanks các bác cái chụt hé hjhjhj
    Program ki_tu;
    uses crt;
    var s:string; x,kitu:char; i,max,dem:integer;
    begin
    clrscr;
    write('nhap cao mot chuoi: ');readln(s);
    max:=0;
    for x:='a' to 'z' do
    begin
    for i:=1 to length(s) do
    if s[i]=x then inc(dem);
    if max<dem then begin max:=dem; kitu:=x; end;
    end;
    write('ki tu ',kitu,' co so lan xuat hien nhieu nhat va xuat hien ',max,' lan.');
    readln;
    end.

    Vì bạn chỉ yêu cầu từ 'a'->'z' nên mình chỉ làm thế thôi, nếu thích thì tự thêm từ "A"->"Z" vào, dựa vào chỗ tô xanh ý, thay thế nó và copy phần thân nó qua. bài này ko khó đâu bạn à. Mình làm theo cách dễ hiểu nhưng thực ra nó chưa tối ưu đâu, có cách mà chương trình chạy nhanh hơn (theo lý thuyết, chứ thật ra theo thực nghiệm thì cả hai đều chạy dưới 1s cả).

  15. #13
    don't let go's Avatar
    don't let go vẫn chưa có mặt trong diễn đàn Thành viên đang bị kỷ luật
    Tham gia
    Sep 2009
    Bài
    204
    Cảm ơn
    42
    Điểm
    129/61 bài viết
    VR power
    0

    Default

    Trích INET View Post
    THực ra pascal là ngôn ngữ rất dễ sử dụng
    các hàm, thủ tục... của nó rất gần gũi với con người
    VD: Viết ra một chuỗi thì có hàm Write Đọc 1 biến thì có hang read tất cả đều dựa trên từ ngữ latinh ma ra cả so với C thì nó dễ hơn nhiều. Nhưng cũng từ cái dễ đó mà nó trở thành khó vô cùng mà dường như không làm được trong lập trình hướng đối tượng hay kết nối và quản lý cơ sở dữ liệu cũng trở lên rất khó khăng
    ak.không biết bạn pờ rồ đến mức độ nào mà nói thế được nhỉ , tất nhiên pascal chỉ có mấy lệnh thôi ( đọc vài ngày là hết lệnh pascal) nhưng giải được một số bài pascal thì thật không dễ quan trọng chúng ta phải biết giải thuật sau đó mới cài đặt , có những bài đã biết giải thuật nhưng cài đặt chỉ dựa trên những lệnh ấy cũng rất khó khăn , pascal tuy không được ứng dụng nhiều nhưng cũng là một ngôn ngữ rất cơ bản , tôi trước có được học nhiều về pascal sau học C++ rất dễ dang hơn rất nhiều

  16. #14
    ngunhudog's Avatar
    ngunhudog vẫn chưa có mặt trong diễn đàn Thành viên đang bị kỷ luật
    Tham gia
    Mar 2009
    Bài
    67
    Cảm ơn
    11
    Điểm
    4/3 bài viết
    VR power
    0

    Default

    Pascal mà có mấy lệnh , mời đại ca học qua unit DOS xem có sảng khoái không ? Mấy cha tính toán quen rồi nên không chịu đi sâu vào pascal , can thiệp window rất là ngon

  17. #15
    franking2002's Avatar
    franking2002 vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Oct 2009
    Bài
    8
    Cảm ơn
    2
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    giup minh bai nay voi minh ko hieu cai de luon:
    su dung dong lap while viet truong trinh in ra man hinh cac gia tri tu 1 - 100
    thanks nha

 

 
Trang 1/2 1 2 cuốicuối

Quyền sử dụng

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể tự sửa bài viết của mình
  •