Найти и вывести на экран минимальное или максимальное число

@samvel00077 · Регистрация: 10.04.2011

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

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

@SpeedCuber · 19.03.2012, 22:57

хоть наверно уже и поздно, то на форме будет 4 текстовых поля, text1,text2,text3,text4 и кнопка, в процедуре кнопки пишешь следующий код:

VB.NET

Dim a As integer
Dim b As integer
Dim c As integer
 
Dim Min As Integer
a=Val(Text1.Text)
b=Val(Text2.Text)
c=Val(Text3.Text)
 
Min=0
If Chek1.Change Then
If a<b and a<c Then
Min=a
Text4.Text="Минимальное число=" & " " & Str(Min)
ElseIf b<c And b<a Then
Min=b
Text4.Text="Минимальное число=" & " " & Str(Min)
Else Min=c
Text4.Text="Минимальное число=" & " " & Str(Min)
End if
 
ElseIf Chek2.Change Then
Max=0
If a>b and a>c Then
Max=a
Text4.Text="Максимальное число=" & " " & Str(Max)
ElseIf b>c And b>a Then
Max=b
Text4.Text="Максимальное число=" & " " & Str(Max)
Else Max=c
Text4.Text="Максимальное число=" & " " & Str(Max)
End if 
End if

Должно всё работать(так как не компилировал)под рукой нет VB

@samvel00077 0 / 0 / 0 Регистрация: 10.04.2011 Сообщений: 61
		1
	Найти и вывести на экран минимальное или максимальное число 19.03.2012, 14:12. Показов 1888. Ответов 1 Метки нет (Все метки) помоги плиз Я ша на экзамене. составить алгоритм и программу решения задачи: в текстовые поля вводятся три числа. Найти и вывести на экран минимальное или максимальное ( в зависимости от установленного переключателя) из этих чисел помогите плиз...... 0

	19.03.2012, 22:57

Опции темы