Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Power Basic

Страница: 1 |

 

  Вопрос:  помогите.... Добавлено: 21.05.05 11:02  

Автор вопроса:  Meinou
не power basic, намного проще, но я первый раз в жизни вижу QBasic, учебник прочитать не успеваю...а к субботе надо...
1. Дан одномерный массив числовых значений, насчитывающий N эле-ментов. Вместо каждого нулевого элемента поставить сумму двух пре-дыдущих элементов массива.
2. Заданы М строк символов, которые вводятся с клавиатуры. Каждая заданная строка представляет собой текст. Оставить в этих текстах только строчные буквы.
3. Вычислить количество и среднее арифметическое вводимых четных и нечетных чисел. При вводе нуля закончить работу.
4. Решить задачу, связанную с оценкой экономической деятельности группы предприятий на основе известных данных:
· Название предприятий
· Среднесписочное количество работников
· Площадь торговых залов
Требуется определить:
a) площадь торговых залов, приходящихся на одного работника (по каж-дому предприятию),
b) количество предприятий, где площадь торговых залов, приходящихся на одного работника больше, чем средний показатель по всем фирмам,
c) наибольшую площадь торговых залов.
d) Упорядочить предприятия по возрастанию площади торговых залов.
помогите бедной школьнице!!!!!!!!

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 Morpheus



Вопросов: 224
Ответов: 3777
 Web-сайт: xury.zx6.ru
 Профиль | | #1
Добавлено: 21.05.05 16:28
#1

'массив начинается с единицы
for i=3 to N
   if k(i)=0 then k(i)=k(i-2)+k(i-1)
next
'только вот уже изменённые нули на сумму в последствии тоже будут считаться!!!!!!!!
'чтобы этого не было, сойздай массив j=k и пиши

if k(i)=0 then k(i)=j(i-2)+j(i-1)

Ответить

Номер ответа: 2
Автор ответа:
 Morpheus



Вопросов: 224
Ответов: 3777
 Web-сайт: xury.zx6.ru
 Профиль | | #2
Добавлено: 21.05.05 16:39
#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

Ответить

Номер ответа: 3
Автор ответа:
 Guess_who



Вопросов: 1
Ответов: 4
 Профиль | | #3 Добавлено: 24.05.05 00:22
Блин, народ, помогите! мне надо завтра сдать такую задачку. Надеюсь, что для вас она пустяковая. Просто срочняк надо:
Составить процедуру сортировки по возрастанию значений отрицательных и по убыванию значений положительных элементов в массиве В(k)(k - заданное число)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам