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

Smartphone WIKO của Pháp chính thức xuất hiện tại Việt Nam

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

Cuộc thi khoảnh khắc tuyệt vời cùng Vn-Zoom.com

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

Tuyển thành viên nhóm Reviews diễn đàn

VN-Zoom & ASUS đón siêu phẩm,tăng tốc chuẩn bị ASUS Expo 2014
Trang 101/129 đầuđầu ... 51 91 99 100 101 102 103 111 ... cuốicuối
kết quả từ 1.501 tới 1.515 trên 1933
  1. #1501
    Blu3_Svic's Avatar
    Blu3_Svic vẫn chưa có mặt trong diễn đàn ♪ Hey..! Live to Live ♪
    Tham gia
    May 2011
    Đến từ
    The Sky
    Bài
    1.485
    Cảm ơn
    237
    Điểm
    4.754/681 bài viết
    VR power
    0

    Default

    Mấy bạn giúp mình làm mấy bài này với

    1/ Lập trình nhập từ bàn phím 3 số nguyên a,b,c đưa ra màn hình giá trị nhỏ nhất lớn nhất của 3 số đó

    2/ Lập trình nhập từ bàn phím 3 số nguyên m,n,k. Tính và đưa ra màn hình bình phương các số không âm và lập phương của các số âm

    3/ Lập trình nhập từ bàn phím 2 số nguyên N và k. Kiểm tra xem N có là bội số của k không, thong báo kết quả ra màn hình

    4/Lập trình từ bàn phím Điểm TB(ĐTB), rồi thực hiện :
    ĐTB > 8 thì xuất “giỏi”
    ĐTB 6.5< ĐTB< 8 thì xuất “khá”
    ĐTB 5< ĐTB<6.5 thì xuất “TB”
    ĐTB < 5 thì xuất “YẾu”

    5/Lập trình nhập 1 tháng cho biết tháng đó là mùa nào, biết:
    Tháng 2,3,4 là mùa xuân
    Tháng 5,6,7 là mùa hạ
    Tháng 8,9,10 là mùa thu
    Tháng 11,12,1 là mùa đông

    6/Lập trình nhập số KW điện tiêu thụ của một gia đình. Hãy tính tiền điện phải trả, biết rằng:
    50 kw đầu có giá là 500đ, từ kw 51 trở lên giá 800đ

    7/Hãy đưa ra các số chẵn không chia hết cho 3 trong [1,100]

    8/Lập trình: tìm và in lên màn hình tất cả các số nguyên trong phạm vi từ 10 đến 99 sao cho tích của hai chữ số bằng hai lần tổng của hai chữ số của nó
    VD: số N = 36 có 3*6=2* (3+6)

  2. #1502
    btn1995's Avatar
    btn1995 vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    Feb 2011
    Đến từ
    Đà Nẵng
    Bài
    292
    Cảm ơn
    217
    Điểm
    139/101 bài viết
    VR power
    0

    Default

    Trích Blu3_Svic View Post
    Mấy bạn giúp mình làm mấy bài này với

    1/ Lập trình nhập từ bàn phím 3 số nguyên a,b,c đưa ra màn hình giá trị nhỏ nhất lớn nhất của 3 số đó

    2/ Lập trình nhập từ bàn phím 3 số nguyên m,n,k. Tính và đưa ra màn hình bình phương các số không âm và lập phương của các số âm

    3/ Lập trình nhập từ bàn phím 2 số nguyên N và k. Kiểm tra xem N có là bội số của k không, thong báo kết quả ra màn hình

    4/Lập trình từ bàn phím Điểm TB(ĐTB), rồi thực hiện :
    ĐTB > 8 thì xuất “giỏi”
    ĐTB 6.5< ĐTB< 8 thì xuất “khá”
    ĐTB 5< ĐTB<6.5 thì xuất “TB”
    ĐTB < 5 thì xuất “YẾu”

    5/Lập trình nhập 1 tháng cho biết tháng đó là mùa nào, biết:
    Tháng 2,3,4 là mùa xuân
    Tháng 5,6,7 là mùa hạ
    Tháng 8,9,10 là mùa thu
    Tháng 11,12,1 là mùa đông

    6/Lập trình nhập số KW điện tiêu thụ của một gia đình. Hãy tính tiền điện phải trả, biết rằng:
    50 kw đầu có giá là 500đ, từ kw 51 trở lên giá 800đ

    7/Hãy đưa ra các số chẵn không chia hết cho 3 trong [1,100]

    8/Lập trình: tìm và in lên màn hình tất cả các số nguyên trong phạm vi từ 10 đến 99 sao cho tích của hai chữ số bằng hai lần tổng của hai chữ số của nó
    VD: số N = 36 có 3*6=2* (3+6)
    1/
    Code:
    var a,b,c,m: integer;
    begin
     write('nhap a,b,c: '); readln(a,b,c);
     If a>b then m:=a else m:=b;
     If c>m then write('so lon nhat la: ',c)
     else write('so lon nhat la: ',m);
     readln;
    end.
    2/
    Code:
    var m,n,k: integer;
    begin
     Write('nhap m, n, k: '); Readln(m,n,k);
     If m>=0 then write('Binh phuong m: ',m*m) else write('lap phuong m: ',m*m*m);
     If n>=0 then write('Binh phuong n: ',n*n) else write('lap phuong n: ',n*n*n);
     If k>=0 then write('binh phuong k: ',k*k) else write('lap phuong k: ',k*k*k);
    readln
    end.
    3/
    Code:
    var n,k: integer;
    begin
     write('nhap n,k: '); readln(n,k);
     if n<k then write('n k phai la noi cua k')
      else 
        begin
            If n mod k=0 then write(n,' la boi cua ',k)
             else write(n,' k la boi cua ',k);
        end;
    readln
    end.
    4/
    Code:
    var dtb: integer;
    begin
     write('nhap dtb: '); readln(dtb);
     If dtb>=8 then write('gioi')
      else 
        begin
           If dtb>= 6.5 then write('kha')
              else
                 begin
                    If dtb>=5 then write('trung binh')
                       else write('yeu');
                 end;
        end;
    readln;
    end.
    Mấy cái sau bạn làm tương tự nha có gì thắc mắc cứ hỏi.
    Thay đổi nội dung bởi btn1995; 30-11-2011 lúc 20:20.
    I have a dream^^

  3. Có 2 thành viên cảm ơn btn1995 cho bài viết này:
    Blu3_Svic (30-11-2011), thuannguyen_pro (03-02-2012)

  4. #1503
    auauau97's Avatar
    auauau97 vẫn chưa có mặt trong diễn đàn Rìu Chiến Vàng
    Tham gia
    Jun 2010
    Đến từ
    Hà Nội
    Bài
    6.652
    Cảm ơn
    11.931
    Điểm
    5.258/3.016 bài viết
    VR power
    0

    Default

    Trích Blu3_Svic View Post
    Mấy bạn giúp mình làm mấy bài này với

    1/ Lập trình nhập từ bàn phím 3 số nguyên a,b,c đưa ra màn hình giá trị nhỏ nhất lớn nhất của 3 số đó

    2/ Lập trình nhập từ bàn phím 3 số nguyên m,n,k. Tính và đưa ra màn hình bình phương các số không âm và lập phương của các số âm

    3/ Lập trình nhập từ bàn phím 2 số nguyên N và k. Kiểm tra xem N có là bội số của k không, thong báo kết quả ra màn hình

    4/Lập trình từ bàn phím Điểm TB(ĐTB), rồi thực hiện :
    ĐTB > 8 thì xuất “giỏi”
    ĐTB 6.5< ĐTB< 8 thì xuất “khá”
    ĐTB 5< ĐTB<6.5 thì xuất “TB”
    ĐTB < 5 thì xuất “YẾu”

    5/Lập trình nhập 1 tháng cho biết tháng đó là mùa nào, biết:
    Tháng 2,3,4 là mùa xuân
    Tháng 5,6,7 là mùa hạ
    Tháng 8,9,10 là mùa thu
    Tháng 11,12,1 là mùa đông

    6/Lập trình nhập số KW điện tiêu thụ của một gia đình. Hãy tính tiền điện phải trả, biết rằng:
    50 kw đầu có giá là 500đ, từ kw 51 trở lên giá 800đ

    7/Hãy đưa ra các số chẵn không chia hết cho 3 trong [1,100]

    8/Lập trình: tìm và in lên màn hình tất cả các số nguyên trong phạm vi từ 10 đến 99 sao cho tích của hai chữ số bằng hai lần tổng của hai chữ số của nó
    VD: số N = 36 có 3*6=2* (3+6)
    bài 1:
    Code:
    Uses crt;
    Var
      a,b,c,min,max:longint;
    BEGIN
      Clrscr; 
      Write('Nhap 3 so:');
      Readln(a,b,c);
      min:=a; max:=a;
      If b<min then min:=b;
      If c<min then min:=c;
      If b>max then max:=b;
      If b>max then max:=b;
      Writeln('So max:',max);
      Writeln('So min:',min);
      Readln;
    END.
    Nothing is true, everything is permitted

  5. Có 1 thành viên cảm ơn auauau97 cho bài viết này:
    Blu3_Svic (30-11-2011)

  6. #1504
    Blu3_Svic's Avatar
    Blu3_Svic vẫn chưa có mặt trong diễn đàn ♪ Hey..! Live to Live ♪
    Tham gia
    May 2011
    Đến từ
    The Sky
    Bài
    1.485
    Cảm ơn
    237
    Điểm
    4.754/681 bài viết
    VR power
    0

    Default

    Thanks bạn nhìu nhá...............!!!!
    Còn 7,8 nà làm thử mình so kq


    7/Hãy đưa ra các số chẵn không chia hết cho 3 trong [1,100]

    8/Lập trình: tìm và in lên màn hình tất cả các số nguyên trong phạm vi từ 10 đến 99 sao cho tích của hai chữ số bằng hai lần tổng của hai chữ số của nó
    VD: số N = 36 có 3*6=2* (3+6)
    Thay đổi nội dung bởi Blu3_Svic; 30-11-2011 lúc 21:04.

  7. #1505
    thecuong064's Avatar
    thecuong064 vẫn chưa có mặt trong diễn đàn Rìu Vàng
    Tham gia
    Jun 2011
    Đến từ
    Hacker's Home
    Bài
    936
    Cảm ơn
    133
    Điểm
    415/259 bài viết
    VR power
    0

    Default

    Trích Blu3_Svic View Post
    Thanks bạn nhìu nhá...............!!!!
    Còn 7,8 nà làm thử mình so kq


    7/Hãy đưa ra các số chẵn không chia hết cho 3 trong [1,100]

    8/Lập trình: tìm và in lên màn hình tất cả các số nguyên trong phạm vi từ 10 đến 99 sao cho tích của hai chữ số bằng hai lần tổng của hai chữ số của nó
    VD: số N = 36 có 3*6=2* (3+6)
    Bài 7
    Code:
    USES crt;
    VAR n:INTEGER;
    BEGIN
    write('Cac so chan: ');
    FOR n:= 1 TO 100 DO
    BEGIN
    IF  (n MOD 2 = 0) AND (n MOD 3 <> 0) THEN
    write(n:5);
    END;
    readln;
    END.

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

  9. #1506
    Blu3_Svic's Avatar
    Blu3_Svic vẫn chưa có mặt trong diễn đàn ♪ Hey..! Live to Live ♪
    Tham gia
    May 2011
    Đến từ
    The Sky
    Bài
    1.485
    Cảm ơn
    237
    Điểm
    4.754/681 bài viết
    VR power
    0

    Default

    Trích thecuong064 View Post
    Bài 7
    Code:
    USES crt;
    VAR n:INTEGER;
    BEGIN
    write('Cac so chan: ');
    FOR n:= 1 TO 100 DO
    BEGIN
    IF  (n MOD 2 = 0) AND (n MOD 3 <> 0) THEN
    write(n:5);
    END;
    readln;
    END.

    Giúp mình bài 8 luôn đi bạn

  10. #1507
    btn1995's Avatar
    btn1995 vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    Feb 2011
    Đến từ
    Đà Nẵng
    Bài
    292
    Cảm ơn
    217
    Điểm
    139/101 bài viết
    VR power
    0

    Default

    Trích Blu3_Svic View Post
    Giúp mình bài 8 luôn đi bạn
    Code:
    var a,b,n: integer;
    begin
    
     For n:=10 to 99 do
       begin
       For a:=1 to 9 do
       begin
       b:=n-10*a;
       If a*b=2*(a+b) then write(n,' ');
       end;
      end;
     readln;
    end.
    I have a dream^^

  11. Có 1 thành viên cảm ơn btn1995 cho bài viết này:
    auauau97 (01-12-2011)

  12. #1508
    snowangle987's Avatar
    snowangle987 vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Jun 2008
    Đến từ
    Hà Nội
    Bài
    493
    Cảm ơn
    319
    Điểm
    81/63 bài viết
    VR power
    0

    Default

    các bạn giúp mình 2 bài tập này với mình đang cần gấp

    Xin chân thành cảm ơn !!

    ---------- Bài thêm lúc 22:29 ---------- Bài trước là lúc 22:21 ----------

    Trích snowangle987 View Post
    các bạn giúp mình 2 bài tập này với mình đang cần gấp

    Xin chân thành cảm ơn !!
    ai làm ơn giúp mình với !
    Thay đổi nội dung bởi snowangle987; 30-11-2011 lúc 22:28.

  13. #1509
    janary003's Avatar
    janary003 vẫn chưa có mặt trong diễn đàn Búa Đá
    Tham gia
    Jul 2008
    Bài
    45
    Cảm ơn
    15
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    giúp mình viết thuật toán số tự nhiên chẵn chia hết cho 3 :
    mình viết như thế này If n mod 2 =0 and n mod 3=0 then write(n) nó cứ báo lỗi
    2. nhập vào dãy số nguyên sắp xếp theo nguyên tắc sau các phần tử chẵn đứng đầu các phần tử lẻ đứng sau. dùng mảng 1 chiều
    thank nhiều

  14. #1510
    thanhvn006's Avatar
    thanhvn006 vẫn chưa có mặt trong diễn đàn Búa Gỗ Đôi
    Tham gia
    Sep 2011
    Bài
    32
    Cảm ơn
    2
    Điểm
    3/3 bài viết
    VR power
    0

    Default

    UNIT Sohoc;

    INTERFACE

    USES crt,sysutils;
    PROCEDURE ptbacnhat;
    PROCEDURE ptbachai;
    PROCEDURE TimMaxMin;
    PROCEDURE TimUCLN_BCNN;
    PROCEDURE check_nt;
    PROCEDURE check_hoanthien;
    PROCEDURE doinhiphan;
    PROCEDURE bangcuuchuong;

    {------------------------------------}

    IMPLEMENTATION

    PROCEDURE ptbacnhat;
    VAR a,b:INTEGER; x:REAL;
    BEGIN
    write('Nhap vao a,b: '); readln(a,b);
    x:=-b/a;
    write('X = ',x:0:2);
    END;

    (************************************************* *******************)

    PROCEDURE ptbachai;
    VAR a,b,c,delta:INTEGER;x1,x2:REAL;
    BEGIN
    write('Nhap vao a,b,c: '); readln(a,b,c);
    delta:=sqr(b)-4*a*c;
    IF delta < 0 THEN writeln('Phuong trinh vo nghiem ! ')
    ELSE IF delta = 0 THEN BEGIN X1:=-b/(2*a); write('X1 = X2 = ',x1) END
    ELSE IF delta > 0 THEN
    BEGIN
    x1:=(-b + sqrt(delta))/(2*a);
    x2:=(-b - sqrt(delta))/(2*a);
    {hoac x2:= -b/a - x1}
    writeln('X1 = ',x1:0:2);
    writeln('X2 = ',x2:0:2);
    END;
    END;

    (************************************************* *****************)

    PROCEDURE TimMaxMin;
    VAR Max,Min,a,b:INTEGER;
    BEGIN
    write('Nhap a,b: '); readln(a,b);
    Max:=A; Min:=A;
    IF max < b THEN max:=b;
    IF min > b THEN min:=b;
    writeln('So lon la ',max);
    writeln('So nho la ',min);
    END;

    (************************************************* *****************)

    PROCEDURE TimUCLN_BCNN;
    VAR ucln,bcnn:REAL;a,b:INTEGER;


    FUNCTION Tim_UCLN(x,y:INTEGER):REAL;
    VAR tam:INTEGER;
    BEGIN
    WHILE y <> 0 DO
    BEGIN
    tam:=x MOD y;
    x:=y;
    y:= tam;
    END;
    Tim_UCLN:=x;
    END;

    BEGIN
    write('Nhap vao a,b: '); readln(a,b);
    ucln:=Tim_UCLN(a,b);
    writeln('UCLN = ',ucln:0:0);
    bcnn:=a*b/ucln;
    writeln('BCNN = ',bcnn:0:0);
    END;

    (************************************************* *****************)

    PROCEDURE check_nt;
    VAR n:INTEGER;


    FUNCTION kiemtra(x:INTEGER):BOOLEAN;
    VAR i:INTEGER;
    BEGIN
    kiemtra:=TRUE;
    FOR i:=2 TO x-1 DO
    IF x MOD i = 0 THEN kiemtra:=FALSE;
    END;

    BEGIN
    write('Nhap n = '); readln(n);
    IF kiemtra(n) THEN write(n,' la so nguyen to !')
    ELSE write(n,' khong phai so nguyen to!');
    END;

    (************************************************* *****************)

    PROCEDURE check_hoanthien;
    VAR n:INTEGER;

    FUNCTION kiemtra(x:INTEGER):BOOLEAN;
    VAR i,tam:INTEGER;
    BEGIN
    tam:=0; kiemtra:=FALSE;
    FOR i:=1 TO x DIV 2 DO
    IF x MOD i = 0 THEN tam:=tam+i;
    IF tam = x THEN kiemtra:=TRUE;
    END;

    BEGIN
    write('Nhap n = '); readln(n);
    IF kiemtra(n) THEN writeln(n,' la so hoan thien! ')
    ELSE
    write(n,' khong phai so hoan thien!');
    END;

    (************************************************* *****************)

    PROCEDURE doinhiphan;
    VAR
    He10,N,Y:WORD;
    He2,Tam:STRING;
    BEGIN
    Write('Nhap so nguyen he thap phan: ');
    Readln(He10);
    N:=He10;
    He2:=' ';
    REPEAT
    Y:=He10 MOD 2;
    Str(Y, Tam);
    He2:=Tam + He2;
    He10:= He10 DIV 2;
    UNTIL He10 = 0;
    Writeln('He nhi phan: ',He2);
    END;

    (************************************************* *****************)

    PROCEDURE bangcuuchuong;
    VAR x,i:INTEGER;
    BEGIN
    writeln('Nhap x = '); readln(x);
    writeln('Bang nhan ',x,' : ');
    FOR i:=1 TO 10 DO
    writeln(x,' X ', i, ' = ',x*i);
    END;

    END.
    Ai viết hộ mình chương trình Unit SOHOC để chay chương trình này vs
    Ko Like đấm phát chết luôn

  15. #1511
    thanhliem2008's Avatar
    thanhliem2008 vẫn chưa có mặt trong diễn đàn Búa Đá
    Tham gia
    Oct 2011
    Bài
    39
    Cảm ơn
    8
    Điểm
    22/19 bài viết
    VR power
    0

    Default Góp Ý

    Trích btn1995 View Post
    Code:
    var a,b,n: integer;
    begin
    
     For n:=10 to 99 do
       begin
       For a:=1 to 9 do
       begin
       b:=n-10*a;
       If a*b=2*(a+b) then write(n,' ');
       end;
      end;
     readln;
    end.
    Bài này bạn in ra kết quả mình thấy chưa đúng lắm . Nó thiếu con số 18
    18 = 2(1+8)
    Mong bạn kiểm tra lại nhé .

  16. #1512
    daiminh01's Avatar
    daiminh01 vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    May 2008
    Bài
    6
    Cảm ơn
    0
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    Viết các hàm đệ quy để tính:
    S1 = 1+2 +3+......+n ;
    S2 = 1+1/2 + .....+ 1/n ;
    S¬3 = 1-1/2 +......+ (-1)n+1 1/n
    S4 = 1 + sin(x) + sin2(x) + ......+ sinn (x)

    B2. : Viết chương trình nhập vào 2 dãy số nguyên ( a )n và (b)m, m<=n. Kiểm tra xem dãy {b} có phải là dãy con của dãy {a} không?

    B3: : Viết chương trình nhập vào một dãy số nguyên a1, a2, ..., an. Tìm trong dãy {a} một dãy con tăng dần dài nhất (có số phần tử lớn nhất) và in ra màn hình dãy con đó.
    giup minh di ma,dang mai ma chua co ai lam ca,chieu nay minh phai nop cho co giao

  17. #1513
    lamtiendn's Avatar
    lamtiendn vẫn chưa có mặt trong diễn đàn Búa Đá Đôi
    Tham gia
    May 2011
    Bài
    85
    Cảm ơn
    2
    Điểm
    3/3 bài viết
    VR power
    0

    Default

    Cho 1 ma trận dưới các số nguyên cấp m.n, tìm trong ma trận các số nguyên tố. Dữ liệu đọc từ file text có tên MATRAN.INP có cấu trúc: dòng đầu chứ 2 số mn (số hang và số cột của ma trận). M dòng sau, mỗi dòng chứ n số nguyên là ma trận được cho. Kết quả: ghi vào file text có tên MATRAN.OUT gồm có nhiều dòng, mỗi dòng là 1 số nguyên tố có mặt trong ma trận.
    VD: MATRAN.INP
    2 3
    4 5 2
    3 6 9
    MATRAN.OUT
    2
    5
    3

  18. #1514
    thecuong064's Avatar
    thecuong064 vẫn chưa có mặt trong diễn đàn Rìu Vàng
    Tham gia
    Jun 2011
    Đến từ
    Hacker's Home
    Bài
    936
    Cảm ơn
    133
    Điểm
    415/259 bài viết
    VR power
    0

    Default

    Trích thanhvn006 View Post
    UNIT Sohoc;

    INTERFACE

    USES crt,sysutils;
    PROCEDURE ptbacnhat;
    PROCEDURE ptbachai;
    PROCEDURE TimMaxMin;
    PROCEDURE TimUCLN_BCNN;
    PROCEDURE check_nt;
    PROCEDURE check_hoanthien;
    PROCEDURE doinhiphan;
    PROCEDURE bangcuuchuong;

    {------------------------------------}

    IMPLEMENTATION

    PROCEDURE ptbacnhat;
    VAR a,b:INTEGER; x:REAL;
    BEGIN
    write('Nhap vao a,b: '); readln(a,b);
    x:=-b/a;
    write('X = ',x:0:2);
    END;

    (************************************************* *******************)

    PROCEDURE ptbachai;
    VAR a,b,c,delta:INTEGER;x1,x2:REAL;
    BEGIN
    write('Nhap vao a,b,c: '); readln(a,b,c);
    delta:=sqr(b)-4*a*c;
    IF delta < 0 THEN writeln('Phuong trinh vo nghiem ! ')
    ELSE IF delta = 0 THEN BEGIN X1:=-b/(2*a); write('X1 = X2 = ',x1) END
    ELSE IF delta > 0 THEN
    BEGIN
    x1:=(-b + sqrt(delta))/(2*a);
    x2:=(-b - sqrt(delta))/(2*a);
    {hoac x2:= -b/a - x1}
    writeln('X1 = ',x1:0:2);
    writeln('X2 = ',x2:0:2);
    END;
    END;

    (************************************************* *****************)

    PROCEDURE TimMaxMin;
    VAR Max,Min,a,b:INTEGER;
    BEGIN
    write('Nhap a,b: '); readln(a,b);
    Max:=A; Min:=A;
    IF max < b THEN max:=b;
    IF min > b THEN min:=b;
    writeln('So lon la ',max);
    writeln('So nho la ',min);
    END;

    (************************************************* *****************)

    PROCEDURE TimUCLN_BCNN;
    VAR ucln,bcnn:REAL;a,b:INTEGER;


    FUNCTION Tim_UCLN(x,y:INTEGER):REAL;
    VAR tam:INTEGER;
    BEGIN
    WHILE y <> 0 DO
    BEGIN
    tam:=x MOD y;
    x:=y;
    y:= tam;
    END;
    Tim_UCLN:=x;
    END;

    BEGIN
    write('Nhap vao a,b: '); readln(a,b);
    ucln:=Tim_UCLN(a,b);
    writeln('UCLN = ',ucln:0:0);
    bcnn:=a*b/ucln;
    writeln('BCNN = ',bcnn:0:0);
    END;

    (************************************************* *****************)

    PROCEDURE check_nt;
    VAR n:INTEGER;


    FUNCTION kiemtra(x:INTEGER):BOOLEAN;
    VAR i:INTEGER;
    BEGIN
    kiemtra:=TRUE;
    FOR i:=2 TO x-1 DO
    IF x MOD i = 0 THEN kiemtra:=FALSE;
    END;

    BEGIN
    write('Nhap n = '); readln(n);
    IF kiemtra(n) THEN write(n,' la so nguyen to !')
    ELSE write(n,' khong phai so nguyen to!');
    END;

    (************************************************* *****************)

    PROCEDURE check_hoanthien;
    VAR n:INTEGER;

    FUNCTION kiemtra(x:INTEGER):BOOLEAN;
    VAR i,tam:INTEGER;
    BEGIN
    tam:=0; kiemtra:=FALSE;
    FOR i:=1 TO x DIV 2 DO
    IF x MOD i = 0 THEN tam:=tam+i;
    IF tam = x THEN kiemtra:=TRUE;
    END;

    BEGIN
    write('Nhap n = '); readln(n);
    IF kiemtra(n) THEN writeln(n,' la so hoan thien! ')
    ELSE
    write(n,' khong phai so hoan thien!');
    END;

    (************************************************* *****************)

    PROCEDURE doinhiphan;
    VAR
    He10,N,Y:WORD;
    He2,Tam:STRING;
    BEGIN
    Write('Nhap so nguyen he thap phan: ');
    Readln(He10);
    N:=He10;
    He2:=' ';
    REPEAT
    Y:=He10 MOD 2;
    Str(Y, Tam);
    He2:=Tam + He2;
    He10:= He10 DIV 2;
    UNTIL He10 = 0;
    Writeln('He nhi phan: ',He2);
    END;

    (************************************************* *****************)

    PROCEDURE bangcuuchuong;
    VAR x,i:INTEGER;
    BEGIN
    writeln('Nhap x = '); readln(x);
    writeln('Bang nhan ',x,' : ');
    FOR i:=1 TO 10 DO
    writeln(x,' X ', i, ' = ',x*i);
    END;

    END.

    Ai viết hộ mình chương trình Unit SOHOC để chay chương trình này vs
    Đó là unit số học mà (Unit không chạy được).Cho bài vào ô code bạn nhé
    Còn chương trình để chạy thì đây
    Code:
    PROGRAM CT_SO_HOC;
    USES crt,sohoc;
    VAR ch1,ch2:CHAR;
    BEGIN
            clrscr;
            writeln('***********************************************************');
            writeln('*                                                         *');
            writeln('*             CHUONG TRINH TINH TOAN SO HOC               *');
            writeln('*                                                         *');
            writeln('***********************************************************');
            writeln('Nhan phim M de hien Menu, Nhan phim E de tat ');
            readln(ch1);
            CASE ch1 OF
            'M','m':
            BEGIN
                    clrscr;
                    writeln('***********************************************************');
                    writeln('*                                                         *');
                    writeln('*             CHUONG TRINH TINH TOAN SO HOC               *');
                    writeln('*                                                         *');
                    writeln('***********************************************************');
                    writeln();
                    writeln('***********************************************************');
                    writeln('*                                                         *');
                    writeln('*                 MENU CUA CHUONG TRINH:                  *');
                    writeln('*                                                         *');
                    writeln('*   ..1..Giai phuong trinh bac nhat                       *');
                    writeln('*   ..2..Giai phuong trinh bac hai                        *');
                    writeln('*   ..3..Tim Max/Min cua hai so a,b                       *');
                    writeln('*   ..4..Tim UCLN va BCNN cua hai so a,b                  *');
                    writeln('*   ..5..Kiem tra "n" co phai la so nguyen to hay khong   *');
                    writeln('*   ..6..Kiem tra "n" co phai la so hoan thien hay khong  *');
                    writeln('*   ..7..Doi mot so nguyen duong n sang he nhi phan       *');
                    writeln('*   ..8..In ra bang cuu chuong "x"                        *');
                    writeln('*   ..9..Exit                                             *');
                    writeln('*                                                         *');
                    writeln('***********************************************************');
                    readln(ch2);
                    CASE ch2 OF
                    '1':
                            BEGIN
                                    writeln('Giai phuong trinh bac nhat mot an dang ax + b = 0 ');
                                    ptbacnhat;
                            END;
                    '2':
                            BEGIN
                                    writeln('Giai phuong trinh bac hai mot an dang ax',#253,'+ bx + c = 0 ');
                                    ptbachai;
                            END;
                    '3':    TimMaxMin;
                    '4':    TimUCLN_BCNN;
                    '5':    check_nt;
                    '6':    check_hoanthien;
                    '7':    doinhiphan;
                    '8':    bangcuuchuong;
                    '9':    exit;
                    END;
            END;
            'E','e':exit;
            END;
            readln;
    END.
    Trích vuductam0764 View Post
    con chó thành cũng vào đây la liếm à
    Trích daiminh01 View Post
    may la liem dc gi chua ma noi tao,dang mai co ai lam dau
    Ăn nói cẩn thận

  19. Có 1 thành viên cảm ơn thecuong064 cho bài viết này:
    auauau97 (01-12-2011)

  20. #1515
    snowangle987's Avatar
    snowangle987 vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Jun 2008
    Đến từ
    Hà Nội
    Bài
    493
    Cảm ơn
    319
    Điểm
    81/63 bài viết
    VR power
    0

    Default

    các bạn giúp mình 2 bài tập này với mình đang cần gấp

    Xin chân thành cảm ơn !![COLOR="Silver"]

 

 
Trang 101/129 đầuđầu ... 51 91 99 100 101 102 103 111 ... 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
  •