Drrragster » 24 май 2009, 13:16
Помогите пожалуйста. Нужно написать программу которая с помощью процедуры находила среди чисел 1,2,...,N такие, которые можно представить в виде суммы квадратов двух натуральных чисел.
Чтобы это выполнялось для одного числа я сделал. А как сделать чтобы это выполнялось для нескольких чисел введенных через запятую, то есть для строки
Вот листинг программы для одного числа:
Код: Выделить всё
Option Explicit
Sub kvad(ByRef n As String, ByRef k As String)
Dim i, j As Integer
k = "нельзя"
For i = 1 To n
For j = 1 To n
If n = (i * i) + (j * j) Then
k = "можно"
End If
Next j
Next i
End Sub
Private Sub Command1_Click()
Dim num As String, kol As String
num = Val(Text1.Text)
kvad num, kol
Print kol
End Sub
Помогите пожалуйста, а то переключившись на Паскаль я позабывал многое из Бэйсика, даже не помню как вводить строки, а учебник нормальный нигде не найдешь
Помогите пожалуйста. Нужно написать программу которая с помощью процедуры находила среди чисел 1,2,...,N такие, которые можно представить в виде суммы квадратов двух натуральных чисел.
Чтобы это выполнялось для одного числа я сделал. А как сделать чтобы это выполнялось для нескольких чисел введенных через запятую, то есть для строки
Вот листинг программы для одного числа:
[code]Option Explicit
Sub kvad(ByRef n As String, ByRef k As String)
Dim i, j As Integer
k = "нельзя"
For i = 1 To n
For j = 1 To n
If n = (i * i) + (j * j) Then
k = "можно"
End If
Next j
Next i
End Sub
Private Sub Command1_Click()
Dim num As String, kol As String
num = Val(Text1.Text)
kvad num, kol
Print kol
End Sub
[/code]
Помогите пожалуйста, а то переключившись на Паскаль я позабывал многое из Бэйсика, даже не помню как вводить строки, а учебник нормальный нигде не найдешь :(