Ответы на вопрос:
1. - а)
2. - в)
3. - г)
4. - 3
5. - г)
6. - 38
7. - г)
8. - Write (k, k-, p, p-) - это ерунда какая-то p=120
9) - в), г)
10) -
var m,i,s:integer;
begin
write('m = ');
readln(m);
s:=0;
for i:=1 to m do s:=s+i;
writeln('s = ',s);
end.
Пример:
m = 5
s = 15
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
Популярно: Информатика
-
Eliiiii09919.04.2022 17:43
-
fanaidap29.01.2021 06:05
-
ShamilAshimbaj10.04.2022 15:25
-
fokslov6931.08.2022 00:07
-
Ушастый120931.05.2021 06:47
-
BadKsu12.12.2022 01:46
-
OLEGator80008.09.2021 17:31
-
anisiacom113.03.2021 20:23
-
vadimkamazurke27.11.2020 13:34
-
DalinStreeet11.02.2020 21:39