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

Pascal from java

25.12.2015, 11:43. Показов 552. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Добрый день.
Мне нужно по курсовой сделать калькулятор систем счисления, чтобы переводить числа, но нужно учесть что числа могут быть не только цели ай десятичные, пробовал сам что-то написать ничего толком не получилось, в интернете примеры только pascal, C# C ++, а нужно именно на java, нашел в интернете вроде норм код но он на паскале пробовал перевести на java но многое не получилось перевести, помогите доделать.
Оригинальный код на паскале:

Pascal
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
program test;
 
var 
   s, s1,s2 : string; // число для перевода
   base_in : integer; // Основание входной системы счисления
   base_out : integer; // Основание выходной системы счисления
function CheckDotCount(s: string): boolean; // Проверка количества точек в числе
var
  count, i : integer;
begin
  count := 0;
  for i := 1 to Length(s) do
    if (s[i] = '.') then inc(count);  
   if (count > 1) then CheckDotCount := false
   else CheckDotCount := true;
end;
 
function IntToHex(ds: byte): string;
const
 b: string = '0123456789ABCDEF';
begin
if (b[(ds shr 4) + 1] = '0') then
  Result:= b[(ds and $F) + 1]
else Result:= b[(ds shr 4) + 1] + b[(ds and $F) + 1];  
end;
 
function HexToInt(s: string): Longword;
 var
   b: Byte;
   c: Char;
 begin
   Result := 0;
   s := UpperCase(s);
   for b := 1 to Length(s) do
   begin
     Result := Result * 16;
     c := s[b];
     case c of
       '0'..'9': Inc(Result, Ord(c) - Ord('0'));
       'A'..'F': Inc(Result, Ord(c) - Ord('A') + 10);
     end;
   end;
 end;
 
function checkSS(base : integer; s : string): boolean;
var
  i: integer;
  flag : boolean;
begin
  flag := true;
  for i := 1 to Length(s) do 
  begin
    if (HexToInt(s[i]) >= base) then flag := false;
  end;
  if ((base > 16) or (base < 2)) then flag := false;
  Result := flag;
end;
 
function checkSSR (base : integer):boolean;
begin
if ((base > 16) or (base < 2)) then Result := false
else
Result := true;
end;
 
function getStringBeforeDot(s:string): string;
  //pos : integer;
begin
  if (Pos('.',s) = 0) then Result := s
  else Result := Copy(s, 1,Pos('.',s)-1);
end;
 
function getStringAfterDot(s: string):string;
begin
  if (Pos('.',s) = 0) then Result := ''
  else
    Result := copy(s,Pos('.',s)+1,Length(s));
end;
 
procedure IntConverter(s:string; base_in : integer; base_out : integer);
var
  n1,N,i,r1 : integer;
  d1 : array [0..255] of integer;
begin
  n1 := Length(s);
  N := 0;
  for i := 1 to n1 do
  begin
    N:= N*base_in+HexToInt(s[i]);
  end;
  if (N = 0) then write ('0')
  else
  begin
    r1 := 0;
    while (N <> 0) do
    begin
       d1[r1] := N mod base_out;
       N := N div base_out;
       inc(r1);
    end;
  for i:=r1-1 downto 0 do
    write(IntToHex(d1[i]));
  end;
end;
 
procedure DotConverter(s:string; base_in : integer; base_out : integer);
var
  n2 , i, k2: longint;
  Nf : double;
begin
  n2 := Length(s);
  if (n2 = 0) then
  begin
    writeln();
    exit;
  end;
  write('.');
  Nf := 0;
  for i := n2 downto 1 do
  begin
    Nf := (HexToInt(s[i]) + Nf) / base_in;
  end;
  k2 := 0;
  while ((Nf <> 0) AND (k2 < 20)) do
  begin
    inc(k2);
    write(IntToHex(Floor(Nf*base_out)));
    Nf := ((Nf*base_out));
  end;
end;
 
begin
  writeln('Введите число для перевода:');
  readln(s);
  if (CheckDotCount(s) = false) then
  begin
    writeln('Во введеном числе более 1 точки, что-то не так');
    exit;  
  end;
  writeln('Введите основание входной системы счисления:');
  readln(base_in);
  if (checkSS(base_in, s) = false) then
  begin
    writeln('Некорректная система счисления или число для этой системы счисления');
    exit;  
  end;
  writeln('Введите основание выходной системы счисления:');
  readln(base_out);
  if (checkSSR(base_out) = false) then
  begin
    writeln('Некорректная система счисления или число для этой системы счисления');
    exit;  
  end;
  s1 := getStringBeforeDot(s);
  s2 := getStringAfterDot(s);
  IntConverter(s1,base_in,base_out);
  DotConverter(s2,base_in,base_out);
  readln;
end.
Моя попытка перевести в java:

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
package com.example.tlp.calcukator2;
 
import android.app.AlertDialog;
import android.support.v7.app.AppCompatActivity;
import android.os.Bundle;
import android.view.View;
import android.widget.Button;
import android.widget.EditText;
import android.widget.TextView;
 
import org.w3c.dom.Text;
 
public class MainActivity extends AppCompatActivity {
 
    String s, s1, s2,ss1,ss2; // число для перевода
    Integer base_in; // Основание входной системы счисления
    Integer base_out; // Основание выходной системы счисления
 
    Button button;
    EditText editText, editText2, editText3;
    TextView textView2;
    AlertDialog mes;
    private boolean CheckDotCount;
 
    @Override
    protected void onCreate(Bundle savedInstanceState) {
        super.onCreate(savedInstanceState);
        setContentView(R.layout.activity_main);
 
        button = (Button) findViewById(R.id.button);
        textView2 = (TextView) findViewById(R.id.textView2);
        editText = (EditText) findViewById(R.id.editText);
        editText2 = (EditText) findViewById(R.id.editText2);
        editText3 = (EditText) findViewById(R.id.editText3);
        mes = new AlertDialog.Builder(this).create();
    }
 
    public void button_click(View view){
        s = editText.getText().toString();
        if (CheckDotCount(s) == false) {
            mes.setTitle("Ошибка");
            mes.setMessage("Во введеном числе более 1 точки, что-то не так!");
            mes.show();
        }
 
        ss1 = editText.getText().toString();
        base_in = Integer.valueOf(ss1);
        if (checkSS(base_in, s) == false){
            mes.setTitle("Ошибка");
            mes.setMessage("Некорректная система счисления или число для этой системы счисления!");
            mes.show();
        }
 
        ss2 = editText.getText().toString();
        base_out = Integer.valueOf(ss2);
        if (checkSSR(base_out) == false) {
            mes.setTitle("Ошибка");
            mes.setMessage("Некорректная система счисления или число для этой системы счисления!");
            mes.show();
        }
 
        s1 = getStringBeforeDot(s);
        s2 = getStringAfterDot(s);
        IntConverter(s1,base_in,base_out);
        DotConverter(s2,base_in,base_out);
 
    }
 
 
 
    // Проверка количества точек в числе
    private Boolean CheckDotCount(String s){
        Integer count, i;
        count = 0;
        for ( i = 1; i< s.length();i++){
                if (s.charAt(i) == '.')  count++;
                if (count > 1)  CheckDotCount = false;
                else CheckDotCount = true;
        }
    }
 
    private String IntToHex(Byte ds){
        String b = "0123456789ABCDEF";
 
        if (b[(ds SHR 4) + 1] = "0")
        {
            Result = b[(ds && $F) + 1]
        }
        else
        Result = b[(ds shr 4) + 1] + b[(ds && $F) + 1];
    }
 
    private Long HexToInt(String s){
        Byte b;
        char c;
        Result = 0;
        s = s.toUpperCase();
        for (b = 1; b< s.length();b++){
            Result = Result * 16;
            c =s.charAt(b);
            switch ()
            case c:
                '0'..'9':Inc(Result, Ord(c) - Ord('0'));
                'A'..'F':Inc(Result, Ord(c) - Ord('A') + 10);
        }
    }
 
 
    private Boolean checkSS(Integer base, String s) {
        Integer i;
        Boolean flag;
        flag = true;
        for (i = 1; i< s.length();i++){
            if (HexToInt(s.charAt(i)) >= base)  flag=false;
        }
        if ((base > 16) | (base < 2))  flag = false;
        Result = flag;
        return s;
    }
 
    private Boolean checkSSR (Integer base){
        if ((base > 16) | (base < 2))  Result = false;
        else
        Result = true;
        return  base;
    }
 
    private String getStringBeforeDot(String s){
        //pos : integer;
        if (Pos('.',s) = 0)  Result = s
        else
            Result = Copy(s, 1,Pos('.',s)-1);
        return s;
    }
 
 
    private String getStringAfterDot(String s){
        if (Pos('.',s) = 0) then Result = ""
        else
        Result = copy(s,Pos('.',s)+1,s.length());
 
    }
 
    private void IntConverter(String s, Integer base_in, Integer base_out){
        Integer n1,N,i,r1;
        int[] d1 = new int[255];
        n1 = s.length();
        N = 0;
        for (i = 1; i<n1; i++){
            N= N*base_in+HexToInt(s.charAt(i));
        }
        if (N == 0) write ("0");
        else
        r1 = 0;
        while (N != 0) {
            d1[r1]:=N mod base_out;
            N =N div base_out;
            r1++;
        }
        for (i=r1-1; i== 0; i--){
            textView2.setText(IntToHex(d1[i]));
        }
    }
 
 
    private void DotConverter(String s, Integer base_in, Integer base_out){
        Integer n2,i,k2;
        Double Nf;
        n2 = s.length();
        if (n2 == 0) {
            writeln();
        }
        write('.');
        Nf = 0;
        for (i = n2; i==1;i--){
          Nf = (HexToInt(s.charAt(i)) + Nf) / base_in;
        }
        k2 = 0;
        while ((Nf != 0) && (k2 < 20)){
         k2++;
            textView2.setText(IntToHex(Math.floor(Nf * base_out)));
         Nf = ((Nf*base_out));
        }
 
    }
 
 
 
 
}
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
25.12.2015, 11:43
Ответы с готовыми решениями:

Перевод кода с Pascal на Java - Java SE
var a:Int64; begin Reset(Input,'input.txt'); Rewrite(Output,'output.txt'); read(a); Write(a,9,9-a) end. Заранее...

из JAVA в PASCAL
В общем, у меня проблемка. Нужно из Java прогу &quot;конвертировать&quot; в Pascal. Сама задача такова: Игра &quot;Вращающий квадрат&quot;. Дан...

Из Pascal в Java
Нужно перевести 2 кода. использовать вот эти библиотеки: import javax.swing.*; import java.util.*; program 1; uses crt; ...

1
0 / 0 / 0
Регистрация: 25.12.2015
Сообщений: 2
25.12.2015, 12:32  [ТС]
Если кому-то поможет то код на C++
C++
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
#include <stdio.h>
#include <string.h>
#include <math.h>
#include <locale.h>
#include <malloc.h>
#include <stdlib.h>
#define z 255
 
/*Заголовки функций*/
int aton(char a);
char ntoa(int n);
int cdot(char * S);
void dot(char* S, char* S1, char* S2);
void IntTransfer(char *S1, int b1, int b2);
void DotTransfer(char *S2, int b1, int b2);
int types (int b1, char *S);
 
void main ()
{
int b1, b2;
char S[z];
char S1[z];
char S2[z];
setlocale(LC_CTYPE,"Russian");
printf("Введите число для перевода \n");
gets_s(S,z);
if (cdot(S) == -1)
{
printf("incorrect value, Closed!\n");
getchar();
exit (-1);
}
printf("Введите основание входной сс\n");
scanf_s("%d",&b1);
if (types (b1, S) == -2)
{
printf("Некорректное основание входной системы счисления или неверное число для перевода\n");
getchar();
exit (-1);
}
if (types2(b1) == -1)
{
printf("Неверное основание входной сс\n");
getchar();
exit (-1);
}
printf("Введите основание выходной сс\n");
scanf_s("%d",&b2);
if (types2(b2) == -1)
{
printf("Неверное основание выходной сс\n");
getchar();
exit (-1);
}
dot(S, S1, S2);
IntTransfer(S1, b1, b2);
DotTransfer (S2,b1,b2);
printf("\n");
}
 
