ترجمه کد منبع به منبع از COBOL با استفاده از هوش مصنوعی شامل استفاده از تکنیک‌های پردازش زبان طبیعی (NLP) و الگوریتم‌های یادگیری ماشین برای تجزیه و تحلیل و درک کد منبع است.
| ترکیب | عملکرد |
|---|---|
| Ctrl+c | کپی محتوای ویرایشگر کد منبع به کلیپ بورد |
| Ctrl+v | وارد کردن کد منبع به ویرایشگر از کلیپ بورد با جایگزینی محتوای موجود |
| Ctrl+ Shift+c | کپی خروجی AI به کلیپ بورد |
| Ctrl+r یا Ctrl+enter | اجرای تبدیل کد منبع |
| Ctrl+Shift+1 | تغییر وضعیت نمایش ویرایشگر دستورالعمل‌های AI |
| توضیحات چالش | مثال نحوی COBOL | مثال نحوی Object Pascal Pascal | امتیاز (۱-۱۰) |
|---|---|---|---|
| اعلام نوع داده | 01 NAME PIC X(30). |
var Name: string; |
۳ |
| مدیریت فایل | SELECT MYFILE ASSIGN TO 'data.txt'. |
AssignFile(MyFile, 'data.txt'); |
۵ |
| عبارات شرطی | IF X > 10 THEN DISPLAY 'High'. |
if X > 10 then WriteLn('High'); |
۲ |
| ساختارهای حلقه | PERFORM VARYING I FROM 1 BY 1 UNTIL I > 10. |
for I := 1 to 10 do begin ... end; |
۴ |
| دستکاری رشته | MOVE 'Hello' TO GREETING. |
Greeting := 'Hello'; |
۱ |
| مدیریت آرایه | 01 NUMBERS OCCURS 10 TIMES PIC 9. |
var Numbers: array[1..10] of Integer; |
۶ |
| مدیریت استثنا | ON SIZE ERROR PERFORM ERROR-HANDLER. |
try ... except ... end; |
۷ |
| فراخوانی زیرروال | CALL 'SUBPROG' USING VAR1 VAR2. |
SubProg(Var1, Var2); |
۳ |
| ساختار فایل داده | FD MYFILE. |
type TMyFile = record ... end; |
۵ |
| نظرات و مستندات | * This is a comment. |
// This is a comment. |
۱ |
در COBOL، نوع داده‌ها با استفاده از عبارت PIC اعلام می‌شوند که نوع و اندازه متغیر را مشخص می‌کند. به عنوان مثال:
01 NAME PIC X(30).
در Object Pascal Pascal، نوع داده‌ها با استفاده از کلمه کلیدی var به همراه نام و نوع متغیر اعلام می‌شوند:
var Name: string;
منبع: نوع داده‌های COBOL
COBOL از عبارت SELECT برای ارتباط یک فایل با یک نام منطقی استفاده می‌کند. به عنوان مثال:
SELECT MYFILE ASSIGN TO 'data.txt'.
در Object Pascal Pascal، مدیریت فایل با استفاده از رویه AssignFile انجام می‌شود:
AssignFile(MyFile, 'data.txt');
منبع: مدیریت فایل COBOL
COBOL از عبارت IF برای منطق شرطی استفاده می‌کند. به عنوان مثال:
IF X > 10 THEN DISPLAY 'High'.
در Object Pascal Pascal، نحو مشابه است اما از then با حروف کوچک استفاده می‌کند:
if X > 10 then WriteLn('High');
منبع: عبارات شرطی COBOL
COBOL از عبارت PERFORM VARYING برای حلقه‌ها استفاده می‌کند. به عنوان مثال:
PERFORM VARYING I FROM 1 BY 1 UNTIL I > 10.
در Object Pascal Pascal، از حلقه for استفاده می‌شود:
for I := 1 to 10 do begin ... end;
منبع: ساختارهای حلقه COBOL
در COBOL، رشته‌ها با استفاده از عبارت MOVE دستکاری می‌شوند:
MOVE 'Hello' TO GREETING.
در Object Pascal Pascal، انتساب رشته به سادگی انجام می‌شود:
Greeting := 'Hello';
منبع: دستکاری رشته COBOL
آرایه‌های COBOL با استفاده از عبارت OCCURS تعریف می‌شوند. به عنوان مثال:
01 NUMBERS OCCURS 10 TIMES PIC 9.
در Object Pascal Pascal، آرایه‌ها با استفاده از کلمه کلیدی array اعلام می‌شوند:
var Numbers: array[1..10] of Integer;
منبع: آرایه‌های COBOL
COBOL از عبارت ON SIZE ERROR برای مدیریت خطا استفاده می‌کند:
ON SIZE ERROR PERFORM ERROR-HANDLER.
در Object Pascal Pascal، مدیریت استثنا با استفاده از بلوک‌های try...except انجام می‌شود:
try ... except ... end;
منبع: مدیریت استثنا COBOL
در COBOL، زیرروال‌ها با استفاده از عبارت CALL فراخوانی می‌شوند:
CALL 'SUBPROG' USING VAR1 VAR2.
در Object Pascal Pascal، فراخوانی زیرروال‌ها به طور مستقیم انجام می‌شود:
SubProg(Var1, Var2);
منبع: فراخوانی زیرروال COBOL
در COBOL، ساختارهای فایل با استفاده از ورودی FD (توضیحات فایل) تعریف می‌شوند:
FD MYFILE.
در Object Pascal Pascal، از رکوردها برای تعریف ساختارهای فایل استفاده می‌شود:
type TMyFile = record ... end;
منبع: ساختار فایل COBOL
نظرات در COBOL با یک ستاره * در ابتدای خط مشخص می‌شوند:
* This is a comment.
در Object Pascal Pascal، نظرات با استفاده از // برای نظرات یک خطی انجام می‌شود:
// This is a comment.
منبع: نظرات COBOL