Форум программистов, компьютерный форум, киберфорум
Java
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
0 / 0 / 1
Регистрация: 20.12.2014
Сообщений: 28

Создать простой конвертер с языка Паскаль на язык Basic

27.10.2015, 16:32. Показов 1300. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте. Нужно реализовать конвертацию : объявление переменных и констант, базовые операторы (условия, цикл for арифметические, операторы сравнения). С языка Паскаль на язык Basic.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
27.10.2015, 16:32
Ответы с готовыми решениями:

Перевод из языка Паскаль на язык Делфи
Помогите перевести программу на языке паскаль, на язык делфи: var n, i, x: integer; A, B: file of integer; begin clrscr;...

Перевести программу с языка Паскаль в язык С++
Имееться задача на Pascale: {Метод Ньютона решения нелинейного уравнения} program Newton; uses crt; {модуль управления экраном} ...

Перевод из языка ассемблер в язык паскаль
mov esi,eax mov eax,ebx mov ebx,3 imul ebx or ecx,1 add eax,esi cdq idiv ecx

2
1552 / 918 / 193
Регистрация: 26.03.2010
Сообщений: 3,105
27.10.2015, 16:35
ну ок, а вопрос то где? )
0
0 / 0 / 1
Регистрация: 20.12.2014
Сообщений: 28
27.10.2015, 16:47  [ТС]
Лучший ответ Сообщение было отмечено yura123456 как решение

Решение

Как это сделать?

Добавлено через 6 минут
Вот что есть.
Java
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
import java.awt.EventQueue;
import java.awt.Color;
import java.awt.Toolkit;
 
import javax.swing.JFrame;
import javax.swing.GroupLayout;
import javax.swing.GroupLayout.Alignment;
import javax.swing.filechooser.FileFilter;
import javax.swing.JFileChooser;
import javax.swing.JMenuBar;
import javax.swing.JMenu;
import javax.swing.JMenuItem;
import javax.swing.JOptionPane;
import javax.swing.JSeparator;
import javax.swing.JTextPane;
import javax.swing.JScrollPane;
import javax.swing.JSplitPane;
import javax.swing.JLabel;
 
import java.awt.datatransfer.DataFlavor;
import java.awt.datatransfer.StringSelection;
import java.awt.datatransfer.Transferable;
import java.awt.event.MouseAdapter;
import java.awt.event.MouseEvent;
import java.io.BufferedReader;
import java.io.BufferedWriter;
import java.io.FileNotFoundException;
import java.io.FileReader;
import java.io.FileWriter;
import java.io.IOException;
import java.util.regex.Matcher;
import java.util.regex.Pattern;
import java.awt.Font;
import javax.swing.*;
 
//-------------------------- 
//------- ВЫПОЛНЯЮЩАЯ ФУНКЦИЯ -------
public class Konverter extends JFrame {
 
    //------- ГЛОБАЛЬНЫЕ ПЕРЕМЕННЫЕ -------
    private static final long serialVersionUID = 1L;  // Default ID
    private final JSplitPane splitPane = new JSplitPane();  // "раздвоенный" контейнер
    String[] pascal_types = {"integer", "longint", "string", "byte", "boolean", "double", "real"};  // элементы для замещения
    String[] cpp_types = {"int", "long", "string", "byte", "bool", "double", "float"}; // "заместители"      
    boolean check_if = false;  // нужно для различия конструкции if ... от for ...
    private JFileChooser choose;  // выбор файла для сохранения
    private String fileName;  // название этого файла
    private BufferedWriter bw;  // осуществление записи
    static Konverter frame = new Konverter();  // объект нашего класса
 
    //-------------------------------------
    //------- ЗАПУСК ОСНОВНОГО ПОТОКА -------
    public static void main(String[] args) {
        EventQueue.invokeLater(new Runnable() {
 
            public void run() {
                try {
                    Konverter frame = new Konverter();
                    frame.setVisible(true);
                } catch (Exception e) {
                    e.printStackTrace();
                }
            }
        });
    }
 