int aton(char a) // преобразование символа в номер цифры (Число)
{
if ((a >= '0') && (a <= '9'))
return a - '0';
else if ((a >= 'a') && (a <= 'z'))
return a - 'a' + 10;
else
return a - 'A' + 10;
}
char ntoa(int n) // преобразование номера цифры в символ
{
if ((n >= 0) && (n <= 9))
return '0' + n;
else
return 'A' - 10 + n;
 
}
void dot(char* S, char* S1, char* S2) // Разделение введеной строки. До точки\после точки
{
const char* delim = ".";
char* cp = malloc(strlen(S)+1);
char* tmp;
if (cp == NULL)
{
printf("Ошибка при работе с памятью");
exit(-1);
}
 
tmp = strtok(S,".");
if (tmp!=NULL) strcpy(S1,tmp);
else strcpy(S1,"\0");
tmp=strtok(NULL,".");
if (tmp!=NULL) strcpy(S2,tmp);
else strcpy(S2,"\0");
free(cp);
}
void IntTransfer(char* S1, int b1, int b2)
{
int n1, N, i,r1;
int d1 [z];
n1=strlen(S1);
N=0;
for (i=0;i<n1;i++)
{
N=N*b1+aton(S1[i]);
}
if (N==0)
{
printf("0");
}
else
{
r1=0;
while (N!=0)
{
d1[r1]=N%b2;
N=N/b2;
r1++;
}
for (i=r1-1;i>=0;i--)
{
printf("%c",ntoa(d1[i]));
}
}
}
void DotTransfer (char *S2, int b1, int b2)
{
int n2 , i, k2;
int const K = 20;
long double Nf;
n2 = strlen(S2);
if (n2 == 0)
{
printf("\n");
return;
}
printf(".");
Nf = 0;
for (i = n2-1; i >= 0; i--)
{
Nf = (aton(S2[i]) + Nf) / b1;
}
k2 = 0;
while (Nf != 0 && k2 < K)
{
k2++;
printf("%c",ntoa(floor(Nf*b2)));
Nf=fmod((Nf*b2), 1);
}
}
int cdot(char * S)
{
int i, kol = 0;
for (i = 0; i < strlen(S); i++)
{
if (S[i] == '.') kol++;
}
if (kol > 1)
{
return -1;
}
}
int types (int b1, char *S)
{
int i;
for (i = 0; i < strlen(S); i++)
{
if (aton(S[i]) >= b1) return -2;
}
}
int types2 (int b)
{
if (b > 16 || b < 2) return -1;
 
}

я еще несколько переделал но не знаю правильно или
, а остальное не знаю как переделать
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
package com.example.tlp.calcukator2;
 
import android.app.AlertDialog;
import android.support.v7.app.AppCompatActivity;
import android.os.Bundle;
import android.view.View;
import android.widget.Button;
import android.widget.EditText;
import android.widget.TextView;
 
import org.w3c.dom.Text;
 
public class MainActivity extends AppCompatActivity {
 
    String s, s1, s2,ss1,ss2; // число для перевода
    Integer base_in; // Основание входной системы счисления
    Integer base_out; // Основание выходной системы счисления
 
    Button button;
    EditText editText, editText2, editText3;
    TextView textView2;
    AlertDialog mes;
    private boolean CheckDotCount;
 
    @Override
    protected void onCreate(Bundle savedInstanceState) {
        super.onCreate(savedInstanceState);
        setContentView(R.layout.activity_main);
 
        button = (Button) findViewById(R.id.button);
        textView2 = (TextView) findViewById(R.id.textView2);
        editText = (EditText) findViewById(R.id.editText);
        editText2 = (EditText) findViewById(R.id.editText2);
        editText3 = (EditText) findViewById(R.id.editText3);
        mes = new AlertDialog.Builder(this).create();
    }
 
    public void button_click(View view){
        s = editText.getText().toString();
        if (CheckDotCount(s) == false) {
            mes.setTitle("Ошибка");
            mes.setMessage("Во введеном числе более 1 точки, что-то не так!");
            mes.show();
        }
 
        ss1 = editText.getText().toString();
        base_in = Integer.valueOf(ss1);
        if (checkSS(base_in, s) == false){
            mes.setTitle("Ошибка");
            mes.setMessage("Некорректная система счисления или число для этой системы счисления!");
            mes.show();
        }
 
        ss2 = editText.getText().toString();
        base_out = Integer.valueOf(ss2);
        if (checkSSR(base_out) == false) {
            mes.setTitle("Ошибка");
            mes.setMessage("Некорректная система счисления или число для этой системы счисления!");
            mes.show();
        }
 
        s1 = getStringBeforeDot(s);
        s2 = getStringAfterDot(s);
        IntConverter(s1,base_in,base_out);
        DotConverter(s2,base_in,base_out);
 
    }
 
 
 
