Как переписать код Pascal на код VB

@StefaCrimson · Регистрация: 29.09.2013

Студворк — интернет-сервис помощи студентам

Delphi
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
var
  Form1: TForm1;
  n:integer=0;
  s:real=0;
  k:integer=0;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var a:double;
begin
if not trystrtofloat(Edit1.Text,a) then
 begin
  showmessage('Число введено неверно, повторите');
  Edit1.Clear;Edit1.SetFocus;
  exit;
 end
else
 begin
  a:=strtofloat(Edit1.Text);
  Memo1.Lines.Add(floattostrF(a,ffFixed,6,2));
  n:=n+1;
  if a<0 then
   begin
    s:=s+a;
    k:=k+1;
   end;
  Edit1.Clear;
  Edit1.SetFocus;
 end;
if n=10 then
 begin
  Edit1.Enabled:=false;
  if k=0 then Edit2.Text:='Отрицательных чисел нет'
  else Edit2.Text:='Среднее отрицательных='+floattostrF(s/k,ffFixed,6,2);
  Button1.Enabled:=false  
 end;
 
end;

@vodav · 13.10.2013, 14:40

1. Выучить Pascal.
2. Разобраться в алгоритме кода программы на Pascal.
3. Выучить VB.
4. Переписать программу в кодах VB.

fireday · 17.10.2013, 21:17

руками
знаний языков вообще нету?

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

@vodav 572 / 141 / 37 Регистрация: 12.03.2012 Сообщений: 403
	13.10.2013, 14:40
	Сообщение было отмечено как решение Решение 1. Выучить Pascal. 2. Разобраться в алгоритме кода программы на Pascal. 3. Выучить VB. 4. Переписать программу в кодах VB. 1

fireday 307 / 138 / 6 Регистрация: 17.04.2013 Сообщений: 1,943
	17.10.2013, 21:17
	руками знаний языков вообще нету? 0

Как переписать код Pascal на код VB

Решение