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

Максимальное число нормально выводится на экран, а минимальное всегда равно 0

06.05.2012, 14:43. Просмотров 749. Ответов 9
Метки нет (Все метки)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command1_Click()
Dim A1, A2, A3, A, N, i As Integer
N = Val(InputBox("N=", "Ввод N"))
A1 = 1
A2 = 2
A3 = 3
For i = 4 To N
A = (A3 + A2 - 2 * A1)
A1 = A2
A2 = A3
A3 = A
Print ???
  Next i
End Sub
Как вывести на экран А1, А2,...,АN не пойму как в принт ввести эту последовательность)



Дано натуральное число. Определить его максимальную и минимальную цифры.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Command1_Click()
Dim g, n, min, max As Integer
n = Val(InputBox("n=", "Ввод n"))
min = n Mod 10
max = n Mod 10
n = n / 10
If n = 0 Then MsgBox "Число однозначное"
Do While n > 0
g = n Mod 10
If min > g Then min = g
If max < g Then max = g
n = n / 10
Loop
Print "min=", min
Print "max=", max
End Sub
Здесь проблема в том что максимальное число нормально выводится на экран, а вот минимальное пишет = 0...
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.05.2012, 14:43
Ответы с готовыми решениями:

Найти и вывести на экран минимальное или максимальное число
помоги плиз Я ша на экзамене. составить алгоритм и программу решения задачи: в текстовые поля...

Ввести с клавиатуры 6 чисел от -10 до 10. Вывести на экран минимальное и максимальное число и их разность
Ввести с клавиатуры 6 чисел от -10 до 10. Вывести на экран минимальное и максимальное число и их...

Показать чему равно максимальное и минимальное кодовое расстояние n-разрядного двоичного кода
1.Определить число уровней квантовая и число разрядов двоичного кода необходимых для неравномерного...

Почему рандомное число всегда равно 22?
#include &lt;iostream&gt; #include &lt;ctime&gt; using namespace std; int main () { // нужны две...

Если целое число М делится на целое число N, то на экран выводится частное от деления, в противном случае выводится сообщение
Если целое число М делится на целое число N, то на экран выводится частное от деления, в противном...

9
Yorksik
31 / 50 / 2
Регистрация: 10.12.2011
Сообщений: 374
06.05.2012, 16:26 2
По поводу первого кода.
У тебя печать в цикле, врядли условиями задачи он там нужен. Кинь условия задачи я чтот не пойму смысл печати)
0
Alekzinder
0 / 0 / 0
Регистрация: 06.05.2012
Сообщений: 5
06.05.2012, 16:45  [ТС] 3
условие задачи №8
а по поводу 2 задачки?))
0
Миниатюры
Максимальное число нормально выводится на экран, а минимальное всегда равно 0  
Yorksik
31 / 50 / 2
Регистрация: 10.12.2011
Сообщений: 374
06.05.2012, 17:02 4
Вторая завача немного странным способом но всеже
Visual Basic
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
Option Explicit
Private Sub Command1_Click()
Dim a As String 'число
Dim dlina As Double ' длина слова а
Dim max As Integer
Dim min As Integer
Dim i As Integer 'счетчик цикла когда забиваем в массив
Dim p As Integer
Dim j, jj, k As Integer 'счетчик цикла
Dim X() As String
a = Val(InputBox("Введите число", "Ввод числа"))
dlina = Len(a)
ReDim X(1 To dlina)
For i = 1 To dlina
X(i) = Mid(a, i, 1)
Next i
p = 9
min = Val(X(1))
For jj = 2 To dlina
min = p
If min > Val(X(jj)) Then p = Val(X(jj))
Next jj
max = Val(X(1))
For j = 2 To dlina
If Val(X(j)) > max Then max = Val(X(j))
Next j
MsgBox ("минимальное = " & min & " " & "максимальное = " & max)
End Sub
0
Вложения
Тип файла: rar на форум.rar (741 байт, 6 просмотров)
06.05.2012, 17:02
Alekzinder
0 / 0 / 0
Регистрация: 06.05.2012
Сообщений: 5
06.05.2012, 17:08  [ТС] 5
спасиб) разберусь_ а что за вложение там внутри 2 файла в которых пусто
0
Yorksik
31 / 50 / 2
Регистрация: 10.12.2011
Сообщений: 374
06.05.2012, 17:11 6
это прога на вб
0
Alekzinder
0 / 0 / 0
Регистрация: 06.05.2012
Сообщений: 5
06.05.2012, 17:13  [ТС] 7
Цитата Сообщение от Yorksik Посмотреть сообщение
Visual Basic
1
2
3
4
p = 9
min = Val(X(1))
For jj = 2 To dlina
min = p
тут у тебя ошибка
р=9 но тогда и min=9
При вводе числа он определяет максимальное но минимальное во всех случаях пишет 9))

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

Добавлено через 26 секунд
что за прога я не пойму))?
0
Yorksik
31 / 50 / 2
Регистрация: 10.12.2011
Сообщений: 374
06.05.2012, 17:37 8
Все там правильно. Может косо написано это не спорю.
Вот прога уже в vb
0
Вложения
Тип файла: rar Форум.rar (1.4 Кб, 7 просмотров)
Alekzinder
0 / 0 / 0
Регистрация: 06.05.2012
Сообщений: 5
06.05.2012, 17:46  [ТС] 9
спасиб) просто не пойму зачем р приравнивать к 9, оно потом min всё время выдает 9
0
Yorksik
31 / 50 / 2
Регистрация: 10.12.2011
Сообщений: 374
06.05.2012, 22:22 10
Ну ведь находитс минимальную шифру в задавном числе. Чего и требовало условие
0
06.05.2012, 22:22
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.05.2012, 22:22

Найти минимальное положительное число и максимальное отрицательное число среди заданных
Дано N действительных случайных чисел в диапазоне от -100 до 100. Найти минимальное положительное...

Определить максимальное число в первой половине массива и минимальное число во второй
Помогите написать программу пожалуйста!!Вот условие: заполнить массив из N ячеек случайными целыми...

Определить максимальное число в первой половине массива и минимальное число во второй
Помогите написать программу пожалуйста!!Вот условие: заполнить массив из N ячеек случайными целыми...


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

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

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