Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
QBasic Програмный элемент накопление https://www.cyberforum.ru/qbasic/thread194488.html
http://s014.***********/i326/1011/9e/0fb1f3be8ec8.jpg помогите выполнить пожалуйста а то не рублю
Найти сумму и количество элементов в массиве QBasic
Люди, help me.%-) В массиве из 10 элементов найти и отпечатаь сумму и количество элементов до первого элемента, большего 7. Надо составить программу и нарисовать блок-схему.
Массив QBasic
Помогите решить задачку пожалуйста
QBasic Ребята нужно написать програмку. вот только формулу вообще не понимаю. а програмку создать надо))) Ребят помогите надо . составить программу для вычисления значения функции Добавлено через 17 минут Всё спасибо. https://www.cyberforum.ru/qbasic/thread193398.html
QBasic Составить программу для построения таблицы значений х и у для функции https://www.cyberforum.ru/qbasic/thread193355.html
Составить программу для построения таблицы значений х и у для функции у=х/(х+1)-4.3х при изменении х в диапазоне с шагом 0,5. В колонках должны быть п, х, у>0, y>0, где п - номер по порядку.
QBasic сортировка символов
помогите отсортировать CLS DIM i AS INTEGER, j AS INTEGER, k AS INTEGER A$ = "2C35IA4" k = LEN(A$) DIM mas(k) AS STRING PRINT "kolichestvo znakov-->"; k
снова подсчет ряда QBasic
Здраствуйте господа,требуется помощь в создании программы. Найти сумму членов последовательности, при Z изменяющемся от 1 до 2, с шагом 0,1,с точностью Eps=10^(-4). Проверить вычислением y = sin...
QBasic Составить программу для вычисления значения функции СОСТАВИТЬ ПРОГРАММУ ДЛЯ ВЫЧИСЛЕНИЯ ЗНАЧЕНИЯ ФУНКЦИИ. РЕЗУЛЬТАТЫ ВЫДАТЬ НА ПЕЧАТЬ: вот ссылка на саму формулу: я не бум-бум в этом((( https://www.cyberforum.ru/qbasic/thread193155.html
QBasic масивы https://www.cyberforum.ru/qbasic/thread192850.html
помогите составить програму Найти номер и значение наибольшего кратного 5 элемента массива произвольной размерности
QBasic Вычислить значение выражения y = SQR(LOG(x ^ 2 + 5) / LOG(7)) * SQR(LOG(x ^ 2 + 7) / LOG(9)) ^ 1 / 3 https://www.cyberforum.ru/qbasic/thread192792.html
Shkap
Оранжевый портфель.
60 / 58 / 47
Регистрация: 13.11.2010
Сообщений: 459
23.11.2010, 17:40 0

Подсчитать число студентов, не имеющих 2 и 3

23.11.2010, 17:40. Просмотров 765. Ответов 11
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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

Добавлено через 26 минут
Цитата Сообщение от кот Бегемот Посмотреть сообщение
не можешь с*ать, не мучай ж*пу
когда я не могу какать я пью слабительное,
если я не мог выйти в интернет в моем коде получалась какая то хня не буду же я ее выкладывать, но я помучал (_|_) и получил
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
CLS
INPUT "kolichestvo studentov"; n
DIM otsenki(n * 4)
DIM familiy(n) AS STRING
FOR y = 1 TO n
PRINT "vvedity nazvanie studenta nomer"; y
INPUT familiy$(y)
NEXT y
FOR i = 0 TO n * 4 - 1
l = i MOD 4 + 1
IF l = 0 THEN l = 1
1 PRINT "otsenka nomer"; l; "studenta"; " "; familiy$(i \ 4 + 1)
INPUT otsenki(i + 1)
IF otsenki(i + 1) = 4 OR otsenki(i + 1) = 5 OR otsenki(i + 1) = 2 OR otsenki(i + 1) = 3 THEN m = 3 ELSE GOTO 1
NEXT i
PRINT
CLS
FOR x = 1 TO n
PRINT familiy$(x)
PRINT "otsenki";
FOR e = 1 TO 4
PRINT otsenki(e + (x - 1) * 4);
l = e
IF otsenki(e + (x - 1) * 4) = 2 OR otsenki(e + (x - 1) * 4) = 3 THEN dvoek = dvoek + 1
IF otsenki(e + (x - 1) * 4) = 2 OR otsenki(e + (x - 1) * 4) = 3 THEN EXIT FOR
NEXT e
FOR e = l + 1 TO 4
PRINT otsenki(e + (x - 1) * 4);
NEXT e
PRINT
PRINT
NEXT x
PRINT n - dvoek
вроде эта работает

Вернуться к обсуждению:
Подсчитать число студентов, не имеющих 2 и 3
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.11.2010, 17:40

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Подсчитать число студентов, не имеющих оценок 2 и 3
Напишите Паскаль-программу, где вводя в цикле по 5 оценок каждого студента, подсчитывается число...

Подсчитать число студентов, имеющих все отличные оценки в группе
Подсчитать число студентов, имеющих все отличные оценки в группе IKS. Вывести фамилии, имена,...

Вводя в цикле по 5 оценок каждого студента, подсчитать число студентов, не имеющих оценок 2 и 3
Помогите пожалуйста запутался) Вводя в цикле по 5 оценок каждого студента, подсчитать число...

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