Безопасный интернет - это... Интернет, стал неотъемлемой частью нашей жизни. Мы используем его разными Для некоторых он служит средством добычи информации. Для других средством развлечений. И некоторые говорят, «с Интернетом стало легче и удобней жить».С одной стороны это весьма неплохо, но если задуматься, то он может доставить кучу проблем. С которыми лучше не сталкиваться. В интернете много всего нецензурного, порнографии и мошенничества, а также выплывающие окна, которые содержат информацию подталкивающие к самоубийству, отказу от приема пищи, убийствам. При этом эти окна появляются независимо от желания пользователя. Контакты с нежелательными людьми с чатов или электронной почты, игровые сайты, но вред интернета заключается, в первую очередь, в зависимости от него, которая превращается в болезнь.Лично я, хочу, чтобы интернет стал безопасным, так как я ученица 7 класса, и часто использую интернет для своих целей (проверить почту, найти реферат, скачать что-нибудь).Со мной не раз случалось такое, что через интернет на мой компьютер проникали вирусы; это было не очень хорошо. Кроме того, злоумышленники один раз вторглись на мой персональный компьютер (ПК). И сделали они это или через электронную почту, или через программы взятые из сети Интернет.Однажды сидя в социальной сети. Вконтакте, которая так распространена среди молодого поколения. Мне пришло сообщение от подруг там было написано «пройди по ссылке, иначе я обижусь» я нажала «пройти» после чего на экране всплыло окно с отправить смс после чего должен был прийти код, которое нужно было вести, чтобы пройти по ссылке. После всего этого с моего лицевого счета было снято триста (300) рублей. Поэтому чтобы Интернет стал безопасным надо просто четко знать, какую информацию вам нужно найти, что важно для вас, а не пытаться открывать прикрепленные к письму файлы, которые приходят вам по электронной почте из неизвестных источников, не запускать программы, в которых вы сомневаетесь.Также верным безопасного Интернета являются антишпионские программы защитить компьютер от всплывающих окон, снижения производительности, угроз безопасности, вызванных программами-шпионами и другими «доброжелательными» программами, которые выполняют определённые действия без нашего ведома, например, показывающие рекламу или отслеживающие личные данные. Всё это – наша безопасность. Для наилучшей защиты правительству нужно создавать различные организации, занимающиеся охраной интернета и которые обезопасить информационное пространство интернета, тем самым защитить нас и наше детство. Надеюсь, что наше поколение, постарается входить в этот мир компьютера и Интернета с широким шагом и внимательностью.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim A() As Integer Dim B() As Integer
Randomize() Dim k As Integer Dim i As Integer i = Rnd() * 100 + 1 ReDim A(i) For k = 0 To i A(k) = Rnd() * -1000 + 500 Next i = Rnd() * 100 + 1 ReDim B(i) For k = 0 To i B(k) = Rnd() * -1000 + 500 Next
1. Dim msg_A As String msg_A = VerifySort(A) If msg_A <> CStr(A.Length) Then MsgBox(msg_A) Else MsgBox("Массив А упорядочен") End If
Dim msg_B As String msg_B = VerifySort(B) If msg_B <> CStr(A.Length) Then MsgBox(msg_B) Else MsgBox("Массив B упорядочен") End If
sort(A) msg_A = VerifySort(A) If msg_A <> CStr(A.Length) Then MsgBox(msg_A) Else MsgBox("Массив А упорядочен") End If
2. Dim h As Integer h = InputBox("Введите h") i = CompareValue(A, h) If i <> UBound(A) Then MsgBox("У массива не все элементы больше h. Значений больше h " & i & " шт.") Else MsgBox("У массива все элементы больше h.") End If
i = CompareValue(B, h) If i <> UBound(B) Then MsgBox("У массива не все элементы больше h. Значений больше h " & i & " шт.") Else MsgBox("У массива все элементы больше h.") End If End Sub
Private Function VerifySort(ByRef Massiv() As Integer) As String Dim i, j, k As Integer Dim msg As String For i = Massiv.Length To 0 Step -1 For j = Massiv.Length - 1 To 1 Step -1 If Massiv(j) < Massiv(j - 1) Then For k = 0 To Massiv.Length - 1 msg = msg & Massiv(k) & vbCrLf Next Return msg End If Next j Next i Return Massiv.Length End Function Private Function sort(ByRef Massiv() As Integer) As Integer Dim i, j, Dump As Integer For i = Massiv.Length To 0 Step -1 For j = Massiv.Length - 1 To 1 Step -1 If Massiv(j) < Massiv(j - 1) Then Dump = Massiv(j) Massiv(j) = Massiv(j - 1) ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 Massiv(j - 1) = Dump End If Next j Next i Return Massiv.Length End Function
Private Function CompareValue(ByRef Massiv() As Integer, ByVal h As Integer) As Integer Dim count As Integer Dim i As Integer For i = 0 To UBound(Massiv) - 1 If Massiv(i) > h Then count = count + 1 ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 Next Return count End Function
Необходимо проверить равенство всех введенных величин
Объяснение:
Прости но это не точно (