Определяет длину предпоследнего слова в vba( программный код)

201

326

Посмотреть ответы 2

Ответы на вопрос:

rami1991

Информатика

4,8(48 оценок)

Sub calcl(byref s) index = 0 for k = len(s) to 1 step -1 if (mid(s, k, 1) = " ") or (mid(s, k, 1) = ".") or (mid(s, k, 1) = ",") then index = k exit for end if next k l = 0 for k = index - 1 to 1 step -1 if mid(s, k, 1) = " " then index = k exit for else l = l + 1 end if next k msgbox "длина предпоследнего слова " + str(l) end sub sub test() call calcl("в данном предложении несколько слов") call calcl("второе предложение более длиннее первого")end sub

Makc457214

Информатика

4,4(32 оценок)

//pascalabc.net 3.1 сборка 1200 begin var n : = readinteger('n='); var a : = matrixrandom(n, n, -10, 10); println(a); for var i : = a.getlowerbound(0) to a.getupperbound(0) do if a[i, a.getlowerbound(1)] < 0 then begin var s1 : = 0; var s2 : = 0; var s3 : = 0; for var j : = a.getlowerbound(1) to a.getupperbound(1) do if i < j then s1 += a[i, j] else if i = j then s2 += a[i, j] else if i > j then s3 += a[i, j]; writeln(i + ': ' + s1 + ', ' + s2 + ', ' + s3); end; end.