1. Hãy ủng hộ PhienBanMoi.Com bằng cách LIKE trang FANPAGE , GOOGLE+ dưới mỗi bài viết hoặc chia sẻ website nếu thấy hữu ích. Trân trọng cảm ơn!
  2. [Thông Báo] Tuyển thành viên viết bài KIẾM TIỀN trên PhienBanMoi.Com


    Nhằm mục đích phát triển Phienbanmoi.com hơn nữa, có thêm các bài viết thông tin thực sự hữu ích từ những thành viên tích cực. BQT đã quyến định tạo ra cơ hội kiếm tiền từ các bài viết được đăng tải và chia sẻ trên diễn đàn

Giúp đỡ bài tập pascal

Thảo luận trong 'Pascal, C , C++' bắt đầu bởi mrmisstyholow, 6 Tháng mười 2014.

  1. mrmisstyholow Member Mới

    3
    0
    1

    Lượt xem: 765


  2. khatmautm

    khatmautm Member Mới

    1
    0
    1
    input từ bàn phím 5 số đó vào gán vào các biến a[1]->a[5]. SAu đó cho vòng for so sánh từng số vs các số còn lại. thêm 1 biến trung gian temp=0. Biến này tăng temp++ khi số so sánh > lớn hơn 1 số còn lại. Cuối cùng kiểm tra temp == 1 thì nó là số lớn thứ 2/
    Mình k nhớ pascal lắm.

    int temp=0;
    for (i=1;i<=5;i++){
    for ( j =1; j<=5; j++){
    if a<a[j] {
    temp++;
    }
    if temp==1 {
    printf(a);
    break;
    }
    }
    cơ bản ý mình là như vậy, viết theo C thì phải, lâu chả code, bạn xem r chuyển sang pascal
     
  3. lll_C7G_lll

    lll_C7G_lll ♥→ Milker ←♥

    304
    75
    28
    Tên thật:
    Trần Công
    Bài này quá cơ bản mà
    Mã:
    var
     a:array[1..5] of longint;
     i,j:longint;
    begin
     readln(a[1],a[2],a[3],a[4],a[5]);
     for i:=1 to 4 do
      for j:=i+1 to 5 do
       if a[i]>a[j] then 
       begin
        tmp:=a[i];
        a[i]:=a[j];
        a[j]:=tmp;
        end;
     writeln(a[2]);
     readln;
    end.
    
     
  4. danggg

    danggg Member Chính Thức

    19
    2
    3
    biến tmp ở đây đã khai báo đâu bác... e chạy thử nó báo lối
     
  5. MaterSystem

    MaterSystem Member Danh Tiếng

    726
    370
    63
    Bạn chỉ cần khai báo thêm thôi là được
    Biến i,,j bạn trên khai báo sang quá để kiểu longint

    i, ,j: byte;
    temp: longint;

    Hồi học pascal cấp II, nhớ nhất là lệnh này : CLRSCR (Có Lạc Rang Sẽ Có Rượu):cry:
     
  6. lll_C7G_lll

    lll_C7G_lll ♥→ Milker ←♥

    304
    75
    28
    Tên thật:
    Trần Công
    :D Free Pascal nó là Free mà bạn cứ khai báo Longint cho đẹp
     

Chia sẻ trang này