Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA Resultset ничего не возвращает https://www.cyberforum.ru/ vba/ thread1622773.html
Всем доброго времени суток! Столкнулся с таким казуом, никогда такого не возникало.. Есть макрос, который запускается в аксессовском файле, данные берет из другого файла Dim conn As...
Пройтись по тексту, поменять местами слова VBA
Здравствуйте, дали лабораторную работу по Vba, не объяснив никаких основ( Стоит следующая задача: Найти самое длинное слово в тексте и поменять его местами с самым коротким. Выделить одно из них...
VBA Case if, задать несколько условий
Добрый вечер Private Sub WorkStarts() i1 = Worksheets("Универсальный расчёт").Cells(2, "U").Value i2 = Worksheets("Универсальный расчёт").Cells(3, "U").Value i3 = Worksheets("Универсальный...
VBA Как задать условие проверки того, что вводимое название листа уже есть в этой книге? (Да-да, я не шучу) Простецкую лабу по VBA нужно усложнить тем, чтобы в случае того, что при создании листа расчета и накладной вводится имя, которое уже раньше используется в листах - чтобы ПРОГРАММА выводила... https://www.cyberforum.ru/ vba/ thread1622620.html
VBA Численные методы.Контрольная работа https://www.cyberforum.ru/ vba/ thread1622499.html
Здравствуйте! Не могли бы вы мне помочь решить это задание? Нужно решить одним методом.
В заданном одномерном массиве целого типа найти те элементы, произведение цифр которых равно заданному числу VBA
В заданном одномерном массиве целого типа найти и напечатать те элементы, произведение цифр которых равно заданному числу a, или сообщить, что таких нет. Использовать процедуру нахождения...
VBA VBA
1.Подсчитать, сколько раз встречается введенное с клавиатуры слово, начиная со второго абзаца (считать, что слова в тексте разделены пробелами). 2.Удалить все латинские буквы, расположенные между...
VBA Цикл по всем файлам в папке Добрый день! Подскажите, пожалуйста, какой-нибудь несложный способ перебрать в цикле все книги в текущей папке. Например, чтобы перебрать все ячейки диапазона, можно использовать такую... https://www.cyberforum.ru/ vba/ thread1622277.html
VBA Вызов процедуры внутри функции и создание Combox на листе https://www.cyberforum.ru/ vba/ thread1622228.html
Всем доброго дня! Столкнулся с необходимостью создавать ComboBox на листе (как объект OLE или ActiveX листа, не объект формы) через вызов функции с листа. Второй проблемой стало применение ООП......
VBA Расшерение найденного текста Мне нужно найти в тексте заданное слово, при это расширить выделение слова на n слов влево и на n слов вправо. Это число тоже задано. И закрасить этот текст красным цветом. Я пока нашла только само... https://www.cyberforum.ru/ vba/ thread1622200.html
0 / 0 / 0
Регистрация: 23.12.2015
Сообщений: 2
0

Определить, является ли число перевертышем с учетом четырех цифр

23.12.2015, 06:25. Просмотров 620. Ответов 2
Метки (Все метки)


Здравствуйте уважаемые форумчане! Помогите пожалуйста решить в VBA.

Дано натуральное число N (N<10000). Определить, является ли это число перевертышем с учетом четырех цифр. Например, такими числами являются 2222, 1661, 0440.

В сети нашла решение на языке Pascal(не могу перевести в VBA):

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program prim3;
  uses crt;
  var n, m, a, i: integer;
begin
  clrscr;
{Введем четырехзначное целое число.}
  writeln('N<=9999'); readln(n)
{Запоминаем введенное целое число и задаем начальное значение перевертыша.}
  m:=n;а:=0;
{Организуем цикл с параметром от 1 до 4.}
  for i:=l to 4 do
{Находим перевертыш числа N}
    begin
      а:=а*10+ m mod 10; m:= m div 10;
    end;
{Если A=N, то данное число является перевертышем.}
  if a=n then writeln('DA!')
  else writeln('NO');
  readln;
end.


Вернуться к обсуждению:
Определить, является ли число перевертышем с учетом четырех цифр
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.12.2015, 06:25
Готовые ответы и решения:

Выяснить, является ли число палиндромом ( перевертышем ), с учетом четырех цифр
Дано натуральное число n (n 9999). Выяснить, является ли оно палиндромом ( перевертышем ), с...

Разветвляющийся алгоритм: является ли число палиндромом (перевертышем) с учетом четырех цифр?
Доброго времени суток! Нужна помощь с решением задачи, ибо я вообще не догоняю, как решать эту...

Дано натуральное четырехзначное число n. Определить, является ли это число перевертышем
Дано натуральное четырехзначное число n. Определить, является ли это число перевертышем. Например,...

Определить — является ли данное число перевертышем
Ввести с клавиатуры целое число. Определить - является ли данное число перевертышем, т.е....

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