Компьютерде мәтіндерді екілік көрсету үшін көбінесе біркелкі сегіз биттік код қолданылады. Оның көмегімен 256 таңбадан тұратын алфавитті кодтауға болады, өйткені 256 = 2 8 .
Юлия Соколовская1568
15.04.2022
//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.
kun1969
15.04.2022
1. Консольное приложение:
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
компьютерлік алфавитте 256 символ бар.
Объяснение:
Компьютерде мәтіндерді екілік көрсету үшін көбінесе біркелкі сегіз биттік код қолданылады. Оның көмегімен 256 таңбадан тұратын алфавитті кодтауға болады, өйткені 256 = 2 8 .