Кароче,я сделал 2 списка с рабочим кодом
а вот с 3им проблема,выходит ошибка
это в экселе макрос вижуал бэйсик
.в двух списках записаны числа, указывающие первый член и знаменатель прогрессии. получить в третьем списке 10 первых членов прогрессии.
private sub commandbutton4_click()
dim a as single
dim b as single, m as single, i as integer
a = (listbox1.text)
b = (listbox2.text)
m = a
listbox3.additem str(a), 0
for i = 1 to 9
a= m
m = a* b^ i - 1
listbox3.additem str(m), i
next i
end sub
Если в чмсле первая цифра 4 и вторая цифра 3, то числа от 4300 до 4399
На паскле программа выглядит так
var i, n: integer
begin
uses crt;
for i:= 0 to 99
begin
n = 4300 + i;
write (n);
end;
writeln;
end.
Блок-схема совсем простая, нарисуй сама.
1) Начало (в овале)
2) i = 0 (в прямоугольнике)
3) n = 4300 + i (в прямоугольнике)
4) Вывод n (в параллелограмме)
5) Проверка i > 99 ? (в ромбе). Если нет, возврат на п. 3. Если да, вниз.
6) Вывод пустой строки (в параллелограмме)
7) Конец (в овале)