Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
LairiX
0 / 0 / 0
Регистрация: 06.02.2019
Сообщений: 1
1

Перевод из Pascal в VBA

06.02.2019, 14:54. Просмотров 182. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program Begin20;
var
  x1,y1,x2,y2,L: Real;
begin
  Writeln('Введите значение координат певой точки: ');
  Write('Введите значение x: ');
  Readln(x1);
  Write('Введите значение y: ');
  Readln(y1);
  Writeln('Введите значение координат второй точки: ');
  Write('Введите значение x: ');
  Readln(x2);
  Write('Введите значение y: ');
  Readln(y2);
  L:=sqrt(sqr(x1-x2)+sqr(y1-y2));
  Writeln('Расстояние между точками равно: ',L);
end.
Pascal
1
2
3
4
5
6
7
8
9
program Begin30;
var
  a, degree: Real;
begin
  Write('Введите значение угла в радианах: ');
  Readln(a);
  degree:=180*a/3.14;
  Writeln('Значение угла в градусах : ',degree);
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.02.2019, 14:54
Ответы с готовыми решениями:

Перевод с Pascal на VBA
Есть сложный код на паскале, нужно перевести на VBA, если это возможно: program interpol; uses...

Перевод из Pascal в VBA
Этот код записан в Pascal, помогите его записать в VBA Var x,a,b,h:real; Begin ...

Перевод из Pascal в VBA
var s:string; p1,p2:byte; begin writeln('Введите строку, содержащую текст в фигурных...

Перевод программы из Pascal в VBA
Помогите перевести в vba 1 program Matrix20; var a:array of real; Mult:real;...

Перевод программы с Pascal в VBA
Помогите, пожалуйста, перевести код Procedure Hord(A,B:Real; E:Real; var X, Fx:Real;n:integer); ...

1
Vlad999
3022 / 1846 / 576
Регистрация: 02.11.2012
Сообщений: 4,676
06.02.2019, 16:03 2
как то так.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Begin20()
'Writeln('Введите значение координат первой точки: ');
'Write('Введите значение x: ');
'Readln(x1);
x1 = InputBox("Введите значение x1", "Введите значение координат первой точки:")
'  Write('Введите значение y: ');
'  Readln(y1);
y1 = InputBox("Введите значение y1", "Введите значение координат первой точки:")
'  Writeln('Введите значение координат второй точки: ');
'  Write('Введите значение x: ');
'  Readln(x2);
x2 = InputBox("Введите значение x2", "Введите значение координат второй точки:")
'  Write('Введите значение y: ');
'  Readln(y2);
y2 = InputBox("Введите значение y2", "Введите значение координат второй точки:")
'  L:=sqrt(sqr(x1-x2)+sqr(y1-y2));
L = ((x1 - x2) ^ 2 + (y1 - y2) ^ 2) ^ 0.5
'  Writeln('Расстояние между точками равно: ',L);
MsgBox "Расстояние между точками равно: " & L
End Sub
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.02.2019, 16:03

Перевод программки с Pascal в VBA
Помогите пожалуйста перевести эту прогу в VBA const n=10; k=3; var a:array of integer; ...

Перевод из Pascal в VBA (написать макрос)
Здравствуйте. Я только знакомлюсь с языком VBA. Мне нужно написать макрос, который будет...

Перевод на VBA с c++
Перевод на VBA с c++ Ввести строку, состоящую только из цифр и букв. Распечатать те группы цифр,...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru