не power basic, намного проще, но я первый раз в жизни вижу QBasic, учебник прочитать не успеваю...а к субботе надо...
1. Дан одномерный массив числовых значений, насчитывающий N эле-ментов. Вместо каждого нулевого элемента поставить сумму двух пре-дыдущих элементов массива.
2. Заданы М строк символов, которые вводятся с клавиатуры. Каждая заданная строка представляет собой текст. Оставить в этих текстах только строчные буквы.
3. Вычислить количество и среднее арифметическое вводимых четных и нечетных чисел. При вводе нуля закончить работу.
4. Решить задачу, связанную с оценкой экономической деятельности группы предприятий на основе известных данных:
· Название предприятий
· Среднесписочное количество работников
· Площадь торговых залов
Требуется определить:
a) площадь торговых залов, приходящихся на одного работника (по каж-дому предприятию),
b) количество предприятий, где площадь торговых залов, приходящихся на одного работника больше, чем средний показатель по всем фирмам,
c) наибольшую площадь торговых залов.
d) Упорядочить предприятия по возрастанию площади торговых залов.
помогите бедной школьнице!!!!!!!!
'массив начинается с единицы
for i=3 to N
if k(i)=0 then k(i)=k(i-2)+k(i-1)
next
'только вот уже изменённые нули на сумму в последствии тоже будут считаться!!!!!!!!
'чтобы этого не было, сойздай массив j=k и пиши
#2 (Примерно, может быть пара ошибок в коде, но в принципе наверное так)
for j=1 to m
for i=1 to len(s(j))
c=asc(mid(s(j),i,1))
if c>=asc("a" and c<=asc("z" then
'newarr - new array of strings
newarr(j)=newarr(j) & chr(c)
end if
next
next