Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
1 / 1 / 0
Регистрация: 25.12.2013
Сообщений: 26
1

Как описать процедуру InvertDigits(K), меняющую порядок следования цифр целого положительного числа K на обратный

25.12.2013, 22:12. Просмотров 1668. Ответов 1
Метки нет (Все метки)


Помогите пожалуйста решить задачу
Proc7. Описать процедуру InvertDigits(K), меняющую порядок следования
цифр целого положительного числа K на обратный (K — параметр целого
типа, являющийся одновременно входным и выходным). С помощью этой
процедуры поменять порядок следования цифр на обратный для каждого
из пяти данных целых чисел.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.12.2013, 22:12
Ответы с готовыми решениями:

Описать процедуру, меняющую порядок следования цифр целого положительного числа K на обратный
Описать процедуру InvDigits(K), меняющую порядок следования цифр целого положительного числа K на...

Описать процедуру InvertDigits(K), меняющую порядок следования цифр целого положительного числа K на обратный
Proc7. Описать процедуру InvertDigits(K), меняющую порядок следования цифр целого положительного...

Описать процедуру InvertDigits(K), меняющую порядок следования цифр целого положительного числа K на обратный
Описать процедуру InvertDigits(K), меняющую порядок следования цифр целого положительного числа K...

Описать процедуру, меняющую порядок следования цифр целого положительного числа на обратный
Задание: Описать процедуру InvertDigits(K), меняющую порядок следования цифр целого положительного...

1
Модератор
8384 / 3154 / 824
Регистрация: 22.02.2013
Сообщений: 4,664
Записей в блоге: 78
26.12.2013, 09:23 2
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Private Sub Form_Load()
    Dim i As Long, k As Long
    Me.AutoRedraw = True
    For i = 0 To 4 
        k = Rnd * 100000
        Me.Print k,: Inverse k: Me.Print k
    Next
End Sub
Private Sub Inverse(k As Long)
    k = CLng(StrReverse(CStr(k)))
End Sub
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.12.2013, 09:23

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Описать процедуру, меняющую порядок следования цифр целого положительного числа на обратный
описать процедуру InvertDigits(K),меняющую порядок следования цифр целого положительного числа К на...

Описать процедуру InvertDigits(K), меняющую порядок следования цифр числа на обратный
Описать процедуру InvertDigits(K), меняющую порядок следования цифр целого положительного числа ...

Описать процедуру InvertDigits(K), меняющую порядок следования цифр числа на обратный
2. Proc7. Описать процедуру InvertDigits(K), меняющую порядок следования цифр целого положительного...

Описать функцию, меняющую порядок следования цифр целого положительного числа на обратный
Описать функцию InvertDigits(K), меняющую порядок следования цифр целого положительного числа K на...

Написать функцию InvertDigits(k:longInt):LongInt меняющую порядок следования цифр целого положительного числа
!Нельзя использовать строковый тип данных. !Не рекомендуется изменять остальной код программы....

Описать процедуру InvertDigits(K), меняющую порядок следования цифр
Описать процедуру InvertDigits(K), меняющую порядок следования цифр целого положительного числа K...


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

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

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