Модераторы: Akina
  

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Проблемы с Basic! 
:(
    Опции темы
euronimous
Дата 22.5.2004, 13:32 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Помогите!Кто нибудь знает как решать задачи в QBasic? Очень срочно нужно!Кто нибудь,если не в лом, напишите решение задачи! Вот условие. Написать прогу определения в бригаде из N человек рабочих,получающих зарплату выше средней. Заранее благодарен.

  Вверх
Naghual
Дата 22.5.2004, 13:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
На мой взгляд твой вопрос несколько нарушает сам принцип данного форума.
Мы здесь не выполняем домашние задания, но помогаем! А тебе не помощь нужна а готовое решение.
Или все-таки помощь?
Тогда начни решать сам. Столкнешся с проблемой - спрашивай.

А тему то как назвал!

Это сообщение отредактировал(а) Naghual - 22.5.2004, 13:55


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
LAGO
Дата 23.5.2004, 00:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 86
Регистрация: 12.3.2004
Где: Москва.

Репутация: нет
Всего: нет
что то условие вообще не понятно....

смысл задачи? то есть что нужно найти?
PM MAIL WWW   Вверх
Guest
Дата 23.5.2004, 11:19 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Я так думаю список из двух столбцов в одном фамилии рабочих в другом их зарплата .И запрос на выборку с условием - второй столбец выше средней.Зараее извиняюсь за свои советы.
  Вверх
Гость_Александр
Дата 13.10.2004, 16:37 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Просто посчитать среднее арифметическое из зарплат и все зарплаты, которые больше этой фигни - вывести с их владельцами!! smile.gif
  Вверх
~FoX~
Дата 14.10.2004, 09:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 10
Всего: 68
Код

OPTION BASE 1
CLS
DIM n, i, k AS INTEGER 'Вспомагательные переменные
DIM sr AS DOUBLE 'Средняя зарплата
'$DYNAMIC
DIM a(1) AS INTEGER 'Массив зарплат
DIM b(1) AS INTEGER 'Массив зарплат больше среднего

RANDOMIZE TIMER
n = 10 ' Кол во рабочих
sr = 0
k = 1

REDIM a(n) '
FOR i = 1 TO n
a(i) = RND * 100 'Заполняем массив зарплат от 0 до 100
NEXT i

FOR i = 1 TO n
 sr = sr + a(i)' Считаем сумму зарплат
NEXT i
 sr = sr / n ' считаем среднее

FOR i = 1 TO n
 IF a(i) > sr THEN ' Если зарплата выше средней
    k = k + 1
    REDIM b(k) 'переопределяем размерность массива
    b(k) = a(i) 'Записываем значение в массив
    PRINT b(k)'Рисуем его на экране
 ELSE
 END IF
NEXT i

Проверить не могу, нет QB под рукой, но по моему все должно работать.
А с владельцами сам разберешся, сделаешь массивчик двухмерным

Это сообщение отредактировал(а) ~FoX~ - 14.10.2004, 09:20


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
cardinal
Дата 14.10.2004, 09:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
А ELSE нафига или в QB так положено?


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
~FoX~
Дата 14.10.2004, 09:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 10
Всего: 68
cardinal
Нет, просто привычка biggrin.gif
Такой вот я чепарный tounge.gif


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
  
 Закрытая темаСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0855 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.