    //---------------------------------------
    //------- КОНСТРУКТОР КЛАССА -------
    public Konverter() {
 
 
        //------- ОБЪЯВЛЕНИЕ ПЕРЕМЕННЫХ ЭЛЕМЕНТОВ -------
 
        JScrollPane scrollPane = new JScrollPane();  // контейнеры со скроллом
        JScrollPane scrollPane_1 = new JScrollPane();
 
        final JTextPane pascal_pane = new JTextPane();
        final JTextPane cpp_pane = new JTextPane();      // текстовые поля
        final JTextPane number_pane = new JTextPane();
 
        JMenuBar menuBar = new JMenuBar();      // контейнер для меню
 
        JMenu file_menu = new JMenu("Файл");   // меню
        JMenu edit_menu = new JMenu("Правка");
        JMenu help_menu = new JMenu("Справка");
 
        JMenuItem open_menuitem = new JMenuItem("Открыть"); // айтемы менюшек
        JMenuItem save_menuitem = new JMenuItem("Сохранить");
        JMenuItem exit_menuitem = new JMenuItem("Выход");
        
        JMenuItem cut_menuitem = new JMenuItem("Вырезать");
        JMenuItem copy_menuitem = new JMenuItem("Копировать");
        JMenuItem past_menuitem = new JMenuItem("Вставить");
        JMenuItem delete_menuitem = new JMenuItem("Очистить поля");
        
        JMenuItem about_menuitem = new JMenuItem("О программе");
 
        JLabel Csharp_label = new JLabel("Pascal"); // надписи
        JLabel Basic_label = new JLabel("Basic");
 
        JSeparator file_separator = new JSeparator(); // сепаратор
        JSeparator edit_separator = new JSeparator(); // сепаратор
 
        JButton buttonConvert = new JButton(); // Кнопка 
        buttonConvert.setLabel("Конвертировать");
 
 
        //----------------------------------------------------------------------------------
 
 
        //------- СВОЙСТВА ФОРМЫ И КОНТЕЙНЕРА -------
        
        getContentPane().setBackground(Color.WHITE);
        setBackground(Color.WHITE);
 
        GroupLayout groupLayout = new GroupLayout(getContentPane());
 
        getContentPane().setLayout(groupLayout);
        groupLayout.setHorizontalGroup(
                groupLayout.createParallelGroup(GroupLayout.Alignment.LEADING).addComponent(splitPane, GroupLayout.DEFAULT_SIZE, 400, Short.MAX_VALUE).addGroup(GroupLayout.Alignment.TRAILING, groupLayout.createSequentialGroup().addContainerGap(GroupLayout.DEFAULT_SIZE, Short.MAX_VALUE).addComponent(buttonConvert).addContainerGap()));
        groupLayout.setVerticalGroup(
                groupLayout.createParallelGroup(GroupLayout.Alignment.LEADING).addGroup(GroupLayout.Alignment.TRAILING, groupLayout.createSequentialGroup().addComponent(splitPane, GroupLayout.DEFAULT_SIZE, 264, Short.MAX_VALUE).addPreferredGap(LayoutStyle.ComponentPlacement.RELATED).addComponent(buttonConvert).addContainerGap()));
 
        splitPane.setBackground(new Color(255, 255, 255));
        splitPane.setResizeWeight(0.5);
 
        //-------------------------------------------
 
 
        //------- ОСТАЛЬНЫЕ СВОЙСТВА -------
 
        splitPane.setLeftComponent(scrollPane);  // в основном это добавления в свой контейнер и цвет
 
        scrollPane.setViewportView(pascal_pane);
 
        Csharp_label.setBackground(new Color(255, 255, 224));
        scrollPane.setColumnHeaderView(Csharp_label);
 
        number_pane.setEditable(false);
        scrollPane.setRowHeaderView(number_pane);
 
        splitPane.setRightComponent(scrollPane_1);
 
 
 
        scrollPane_1.setViewportView(cpp_pane);
 
        Basic_label.setBackground(new Color(255, 255, 255));
        scrollPane_1.setColumnHeaderView(Basic_label);
 
        setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
        setBounds(370, 150, 600, 450);
        getContentPane().setLayout(groupLayout);
 
        menuBar.setBackground(new Color(255, 255, 255));
        setJMenuBar(menuBar);
 
        file_menu.setFont(new Font("Arial", Font.PLAIN, 12));
        file_menu.setBackground(new Color(255, 255, 255));
        menuBar.add(file_menu);
 
        open_menuitem.setBackground(new Color(255, 255, 255));
        file_menu.add(open_menuitem);
 
        save_menuitem.setBackground(new Color(255, 255, 255));
        file_menu.add(save_menuitem);
 
        file_menu.add(file_separator);
 
        exit_menuitem.setBackground(new Color(255, 255, 255));
        file_menu.add(exit_menuitem);
 
        edit_menu.setFont(new Font("Arial", Font.PLAIN, 12));
        menuBar.add(edit_menu);
 
        cut_menuitem.setBackground(new Color(255, 255, 255));
        edit_menu.add(cut_menuitem);
        
        copy_menuitem.setBackground(new Color(255, 255, 255));
        edit_menu.add(copy_menuitem);
 
        past_menuitem.setBackground(new Color(255, 255, 255));
        edit_menu.add(past_menuitem);
        
        edit_menu.add(edit_separator);
        
        delete_menuitem.setBackground(new Color(255, 255, 255));
        edit_menu.add(delete_menuitem);
 
        help_menu.setFont(new Font("Arial", Font.PLAIN, 12));
        menuBar.add(help_menu);
        
        about_menuitem.setBackground(new Color(255, 255, 255));
        help_menu.add(about_menuitem);
        
        //-------------------------------------------
 
 
        //------- СОБЫТИЯ МЕНЮ -------
 
        open_menuitem.addMouseListener(new MouseAdapter() // открытие файла
        {
 
            @Override
            public void mousePressed(MouseEvent arg0) {
                choose = new JFileChooser();
                choose.setDialogTitle("Выберите файл");
                choose.setFileSelectionMode(JFileChooser.FILES_ONLY);
                int res = choose.showOpenDialog(Konverter.this);
 
                if (res == JFileChooser.APPROVE_OPTION) {
                    String fileName = choose.getSelectedFile().toString();
 
                    try {
                        BufferedReader fr = new BufferedReader(new FileReader(fileName));
                        pascal_pane.read(fr, false);
                        fr.close();
                    } catch (FileNotFoundException ex) {
                    } catch (IOException ea) {
                    }
                }
            }
        });
 
        save_menuitem.addMouseListener(new MouseAdapter() // сохранить документ
        {
 
            @Override
            public void mousePressed(MouseEvent e) {
                choose = new JFileChooser();
                choose.addChoosableFileFilter(new TextFileFilter());
                choose.setDialogTitle("Выберите файл");
                choose.setFileSelectionMode(JFileChooser.FILES_ONLY);
                int res = choose.showOpenDialog(Konverter.this);
 
                if (res == JFileChooser.APPROVE_OPTION) {
                    fileName = choose.getSelectedFile().toString();
 
                    try {
                        bw = new BufferedWriter(new FileWriter(fileName));
                        pascal_pane.write(bw);
                        bw.close();
                    } catch (FileNotFoundException ex) {
                    } catch (IOException ea) {
                    }
                }
            }
        });
 
        delete_menuitem.addMouseListener(new MouseAdapter() // очистить поля
        {
 
            @Override
            public void mousePressed(MouseEvent e) {
                number_pane.setText(null);
                pascal_pane.setText(null);
                cpp_pane.setText(null);
            }
        });
 
        exit_menuitem.addMouseListener(new MouseAdapter() // выход
        {
 
            @Override
            public void mousePressed(MouseEvent e) {
                System.exit(0);
            }
        });
 
        copy_menuitem.addMouseListener(new MouseAdapter() // копировать
        {
 
            @Override
            public void mousePressed(MouseEvent e) {
                StringSelection stringSelection = new StringSelection(pascal_pane.getSelectedText());
                Toolkit.getDefaultToolkit().getSystemClipboard().setContents(stringSelection, null);
            }
        });
 
        past_menuitem.addMouseListener(new MouseAdapter() // вставить
        {
 
            @Override
            public void mousePressed(MouseEvent e) {
                String clip = "";
                Transferable trans = Toolkit.getDefaultToolkit().getSystemClipboard().getContents(null);
 
                try {
                    clip = (String) trans.getTransferData(DataFlavor.stringFlavor);
                } catch (Exception exc) {
                }
                pascal_pane.replaceSelection(clip);
            }
        });
 
        cut_menuitem.addMouseListener(new MouseAdapter() // вырезать
        {
 
            @Override
            public void mousePressed(MouseEvent e) {
                StringSelection stringSelection = new StringSelection(pascal_pane.getSelectedText());
                pascal_pane.replaceSelection("");
                Toolkit.getDefaultToolkit().getSystemClipboard().setContents(stringSelection, null);
            }
        });
 
}
 
class TextFileFilter extends FileFilter // нужно для сохранения
{
 
    public boolean accept(java.io.File file) {
        if (file.isDirectory()) {
            return true;
        }
        return (file.getName().endsWith("txt"));
    }
 
    public String getDescription() {
        return "Text files (*.txt)";
    }
}
}
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
27.10.2015, 16:47
Помогаю со студенческими работами здесь

Перевести код с языка C++ на язык Паскаль
Помогите написать в паскаль данную программу using namespace std; struct m { int n; int l; int r; } d; bool cmp(const m...

Перевести с языка КуМир на язык Паскаль
var a: integer; Begin Writeln ('Введите число'); Readln (a); if a mod 2 = 0 then writeln ('Это число чётное') ...

Перевести с языка КуМир на язык Паскаль
Var a:array of integer; i:integer; begin writeln('Введите 3 числа'); for i:=1 to 3 do readln(a); for i:=1 to 3 do if a>0...

Перевести с языка КуМир на язык Паскаль
var A,B,C,D: integer; begin write('A = '); readln(A); if (A=0) then begin writeln('Not a quadratic...

Написание транслятора с языка Паскаль на язык ассемблер (FASM)
Здравствуйте, поскольку в программировании - новичок, очень большой проблемой стало следующее задание - написание транслятора с языка...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru