Форум программистов, компьютерный форум, киберфорум
Наши страницы
Basic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Basic Немного о FreeBasic http://www.cyberforum.ru/basic/thread686750.html
Чаще всего при начальном использовании какого-то языка , люди стараются выбрать простую, неприхотливую среду. Для FreeBasic можно использовать несколько достаточно мощных сред: 1) FBEDIT (под...
Basic Графика FreeBasic Приветствую всех cyber-форумчан!:) Несмотря на наличие графического треда в младшем разделе, создаю ещё одну тему конкретно для FreeBasic. Считаю, что так будет удобнее, итак друзья, предмет... http://www.cyberforum.ru/basic/thread685865.html
Найти квадраты нечетных чисел в множестве Basic
задано множество целых чисел, как в этом множестве найти удвоенные нечетные числа. например:дано мн-во {1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,25,26.........}, где ...
Basic Перевод текстового значения в числовое в Small Basic
К сожалению не нашел раздела для Small Basic. Пользователь вводит какие-либо цифры, переменная отвечающая за текст считывает их, затем необходимо перевести их в числовое значение. Считывать сразу...
Basic Макрос замены четных и нечетных слов местами http://www.cyberforum.ru/basic/thread678231.html
помогите пожалуйста с таким заданием "сделать макрос для обмена четных и нечетных слов местами" заранее спасибо
Basic С помощью программы magnetism определите силовые линии магнитиого поля круговой петли с током Здравствуйте, помогите с решением одной программкой, есть у меня такая программка которая по задачке в ней "рассматривается круговая петля с током в плоскости x-z и рисуются силовые линии магнитного... подробнее
Pro_grammer
Модератор
6182 / 2266 / 443
Регистрация: 24.04.2011
Сообщений: 4,020
Записей в блоге: 10
02.11.2012, 20:12 0

Определить количество и порядковый номер рабочих которые выполнили задание на 100%

02.11.2012, 20:12. Просмотров 705. Ответов 3
Метки (Все метки)

Ответ

Эх, где мои 16 лет и старушка EC - 1840?
Где вы такие Бейсики берёте? Ну есть же хотя бы QBasic, или тот же FreeBasic...
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
1 REM Заполняем массив с рабочими и процентами
10 DIM A(15)
20 FOR I = 0 TO 15
30 READ A(I)
40 NEXT I
45 REM Читаем из массива кто выполнил план
50 FOR I = 0 TO 15
60 IF A(I) > 99 THEN
70 PRINT " worker -"; I
80 N = N + 1
85 END IF
90 NEXT I
100 PRINT "total workers="; N
105 REM Данные о процентах
110 DATA 60,65,70,75,80,100,60,110
120 DATA 85,115,90,76,80,110,115,65


Вернуться к обсуждению:
Определить количество и порядковый номер рабочих которые выполнили задание на 100%
1
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.11.2012, 20:12
Готовые ответы и решения:

Вывести на экран фамилии тех рабочих, которые выполнили норму
2. В компьютер вводятся фамилии и производительность труда членов бригады. В бригаде N рабочих....

Определить порядковый номер слова, содержащего наименьшее количество символов
Суть задания состоит в том, чтобы определить порядковый номер слова, содержащего наименьшее...

Определить в массиве количество нечетных элементов имеющие ченый порядковый номер
Определить в массиве количество нечетных элементов имеющие ченый порядковый номер p = int()...

Определить порядковый номер числа в последовательности, которое содержит наибольшее количество цифр
2. Дана последовательность чисел. Определить порядковый номер числа, которое содержит наибольшее...

Указатели. Найти количество элементов массива, которые больше 100, меньше 100, равны 100
Разработать функцию,которая находит количество элементов массива,которые больше 100,меньше 100,...

3
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru