Консультация № 137570
19.05.2008, 22:28
0.00 руб.
0 2 2
Здраствуйте уважаемые эксперты подскажите пожалуйста код для двух прог на VB: 1) Cгенерирован массив из пяти элементов. Определить сколько в нем элементов которые больше чем предыдущий. 2)Дана фраза требуется записать все символы в обратном порядке.
Заранее благодарен за ответ.

Обсуждение

Неизвестный
20.05.2008, 05:43
общий
это ответ
Здравствуйте, Яковлев Вячеслав Геннадьевич!
for i=1 to 4
if a(i)>a(i-1) then s=s+1
next

for i=len(f) to 1 step -1
nf=nf & mid$(f,i,1)
next
Неизвестный
20.05.2008, 15:30
общий
это ответ
Здравствуйте, Яковлев Вячеслав Геннадьевич!

код в приложении

удачи.


Приложение:
1)Dim chisla(4), bol, i As IntegerFor i = 0 To 4 chisla(i) = Int(Rnd() * 100 + 1)Next iFor i = 1 To 4 If chisla(i) > chisla(i - 1) Then bol = bol + 1Next iPrint bol2)Dim i As IntegerDim inpstr, outstr As Stringinpstr = "input string" ‘ не знаю откуда строку брать будетеFor i = 1 To Len(inpstr) outstr = outstr + Right(inpstr, 1) inpstr = Left(inpstr, Len(inpstr) - 1)Next iPrint outstr
Форма ответа