Đại học Lê Quý Đôn - 236 Hoàng Quốc Việt - Hà Nội

Chia sẻ kiến thức mọi mặt của các lớp cao học CNTT, Học viện Kỹ thuật Quân sự




Chào mừng đã đến với forum khmt.123.st
  • Bạn chưa đăng kí (hoặc chưa đăng nhập) nên quyền lợi của bạn sẽ bị hạn chế. Việc đăng kí làm thành viên hoàn toàn miễn phí, sau khi đăngkí bạn có thể post bài, tham gia thảo luận , nhìn thấy link ở những box hạn chế ... và rất nhiều quyền lợi khác. Thủ tục đăng kí rất nhanh chóng và đơn giản, hãy Đăng kí làm thành viên !
  • Nếu bạn quên mật khẩu, xin nhấn vào đây !
  • Nếu bạn gặp trục trặc trong vấn đề đăng kí hoặc không thể đăng nhập, hãy liên hệ với chúng tôi.




  • Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down  Thông điệp [Trang 1 trong tổng số 1 trang]

    1 [Hướng dẫn]Chuyển code Pascal sang C++ on Wed Feb 01, 2012 11:14 pm

    Admin


    Quản trị viên
    Quản trị viên
    Đây là code sưu tầm thôi. Đầu tiên save đoạn code chương trình này vào máy rồi... biên dịch thành file EXE.
    DownLoad
    Sau đó chuyển thử 1 chương trình pascal ví dụ:
    Code:

    {Global Variables}
    const MAX=10;

    var a: array[1..MAX] of integer;
    b: integer;
    i:integer;
    j:integer;
    temp: integer;

    function Prime(v: integer): integer;
    var t:Integer;
    begin
        t:= v div 2;
        WHILE v mod t >0 do
        begin
            t:=t-1;
        end;
        if t =1 THEN
        begin
            Prime:=1;
        end
        ELSE
                begin
            Prime:=0;
        end;
    end;

    function nd(v: integer):integer;
    var i :integer;
    cnt:integer;
    begin
        cnt:=0;
        i:=2;
        WHILE i<v do
        begin
            if (v mod i)=0 THEN
                cnt:=cnt+1;
            i:=i+1;
        end;
        nd:=cnt;
    end;

    procedure print;
    begin
        FOR i:=1 to MAX do
        begin
            write('Element No ',i);
            writeln(' :',a[i]);
            temp:= nd(a[i]);
            if temp > 1 THEN
                if prime(temp)=1 THEN
                    writeln(' OK: ', a[i] );
        end;
    end;


    begin
        FOR i:=1 to MAX do
        begin
            writeln('Enter Element No ',i);
            read(a[i]);
        end;

        FOR i:=1 to MAX-1 do
            FOR j:=MAX -1 downto i do
            begin
                if a[j] > a[j+1] THEN
                begin
                    temp:=a[j];
                    a[j]:=a[j+1];
                    a[j+1]:=temp;
                end;
            end;
        print;
     
    end.
    Sang code C:
    Code:
    #include <stdio.h>
    /*GLOBAL VARIABLES*/
    #define MAX 10

    int A[MAX];
    int B;
    int I;
    int J;
    int TEMP;

    int PRIME(int V)
    {
        int T;
        T=V/2;
        WHILE (V%T>0)
        {
            T=T-1;
        }
        if (T==1)
        {
            return 1;
        }
        ELSE
        {
            return 0;
        }
    }

    int ND(int V)
    {
        int I;
        int CNT;
        CNT=0;
        I=2;
        WHILE (I<V)
        {
            if ((V%I)==0)
                CNT=CNT+1;
            I=I+1;
        }
        return CNT;
    }

    void PRINT()
    {
        FOR(I=1;I<=MAX;I++)
        {
            printf("ELEMENT NO %d", I);
            printf(" :%d\n", A[I-1]);
            TEMP=ND(A[I-1]);
            if (TEMP>1)
                if (PRIME(TEMP)==1)
                    printf(" OK: %d\n", A[I-1]);
        }
    }


    void main()
    {
        FOR(I=1;I<=MAX;I++)
        {
            printf("ENTER ELEMENT NO %d\n", I);
            scanf("%d", &A[I-1]);
        }

        FOR(I=1;I<=MAX-1;I++)
            FOR(J=MAX-1;J>=I;J--)
            {
                if (A[J-1]>A[J+1-1])
                {
                    TEMP=A[J-1];
                    A[J-1]=A[J+1-1];
                    A[J+1-1]=TEMP;
                }
            }
        PRINT();
     
    }

    /* Program converted successfully.*/


    ================
    Nếu Khách viếng thăm không đọc được các bài trong Kho bài chuẩn, là do Khách viếng thăm không tham gia được vào nhóm Thành viên đọc được mọi thứ. Sở dĩ nếu Khách viếng thăm không tham gia được vào nhóm Thành viên đọc được mọi thứ là vì Khách viếng thăm khai báo thiếu họ, thiếu tên, không dấu hoặc khai báo linh tinh trong trường RN. Đừng xin xỏ uỷ quyền, vì uỷ quyền hoàn toàn tự động cho Thành viên đọc được mọi thứ (không chỉnh bằng tay được), các thành viên khác sẽ không bao giờ được uỷ quyền.

    Trang phục may sẵn rẻ nhất Hà Nội ở 148 Vương Thừa Vũ
    ĐT: 043.568.1938

    http://www.facebook.com/nguyenanh.cuong.129
    http://www.facebook.com/PhiCongHauPhuongVaDongDoi
    http://khmt.123.st

    huongngoc


    Thành viên ít chịu khó
    Thành viên ít chịu khó
    anh ơi.sao em cho chạy đoạn code bằng devC hoặc
    cfree đều lỗi ạ

    Ban QT: Cần nói rõ hơn, nói chung chung thế thì nên nói với Tề thiên đại thánh, ông ý mới đoán được. Trình độ của các thành viên diễn đàn chưa ai đủ khả năng giải được câu hỏi chung chung của bạn. Câu này nếu có hỏi tất cả các tiến sĩ trên thế giới chắc cũng chỉ có 1 đến 2 người đoán được câu trả lời thôi.

    biengoi010688


    Thành viên ít chịu khó
    Thành viên ít chịu khó
    ~)

    Sponsored content


    Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang  Thông điệp [Trang 1 trong tổng số 1 trang]

    Permissions in this forum:
    Bạn không có quyền trả lời bài viết

     

    Ghi rõ nguồn khi copy các bài viết từ Website này.
    Bản quyền thuộc Khoa học Máy tính. Số lượt truy cập tính đến hiện tại:Website counter
    Modified skin by Nguyễn Anh Cường. Developed by Members of http://khmt.123.st

    Free forum | © PunBB | Free forum support | Liên hệ | Report an abuse | Create a blog