Операции с числами

@MyLogin · Регистрация: 24.03.2013

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

помогите переделать код на VB

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button1Click(Sender: TObject);
var n,m,i,a,b,c:integer;
begin
edit3.Text:='';
n:=strtoint(edit1.Text);
m:=strtoint(edit2.Text);
for i:=n to m do begin
a:=i mod 10;
b:=i mod 100 div 10;
c:=i div 100 mod 10;
if (a=b)and(b=c)and(a=c) then begin
edit3.Text:=edit3.Text+inttostr(i)+' ';
end;
end;
end;

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm1.Button2Click(Sender: TObject);
dim n,m,i,a,b,c,s,a1,b1,c1,d1,s1 as integer
 
 
n:=strtoint(edit1.Text);
m:=strtoint(edit2.Text);
s:=0;
for i:=n to m do begin
a:=i mod 10;
b:=i mod 100 div 10;
c:=i div 100 mod 10;
if (a=b)and(b=c)and(a=c) then begin
s:=s+i;
end;
end;
edit4.Text:=inttostr(s);
a1:=s mod 10;
b1:=s mod 100 div 10;
c1:=s div 100 mod 10;
d1:=s div 100 div 10;
edit5.Text:=inttostr(d1);
edit6.Text:=inttostr(c1);
edit7.Text:=inttostr(b1);

@Апострофф · 13.04.2013, 22:29

MyLogin, приложите условие задачи. Вдруг найдётся лучшее решение?

@MyLogin · 14.04.2013, 03:28 **[ТС]**

Среди трехзначных чисел вывести на экран числа с одинаковыми цифрами в записи, найти сумму этих чисел. Полученное число разбить на цифры и найти сумму этих цифр

говорят ничего сложного, я не новачек в ВБ.....

Добавлено через 1 минуту
в Делфи то проблем вообще нет...

@Апострофф · 14.04.2013, 07:58

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Form_Load()
Dim i%, n%, sum%, s$, msg$
For i = 111 To 999 Step 111
  s = s & i & vbCrLf
  sum = sum + i
Next
msg = s & "Сумма чисел: " & sum & vbCrLf
While sum > 0
  i = sum Mod 10
  msg = msg & i & vbCrLf
  sum = sum \ 10
  n = n + i
Wend
MsgBox msg & "Сумма цифр: " & n
End Sub

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

@Апострофф 9908 / 3926 / 742 Регистрация: 11.10.2011 Сообщений: 5,908
	13.04.2013, 22:29
	MyLogin, приложите условие задачи. Вдруг найдётся лучшее решение? 0

@MyLogin 0 / 0 / 1 Регистрация: 24.03.2013 Сообщений: 29
	14.04.2013, 03:28 [ТС]
	Среди трехзначных чисел вывести на экран числа с одинаковыми цифрами в записи, найти сумму этих чисел. Полученное число разбить на цифры и найти сумму этих цифр говорят ничего сложного, я не новачек в ВБ..... Добавлено через 1 минуту в Делфи то проблем вообще нет... 0

Операции с числами

Решение