1. Kết quả Event Ghost 2016


    Dưới đây là danh sách những thành viên đoạt giải thưởng trong Event Ghost 2016

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

    mrmisstyholow Member Mới

    3
    0
    1
  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

    667
    334
    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