0 / 0 / 0
Регистрация: 14.05.2012
Сообщений: 19
1

Дано натуральное число п. Переставить первую и последнюю цифры этого числа

18.05.2012, 09:16. Показов 3358. Ответов 8
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Задача 3.
Дано натуральное число п. Переставить первую и последнюю цифры этого числа.
Задача 4.
Вводится последовательность ненулевых чисел, завершаемая нулем. Определить, сколько раз в ней меняется знак.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.05.2012, 09:16
Ответы с готовыми решениями:

Дано натуральное число п. Переставить первую и последнюю цифры этого числа
Помоги пожалуйста. Видел это задание на языках Паскаль и Basic. Но на Qbasic не нашёл.Буду...

Дано натуральное число n. Переставить местами первую и последнюю цифры этого числа
Дано натуральное число n. Переставить местами первую и последнюю цифры этого числа.

Дано натуральное число л. Переставить местами первую и последнюю цифры этого числа
Дано натуральное число л. Переставить местами первую и последнюю цифры этого числа.

Дано натуральное число n. Переставить местами первую и последнюю цифры этого числа
Дано натуральное число n. Переставить местами первую и последнюю цифры этого числа. Помогите...

8
Модератор
Эксперт функциональных языков программированияЭксперт Python
37065 / 20518 / 4245
Регистрация: 12.02.2012
Сообщений: 33,895
Записей в блоге: 14
18.05.2012, 17:39 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function swapnum(n as integer) as integer
Dim Tmp as String
 
      If (n < 10) then
 
         swapnum=n
 
      Else
 
         Tmp=Cstr(n)
 
         Tmp=Right$(Tmp$,1) & Mid$(Tmp,2,len(Tmp)-2) & Left$(Tmp,1)
 
         swapnum=Cint(Tmp)
 
      End if
 
End Function
Здесь не анализируется знак числа...
0
0 / 0 / 0
Регистрация: 14.05.2012
Сообщений: 19
18.05.2012, 20:58  [ТС] 3
спасибо))) не могли бы помочь с 4 задачей. буду очень признателен)) заранее спасибо.
0
Модератор
Эксперт функциональных языков программированияЭксперт Python
37065 / 20518 / 4245
Регистрация: 12.02.2012
Сообщений: 33,895
Записей в блоге: 14
18.05.2012, 21:29 4
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function numz(Arr() as integer) as integer
 
Dim i as integer
Dim k as integer
 
     For i=Lbound(A,1) to Ubound(A,1)
 
          If A(i)=0 then exit for
 
          If ((A(i) > 0) And (A(i+1)) < 0)) or _
             ((A(i) < 0) And (A(i+1)) > 0)) then k=k+1
 
    Next i
 
    numz=k    
 
End function
В массиве A нуль должен быть обязательно.
0
0 / 0 / 0
Регистрация: 14.05.2012
Сообщений: 19
18.05.2012, 21:40  [ТС] 5
в бэйсике будет работать??
0
Модератор
Эксперт функциональных языков программированияЭксперт Python
37065 / 20518 / 4245
Регистрация: 12.02.2012
Сообщений: 33,895
Записей в блоге: 14
19.05.2012, 09:45 6
А на чем же я писал?
0
0 / 0 / 0
Регистрация: 14.05.2012
Сообщений: 19
19.05.2012, 10:08  [ТС] 7
Спасибо огромнейшее))))
0
Модератор
Эксперт функциональных языков программированияЭксперт Python
37065 / 20518 / 4245
Регистрация: 12.02.2012
Сообщений: 33,895
Записей в блоге: 14
19.05.2012, 10:12 8
Пардон! В последней функции я малость ошибся - заголовок нужно написать вот так:

Visual Basic
1
Function numz(A() as integer) as integer
0
0 / 0 / 0
Регистрация: 14.05.2012
Сообщений: 19
19.05.2012, 10:18  [ТС] 9
Хорошо))
0
19.05.2012, 10:18
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.05.2012, 10:18
Помогаю со студенческими работами здесь

Дано натуральное число n. Переставить первую и последнюю цифры числа
Дано натуральное число x. Переставить первую и последнюю цифры числа. У меня есть похожая задача....

Дано натуральное число. Переставить первую и последнюю цифры числа n
Дано натуральное число n. Переставить первую и последнюю цифры числа n.

Дано число (н) надо переставить первую и последнюю цифры этого числа
надо решить через while Дано число (н) надо переставить 1-ю последнюю цифры этого числа если можно...

Дано натуральное число n. Переставить местами первую и последнюю цифры числа n
Дано натуральное число n. Переставить местами первую и последнюю цифры числа n.


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru