Программирование вложенных циклов - VB
Формулировка задачи:
Дано целое число N и набор из N вещественных чисел: A1, A2, …, AN. Вывести следующие числа:
A1, (A2) в квадрате, …, (AN-1) в степени N-1, (AN) в степени N.
Решение задачи: «Программирование вложенных циклов»
textual
Листинг программы
Option Explicit Private Sub Form_Load() Me.AutoRedraw = True Liss_Ксюша End Sub Sub Liss_Ксюша() 'Дано целое число N и набор из N вещественных чисел: A1, A2, …, AN. Вывести следующие числа: 'A1, (A2) в квадрате, …, (AN-1) в степени N-1, (AN) в степени N. Dim N As Long 'Дано целое число N N = InputBox("Введите N: ", , 5) ReDim A(1 To N) As Double 'и набор из N вещественных чисел (пока что весь в нулях) Dim I As Long, J As Long Randomize For I = 1 To N 'заполняем набор A(I) = Rnd * N 'случайными Print A(I), '(и покажем [Ctrl+G]) Next I 'вещественными числами Print For I = 1 To N 'Вывести следующие числа: Print A(I) ^ I, 'A1, (A2) в квадрате, …, (AN-1) в степени N-1, (AN) в степени N. Next I End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д