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

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

27.10.2015, 16:32. Показов 1295. Ответов 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
Ответ Создать тему
Новые блоги и статьи
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Первый деплой
lagorue 16.01.2026
Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes
lagorue 13.01.2026
А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru