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

Из паскаля в VBA

17.05.2018, 04:29. Просмотров 103. Ответов 2
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
Program ololo;
var a, b, s1, s2:real;
begin
writeln("введите радиус круга");
readln(a);
s1:=3.14*a*a;
writeln("введите сторону квадрата");
read(b);
s2:=b*b;
if s1>s2 then write("Площадь круга больше") else if s2>s1 then write("Площадь квадрата больше") else write("Площади равны");
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.05.2018, 04:29
Ответы с готовыми решениями:

Из паскаля в VBA
Переведите, пожалуйста.. var s: string; i,f: byte; begin ...

Перевод с паскаля на VBA
Помогите с переводом var a:arrayof Integer; k,x,i,j,n:Integer; ...

Преобразовать из Паскаля в VBA
Хочу правильно "преобразовать" функцию из Паскаля в VBA , но на выходе все...

Перевод с паскаля на VBA
Помогите первести с паскаля на VBA for i:=0 to n-1 do begin ...

Перевести код с Паскаля на VBA
begin writeln(' ':4,m,u,h,a); writeln(' ':3,'*'); writeln('...

2
snipe
2919 / 1015 / 240
Регистрация: 07.08.2013
Сообщений: 2,573
17.05.2018, 04:48 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub macro1()
Dim a#, b#, s1#, s2#
a = InputBox("Введите радиус круга")
b = InputBox("Введите сторону квадрата")
s1 = 3.14 * a ^ 2
s2 = b ^ 2
If s1 > s2 Then
MsgBox "Площадь круга больше"
Else
    If s1 < s2 Then
       MsgBox "Площадь квадрата больше"
    Else
       MsgBox "Площади равны"
    End If
End If
End Sub
0
Казанский
14334 / 5947 / 1575
Регистрация: 24.09.2011
Сообщений: 9,366
17.05.2018, 09:03 3
Visual Basic
1
2
3
4
Sub ololo()
  MsgBox Array("Площадь круга больше", "Площади равны", "Площадь квадрата больше") _
    (Sgn(InputBox("Введите сторону квадрата") - InputBox("Введите радиус круга") / Sqr(3.14)) + 1)
End Sub
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.05.2018, 09:03

Перевести программу с паскаля на Vba
Срочно народ помогите надо перевести мне 20 программ с Pascal на VBA... Не...

перевести код в VBA с Паскаля
var s:string; i:integer; begin readln(s); for i:=1 to Length(s)...

Перевести программу с Паскаля на VBA
const N=9; var i: integer; Max: integer; A: array of integer; B:...


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

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

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