    // Проверка количества точек в числе
    private Boolean CheckDotCount(String s){
        Integer count, i;
        count = 0;
        for ( i = 1; i< s.length();i++){
                if (s.charAt(i) == '.')  count++;
                if (count > 1)  CheckDotCount = false;
                else CheckDotCount = true;
        }
        return CheckDotCount;
    }
 
    private String IntToHex(Byte ds){
        String b = "0123456789ABCDEF", result="";
 
        if (b[(ds >> 4) + 1] = "0")
        {
            result = b[(ds && $F) + 1];
        }
        else
        {
        result = b[(ds >> 4) + 1] + b[(ds && $F) + 1]
        }
        return result;
    }
 
    private Long HexToInt(String s){
        Byte b;
        Long Result;
        char c;
        Result = 0;
        s = s.toUpperCase();
        for (b = 1; b< s.length();b++){
            Result = Result * 16;
            c =s.charAt(b);
            switch ()
            case c:
                '0'..'9':Inc(Result, Ord(c) - Ord('0'));
                'A'..'F':Inc(Result, Ord(c) - Ord('A') + 10);
        }
    }
 
 
    private Boolean checkSS(Integer base, String s) {
        Integer i;
        Boolean flag,Result;
        flag = true;
        for (i = 1; i< s.length();i++){
            if (HexToInt(s.charAt(i)) >= base)  flag = false;
        }
        if ((base > 16) | (base < 2))  flag = false;
        Result = flag;
        return Result;
    }
 
    private Boolean checkSSR (Integer base){
        Boolean Result;
        if ((base > 16) | (base < 2))  Result = false;
        else
        Result = true;
        return  Result;
    }
 
    private String getStringBeforeDot(String s){
        String Result;
        if (Pos('.',s) = 0)  Result = s
        else
            Result = Copy(s, 1,Pos('.',s)-1);
        return Result;
    }
 
 
    private String getStringAfterDot(String s){
        String Result;
        if (Pos('.',s) = 0)  Result = "";
        else
        Result = copy(s,Pos('.',s)+1,s.length());
        return Result;
    }
 
    private void IntConverter(String s, Integer base_in, Integer base_out){
        Integer n1,N,i,r1;
        int[] d1 = new int[255];
        n1 = s.length();
        N = 0;
        for (i = 1; i<n1; i++){
            N= N*base_in+HexToInt(s.charAt(i));
        }
        if (N == 0) write ("0");
        else
        r1 = 0;
        while (N != 0) {
            d1[r1]:=N mod base_out;
            N =N div base_out;
            r1++;
        }
        for (i=r1-1; i== 0; i--){
            textView2.setText(IntToHex(d1[i]));
        }
    }
 
 
    private void DotConverter(String s, Integer base_in, Integer base_out){
        Integer n2,i,k2;
        Double Nf;
        n2 = s.length();
        if (n2 == 0) {
            writeln();
        }
        write('.');
        Nf = 0;
        for (i = n2; i==1;i--){
          Nf = (HexToInt(s.charAt(i)) + Nf) / base_in;
        }
        k2 = 0;
        while ((Nf != 0) && (k2 < 20)){
         k2++;
            textView2.setText(IntToHex(Math.floor(Nf * base_out)));
         Nf = ((Nf*base_out));
        }
 
    }
 
 
 
 
}
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
25.12.2015, 12:32
Помогаю со студенческими работами здесь

Pascal to Java
Доброго времени суток! Пишу, собственно, вот по какому поводу. Нужно написать курсовую, а из языков программирования более-менее освоил...

Из Pascal в Java!
Привет всем джаверам пожалуйста если вам не сложно не могли бы вы перевести это на Java! uses crt; const n=7; var...

Из pascal в java
Ребзя, помогите переделать программу pascal в java. Кому не лень ;) Program f; var s:string; Begin readln(s); while...

Pascal to Java
Добрый день , помогите переделать код в java , но только для другой функции f:=cos(x)-sqrt(x) код: // Метод &quot;Золотого...

Из java в pascal
Доброе время суток! Ребят помоги перевести из java на pascal! Очень нужно( package relax; import java.io.*; import...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
ПЛИС
zxcha1ka_ 27.01.2026
AHDL Разработать программы для синтеза следующих устройств: 1. Параллельного регистра 4-х разрядного с синхронной загрузкой и асинхронным сбросом (обнулением); Пoмoгитe пoжaлyйстa
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru