Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.71/21: Рейтинг темы: голосов - 21, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 17.04.2016
Сообщений: 1

Перевод из Pascal в Visual Basic

01.12.2016, 14:23. Показов 4177. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Добрый день! Я пыталась перевести код программы из Pascal в Visual Basic. Дело в том, что курсовую надо сдавать в Visual Basic, а я его практически не знаю( Помогите пожалуйста, буду очень признательна

Код в BorlandPascal 7.0


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
program kp;
Uses crt;
Const  x=3/4; y=1/2; N=10; h=1/4;
Var s1,f,s,u,u1,g,x_1,y_1: real;
    i : integer;
 
procedure Loop;
var f1,f2,f3,f4,f5:real;
begin
 
 y_1:=y;  x_1:=x; f:=0;
repeat
g:=random(10);
writeln('g=',g);
 
f1:=f;
if (g=0) or (g=4) then begin
 x_1:= x_1 + h;
 f1:=f1-0.25*h*h*(x_1*x_1+y_1*y_1);
 f:=f1;
 end;
 
f2:=f;
if (g=1) or (g=5) then begin
  y_1:= y_1 + h;
 f2:=f2-0.25*h*h*(x_1*x_1+y_1*y_1);
  f:=f2;
  end;
 
f3:=f;
if (g=2) or (g=6) then begin
  x_1:= x_1 - h;
  f3:=f3-0.25*h*h*(x_1*x_1+y_1*y_1);
  f:=f3;
  end;
 
f4:=f;
if (g=3) or (g=7) then begin
  y_1:= y_1 - h;
  f4:=f4-0.25*h*h*(x_1*x_1+y_1*y_1);
  f:=f4;
   end;
 
f5:=f;
if (g=8) or (g=9) then begin
   y_1:=y_1;
   x_1:=x_1;
   f5:=f5-0.25*h*h*(x_1*x_1+y_1*y_1);
   f:=f5;
     end;
until (x_1=0) or (x_1=1) or (y_1=0) or (y_1=1);
 
if y_1=1 then
s:=x_1*x_1;
if (y_1=0) or (x_1=1) then
s:=0;
if x_1=0 then
s:=y_1*y_1;
s1:=s1+s;
writeln('s=',s);
writeln('s1=',s1);
end;
 
begin
 clrscr;
 randomize;
 u:=0; u1:=0;
 for i:=1 to N do begin
 Loop;
 writeln('f=',f);
 u:=u+f+s;
 writeln('u=',u);
 end;
 
u1:=u/N;
 writeln('u1=',u1);
writeln('press any key');
 readkey;
END.



Код в Visual Basic

Visual Basic
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
Option Base 1
Dim x, y, N, h, s1, f, s, u, u1, g, x1, y1, f, f1, f2, f3, f4, f5 As Single
 
Private Sub Command1_Click()
 
x = 3 / 4
y = l / 2
N = 10
h = 4
 
Randomize Timer
P = Rnd * N
    
    
If P = 0 Or P = 4 Then
    x1 = x1 + h
    f1 = f1 - 0.25 * h * h * (x1 * x1 + y1 * y1)
    f = f1
 
If P = 1 Or P = 5 Then
   y1 = y1 + h
   f2 = 2 - 0.25 * h * h * (x1 * x1 + y1 * y1)
   f = f2
 
If P = 2 Or P = 6 Then
  x1 = x1 - h
  f3 = f3 - 0.25 * h * h * (x1 * x1 + y1 * y1)
  f = f3
 
If P = 3 Or P = 7 Then
  y1 = y1 - h
  f4 = f4 - 0.25 * h * h * (x1 * x1 + y1 * y1)
  f = f4
   
   
If P = 8 Or P = 9 Then
   y1 = y1
   x1 = x1
   f5 = f5 - 0.25 * h * h * (x_1 * x_1 + y_1 * y_1)
   f = f5
 
 Else
 
x1 = 0 Or x1 = 1 Or y1 = 0 Or y1 = 1
 
If y1 = 1 Then
s = x1 * x1
If y1 = 0 Or x1 = 1 Then
s = 0
If x1 = 0 Then
s = y1 * y1
s1 = s1 + s
 
Picture1.Cls
u = 0
u1 = 0
 For i = 1 To N
  u = u + f + s
  u1 = u / N
Next i
End Sub
Добавлено через 3 минуты
И да, программа у меня не идет, пишет ошибку
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
01.12.2016, 14:23
Ответы с готовыми решениями:

Перевод из C++ в Visual Basic
Здравствуйте. Прошу вашей помощи. #include "stdafx.h" #include <iostream> #include <cmath> using namespace std; void main() {...

Перевод в Visual Basic
Решить нелинейное уравнение методом простых итераций Ln(x)-x+1.8 = 0 На отрезке По этому уравнению есть программка в Pascal ...

Перевод кода из С++ в Visual Basic 6
Интересует перевод такого момента: читаю файл до конца: char buffer; fscanf(fp, "%s", buffer); хотелось бы узнать как можно...

2
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
04.12.2016, 23:15
if ... then должен закрываться end
1
 Аватар для dr_Morro
195 / 115 / 30
Регистрация: 05.08.2013
Сообщений: 491
08.12.2016, 16:30
Цитата Сообщение от gaw Посмотреть сообщение
if ... then должен закрываться end
Или писаться в одну строку
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
08.12.2016, 16:30
Помогаю со студенческими работами здесь

Перевод программы с С++ на Visual Basic
Ребят, помогите пожалуйста имеется прога, написанная на С++, необходимо перевести ее на бейсик. мозгов не хватает допереть это :D Оба...

Перевод программы C++ -> Visual Basic
Друзья, помогите пож. перевести код с языка C++ в Visual Basic, в котором я не очень хорошо разбираюсь. №1. Составить блок-схему и...

Перевод из Visual Basic в qBasic
Sub My() Dim i As Integer, summ As Single, t As Single Dim x As Integer, f As Boolean t = CSng(InputBox("vvedite")) summ = 0 i...

Перевод кода из паскаля в Visual Basic
помогите перевести в Visual Basic пожалуйста program Proc47; var A,B,C,D,F,E,G,H:integer; p,q:integer; function...

Нужно переделать программу Pascal в Visual Basic
var s,s1:string; k:char; j,w,i,p,sum:integer; begin readln(s); w:=1; repeat k:=s; for i:=1 to length(s) do


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru