Sub Main() Dim n, i, s As Integer Console.Write("Введите число N") n = Console.ReadLine s = 0 For i = 1 To n s = s + i * i Next Console.Write(s) n = Val(Console.ReadLine)
End Sub
End Module
2. Приложение Windows Forms: На форме 3 объекта: TextBox1 - для ввода N Textbox2 - для вывода суммы квадратов Button1 - чтобы запустить процесс вычислений
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, s As Integer s = 0 For i = 1 To Val(TextBox1.Text) s = s + i * i Next TextBox2.Text = s End Sub End Class
Модификация(көне латынша modіfіcatіo, латынша modus – өлшем, түр және fаcіo – жасаймын) – организмнің белгілері мен қасиеттерінің (фенотипінің) сыртқы орта факторларының әсерінен генотипке байланыссыз (тұқым қуаламай) өзгеруі. Модификациялық өзгергіштікті тудырушы факторларға сыртқы ортаның температурасы, жарық, қоректену жағдайы, т.б. жатады. Модификацияға ұшырамайтын белгі не қасиет болмайды, бірақ организмнің әрбір белгісінің өзгеруінің белгілі бір шегі болады, оны өзгергіштіктің реакция нормасы деп атайды. Организмдегі әр түрлі белгілердің реакция нормасы түрліше болады. Мысалы, сиырдың сүттілігінің реакция нормасы жоғары болады, ал сүтінің майлылығы мал тұқымына тән тұрақты қасиет. Бірақ сиырды дұрыс бағып-күтсе, оның сүттілігін арттырып, сүтінің майлылығын жоғарылатуға, яғни өзгертуге болады. Ал сиырдың түсін (реңін) алатын болсақ, ол өте аз өзгереді, яғни реакция нормасы өте төмен. Модификация мутациялық өзгергіштік сияқты тұқым қуаламайды, бірақ ұзақ уақыт сақталуы мүмкін. Модификация организмнің онтогенез барысындағы өзгеруінің сыртқы орта факторына бейімделуін қамтамасыз етеді.
Module Module1
Sub Main()
Dim n, i, s As Integer
Console.Write("Введите число N")
n = Console.ReadLine
s = 0
For i = 1 To n
s = s + i * i
Next
Console.Write(s)
n = Val(Console.ReadLine)
End Sub
End Module
2. Приложение Windows Forms:
На форме 3 объекта:
TextBox1 - для ввода N
Textbox2 - для вывода суммы квадратов
Button1 - чтобы запустить процесс вычислений
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, s As Integer
s = 0
For i = 1 To Val(TextBox1.Text)
s = s + i * i
Next
TextBox2.Text = s
End Sub
End Class
Модификация(көне латынша modіfіcatіo, латынша modus – өлшем, түр және fаcіo – жасаймын) – организмнің белгілері мен қасиеттерінің (фенотипінің) сыртқы орта факторларының әсерінен генотипке байланыссыз (тұқым қуаламай) өзгеруі. Модификациялық өзгергіштікті тудырушы факторларға сыртқы ортаның температурасы, жарық, қоректену жағдайы, т.б. жатады. Модификацияға ұшырамайтын белгі не қасиет болмайды, бірақ организмнің әрбір белгісінің өзгеруінің белгілі бір шегі болады, оны өзгергіштіктің реакция нормасы деп атайды. Организмдегі әр түрлі белгілердің реакция нормасы түрліше болады. Мысалы, сиырдың сүттілігінің реакция нормасы жоғары болады, ал сүтінің майлылығы мал тұқымына тән тұрақты қасиет. Бірақ сиырды дұрыс бағып-күтсе, оның сүттілігін арттырып, сүтінің майлылығын жоғарылатуға, яғни өзгертуге болады. Ал сиырдың түсін (реңін) алатын болсақ, ол өте аз өзгереді, яғни реакция нормасы өте төмен. Модификация мутациялық өзгергіштік сияқты тұқым қуаламайды, бірақ ұзақ уақыт сақталуы мүмкін. Модификация организмнің онтогенез барысындағы өзгеруінің сыртқы орта факторына бейімделуін қамтамасыз етеді.