Вычислить сумму целых чисел кратных 4 в интервале от 0 до 200. Выполнить пошаговую компиляцию (трассировку) программы. Решить 3-мя оператор цикла for ; оператор цикла do..while; оператор цикла while.
//PascalABC.NET 3.1 сборка 1200 begin // создаем массив и заполняем случайными числами от -50 до 50 var a := ArrRandom(ReadInteger('n='), -50, 50); //выводим массив a.Println; //находим индекс максимального элемента var max := a.IndexMax(); // выводим значение макс. элемента и его индекса writeln('Max = ', a[max], ' Index = ', max); // заменяем максимальный элемент минимумом a[max] := -50; //находим индекс второго максимального элемента (на данный момент уже первого) max := a.IndexMax; // выводим значение элемента и его индекса writeln('Max = ', a[max], ' Index = ', max); end.
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
begin
// создаем массив и заполняем случайными числами от -50 до 50
var a := ArrRandom(ReadInteger('n='), -50, 50);
//выводим массив
a.Println;
//находим индекс максимального элемента
var max := a.IndexMax();
// выводим значение макс. элемента и его индекса
writeln('Max = ', a[max], ' Index = ', max);
// заменяем максимальный элемент минимумом
a[max] := -50;
//находим индекс второго максимального элемента (на данный момент уже первого)
max := a.IndexMax;
// выводим значение элемента и его индекса
writeln('Max = ', a[max], ' Index = ', max);
end.