Вход

Решение задач в QBASIC

Научись общаться с машиной и научи других. Все вопросы связанные с программированием и разработкой программ.

Модератор: AxeL

Сообщение Гость 15 декабря 2008 в 16:49

товарищи, помогите пожалуйста решить такую задачу:
Написать прогу в QBASIC
Сложить два 20-ти значных целых числа. При этом использовать тип %.

Дана вспомогательная информация:

Функция FIX() – округляет выражение с плавающей запятой до его целой части.
Функция INT() – возвращает наибольшее целое, меньшее или равное числовому выражению.

RANDOMIZE[число%] – инициализирует генератор случайных чисел
число% - число используемое для инициализации генератора случайных чисел.

RND – возвращает число между 0 и 1

TIMER – возвращает число секунд, прошедших с полуночи и до текущего момента.

Пример:
RANDOMIZE TIMER ‘инициализирует генератор случайных чисел
X%=INT(RND*100) ‘целое случайное число


Сижу на лабораторной помогайте плиииз
:cry: :cry:
0

СообщениеLaughing Buddha ven0m ven0m 1
Оставил 4722 сообщений с 13 фев 2008
ФР: -100
22 декабря 2008 в 23:46

так что ли? :-D

[code:1]CLS
DIM A%(1 TO 20), B%(1 TO 20), C%(1 TO 21), i%

FOR i% = 1 TO 20
RANDOMIZE TIMER

A%(i%) = INT(RND * 9)
PRINT A%(i%);
NEXT i%
PRINT

FOR i% = 1 TO 20
RANDOMIZE TIMER
B%(i%) = INT(RND * 9)
PRINT B%(i%);
NEXT i%
PRINT

FOR i% = 1 TO 20
C%(i%) = C%(i%) + A%(i%) + B%(i%)
IF C%(i%) >= 10 THEN
C%(i% + 1) = 1
C%(i%) = C%(i%) - 10
END IF
PRINT C%(i%);
NEXT i%
PRINT C%(21)[/code:1]
0

Сообщение Бондаренко 10 февраля 2009 в 21:06

Как сделать 600 ломанных в кубейсике , чтобы конец линии был началом другой..помогите..А? вот что в 6 классе задают!
0

Сообщение Бондаренко 10 февраля 2009 в 21:06

Как сделать 600 ломанных в кубейсике , чтобы конец линии был началом другой..помогите..А? вот что в 6 классе задают!
0

Сообщение Анастасия23 13 мая 2009 в 21:03

Помогите пожалуйста решить задачу в кубейсике! Нужно очень срочно,18 мая 2009 уже нужно сдать!!!! Добрые люди,отзовитесь,помогите.........

Заданы М строк слов, которые вводятся с клавиатуры. Вводится слог (последовательность букв). Подсчитать количество слогов в каждой строке.
0

Сообщение Никк 31 мая 2009 в 03:13

народ может у кого есть идеи по поводу реализации нормального генератора псевдослучайных чисел в QBASIC?
0

Сообщение Гость 31 мая 2009 в 03:18

нашол вот такую весчь но неумею использовать функции...

RANDOMIZE 231
х = RND
RANDOMIZE 231
у = RND

FUNCTION Rand (х, у)
х = RND (-х)
у = RND (-у): IF у = О THEN у = RND (-у)
Rand = (х+у) MOD 1
END FUNCTION
0

Сообщение ефклуееф 6 декабря 2009 в 15:37

Помогите, пожалуйста!!!!!
Задача: сформировать новый массив B из отрицательных элементов одномерного массива А. Ввести результаты с клавиатуры, из тела цикла(операторы DATA READ) и из файла LABRAB8.BAS.

Все это делается через CASE. с клавы и из тела цикла я сделала, а вот из файла не зависимо от количества отрицательных элементов массива А все время выводит ноль......уже чуть ли не плачу.....
0

Сообщение Золя 20 апреля 2010 в 17:16

Помогите пожалуйста решить задачу!Определите сумму и произведение элементов массива B(N) больших модуля числа C, а также среднее арифметическое значение этих элементов. :( в QBasic
0

Сообщение Гость 5 мая 2010 в 17:54

лююююююдииии добрые!!!! хелп!!!!!!!
составить надо программу которая запрашивает 3 числа и проверяет является ли их среднее арифметическое целым числом. я вас очень прошу!!! заранее спасибо)
0

Сообщение NastiC 8 мая 2010 в 15:56

Помогите срешением, плиз.

Выполнить обработку элементов прямоугольной матрицы А имеющей N строк и М столбцов. Все элементы имеют целый ттип. Дано целое число Н. Определить, какие столбцы имеют хотя бы одно такое число, а какие не имеют.
0

Сообщение АФИСОЧКА 20 мая 2010 в 20:14

ЛЮДИ!!!! ПОЖАЛУЙСТА! ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ! ОЧЕНЬ НАДО!!
ДЛЯ МАССИВА А(а1, а2, ...аn) НАЙТИ НАИМЕНЬШИЙ ИЗ ПОЛОЖИТЕЛЬНЫХ ЭЛЕМЕНТОВ И ЕГО ПОРЯДКОВЫЙ НОМЕР.

ПОМОГИТЕ, БУДУ ОЧЕНЬ БЛАГОДАРНА!!!!!
0

Сообщение Гость 24 мая 2010 в 19:39

Помогите пожалуйста решить задачу в QBasic. Найти самое большое слово в тексте введеном с клавиатуры и подсчитать колличество букв в нем
:cry:
0

Сообщение Гость 31 мая 2010 в 21:14

Помогите составить программы оч надо на кубейсике
1) составьте программу определения НОК двух натуральных чисел (ипользовать: НОК*НОД=a*b)
2) Найти произведение всех элементов масива целых чисел меньших 0. Размернось массива 10 Заполнять с клавиатуры
3) В дву мерном масиве целых чисел заменить все элементы меньше суммы элементов первой строки на эту сумму
4) Напишите программу определяющую какая из букв первая или последняя встречаються в задонном слове чаще
0

Сообщение Артур93 18 сентября 2010 в 15:33

Написать программу для решения следующей задачи: если Петя выше Вовы, то первый в строю стоит Петя, и наоборот. Рост мальчиков генерируется случайным образом от 14 до 25.
2. Нарисовать блок-схему алгоитма программы.
0

Сообщение Гость 5 октября 2010 в 19:20

Люди, пожалуйста, помогите решить задачу в бейсике!
Написать программу, которая вычислит произведение всех чисел, генерирующих случайным образом, пока не встретится число 5
Там по-моему надо использовать Do while Loop, и randomize timer
0

Сообщение armegeddon 15 октября 2010 в 18:47

помогите решить задачу.!!!!
X^3 +4*x-4=0
1метод деления отрезка по полам МДОП
2 МЕТОД НЬЮТОНА
3 метод простой итерации
0

Сообщение armegeddon 15 октября 2010 в 18:47

Гость писал(а):Люди, пожалуйста, помогите решить задачу в бейсике!
Написать программу, которая вычислит произведение всех чисел, генерирующих случайным образом, пока не встретится число 5
Там по-моему надо использовать Do while Loop, и randomize timer
помогите решить задачу.!!!!
X^3 +4*x-4=0
1метод деления отрезка по полам МДОП
2 МЕТОД НЬЮТОНА
3 метод простой итерации
0

Сообщение впыпыкыпкупфып 13 ноября 2010 в 16:00

кароч двайте гаварите мне как ннайти сумму цифр числа в QBASICе!!! срочна нада!!!! :?:
0

Сообщение Гость 22 ноября 2010 в 21:51

Люди, помогите пожалуйста:
Два массива размерностями 15 и 10 слить в один, расположив сначала элементы второго, а затем первого. Массивы сгенерировать из отрезка 0:100. Спасибо
0

Сообщение Гость 12 декабря 2010 в 23:29

Напишите пожалуйста программу запращивающую возраст пользователя.Если ему не меньше 16 лет,сообщите, что он имеет право смотреть фильмы для взрослых, в противном случае сообщите,через сколько лет ему будет продоставлено это права!!1
0

Сообщение reapold 18 декабря 2010 в 15:20

Ввести 3 любых числа.Записать их в порядке спадения. :| помогите плз иначе мне :smt021
0
Бессмертный

СообщениеБессмертный opc opc 0
Оставил 17768 сообщений с 29 мар 2007
ФР: 22048
ICQ
18 декабря 2010 в 15:35

reapold, изучай
http://includ.narod.ru/bas5.html
http://www.quickbasic.nm.ru/ifthen.htm
0

Сообщение юрист-ка 26 декабря 2010 в 23:33

Здравствуйте!!!Помогите пожалуйста составить программу на следующую задачу:в течении двух недель человек заключает пари на конных скачках. В первый день он делает ставку в 1 фунт. Во-второй день, чтобы возместить свой проигрыш, он делает ставку в 2 фунта, но снова проигрывает. В третий день ставку в 3 фунта. Он упрямо продолжает увеличивать на 1 фунт свою ставку, но продолжает проигрывать. Вопрос: написать программу, выводящую на экран сумму денег, проигранную этим человеком к концу второй недели. программа QBasic! заранее спасибо
0
Продвинутый

СообщениеПродвинутый Elverion Elverion 1
Оставил 644 сообщений с 10 ноя 2008
ФР: -52215
1 января 2011 в 15:52

[code:1]PRINT 105[/code:1]
0

Сообщение Гость 18 января 2011 в 15:04

Треугольник задан длинами сторон (a,b,c). Найти длины медиан (ma,mb,mc) и радиусы вписанной (Rv) окружностей для этого треугольника.
0
Старик

СообщениеСтарик schade schade 1
Оставил 1125 сообщений с 07 апр 2008
ФР: 17932
WWWICQ
18 мая 2011 в 17:40

Нужен человек со знанием Бейсика, для редактирования программы, срочно! Хорошая оплата :)

добавлено спустя 13 секунд:

писать в лс.
0

Сообщение Улыбка) 24 мая 2011 в 17:47

Народ!!! Перешла в другую шк, а там информатика!!! Я в ней бум бум! Учиительница сказала не аттестует если не решу 2 задачи с помощью Qbasic.
Если есть люди, которые это умеют делать и у которых есть время, то помогите!!!!! Очень надо!
Вот условия задач:
1)Решите линейное уравнение ax=b
2)Элементы заданного массива X=(X1 X2 ...,XN) ПЕРЕУПОРЯДОЧИТЕ СЛЕД ОБРАЗОМ: X = {XN,XN-1,..., X1)
Кто может помогите!!!!Оооочень надо!!!!! :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry:
0
Легенда форума

СообщениеЛегенда форума teran teran 111
Оставил 6638 сообщений с 23 янв 2004
ФР: 146213
24 мая 2011 в 20:24

Перешла в другую шк, а там информатика
а в старой не было чтоли? такое бывает?

зы: время на форуме писать есть, наверное можно и несколько часов на изучение qbasic потратить.
0

Сообщение Свинка 30 мая 2011 в 11:47

решите задачу
массив дан полож и отриц чисел
упорядочить сначала разместив положительные потом отрицательные числа...
ооочень надо, срочно ((
заранее спасибо!!!
0

Сообщение Гость 16 июня 2011 в 16:55

помогите решить задачу. Простая, но плохо шарю в массивах.

Даны три числа x, y, z.
Найти
а) max (x+y+z, xyz)+3
б) min (x2+y2, y2+z2)-4

Спасибо.
0
Легенда форума

СообщениеЛегенда форума teran teran 111
Оставил 6638 сообщений с 23 янв 2004
ФР: 146213
16 июня 2011 в 18:08

Гость писал(а):помогите решить задачу. Простая, но плохо шарю в массивах.

Даны три числа x, y, z.
Найти
а) max (x+y+z, xyz)+3
б) min (x2+y2, y2+z2)-4

Спасибо.
где тут массивы? и что такое х2 и т.п
0

Сообщение Гость 16 июня 2011 в 19:23

Пардон, кривая копипаста х2, у2 и т. д. читай x^2 y^2...

А про массивы - препод сказал. Я попробовал написать, получилось и без массива, но не работает с отрицательными числами.

CLS
INPUT "vvedi x"; x
INPUT "vvedi y"; y
INPUT "vvedi z"; z

a = x + y + z
b = x * y * z
c = x ^ 2 + y ^ 2
d = y ^ 2 + z ^ 2
IF b > a OR d < c THEN
rezmax = b + 3
rezmin = d - 4
ELSE
rezmax = a + 3
rezmin = c - 4
END IF
PRINT "Rezultat summirovannija maksimuma"; rezmax
PRINT "Rezultat vqchitanija minimuma"; rezmin
0
Легенда форума

СообщениеЛегенда форума teran teran 111
Оставил 6638 сообщений с 23 янв 2004
ФР: 146213
16 июня 2011 в 20:07

ну дак а с чего вдруг ему работать правильно? условие если некорректное.
у вас должно быть два условия, первое сравнивает a & B второе b & c в таком случае.
а +3/-4 можно делать уже после этих условий. дабы не повторяться. а можно вообще обойтись без условных операторов, воспользовавшись свойствами модулей и функцией abs (ну или она мб иначе зовется)
0

Сообщение Гость 16 июня 2011 в 21:23

Хотелось бы, пожалуйста, увидеть код всего этого чуда. Поковыряюсь, может пойму, наконец.
0
Легенда форума

СообщениеЛегенда форума teran teran 111
Оставил 6638 сообщений с 23 янв 2004
ФР: 146213
16 июня 2011 в 23:51

Гость писал(а):Хотелось бы, пожалуйста, увидеть код всего этого чуда. Поковыряюсь, может пойму, наконец.


ну если ваш код который выше приведен компилируется с точки зрения синтаксиса то корректный код будет примерно таким:
[code:1]CLS
INPUT "input x"; x
INPUT "input y"; y
INPUT "input z"; z

a = x + y + z
b = x * y * z
c = x ^ 2 + y ^ 2
d = y ^ 2 + z ^ 2
IF b > a THEN
ResultMax = b
ELSE
ResultMax = a
END IF
IF d < c THEN
ResultMin = d
ELSE
ResultMin = c
END IF
PRINT "Rezultat summirovannija maksimuma"; ResultMax +3
PRINT "Rezultat vqchitanija minimuma"; ResultMin - 4[/code:1]
0

Сообщение Maximger 11 октября 2011 в 15:05

Обратись сюда: www.linia.pro тут точно помогут
0

Сообщение ксюша 20 ноября 2011 в 13:54

пожалуйста,помогите решить задачу.
По матрице А(M,N),где М-четное (проверить) построить вектор х из произведения элементов четных строк.заранее спасибо!
0

Сообщение Alina 21 ноября 2011 в 16:42

Всем привет, помогите пожалуйста а то меня завтра просто напросто убьют(((
Нужно решить 2 задачи по программе QBaisic
1) Напишите программу определяющую длину введенной вашей фамилии в символах. Выпишите программу и результат. (моя фамилия ШАЙМУХАМЕТОВА)
2) Напишите программу, которая выведет на экран из слова "информация" не менее 5 различных слов. Результаты выпишите в тетрадь.

помогите пожааалуйста :(
0
Продвинутый

СообщениеПродвинутый Elverion Elverion 1
Оставил 644 сообщений с 10 ноя 2008
ФР: -52215
21 ноября 2011 в 18:13

Basic предназначен для обучения тому, как не надо программировать. Даже C++ по сравнению с ним — верх совершенства.
0

Сообщение ксю 4 декабря 2011 в 14:42

заданы M строк слов,которые вводятся с клавиатуры. Вводится слог(последовательность букв). Удалить данный слог из каждой строки.Помогите решить в QBASIC,пожалуйста.
0

Сообщение Лариса 4 декабря 2011 в 20:25

Дан массив R(M,N). Вычесть из каждого положит. элемента массива сумму номеров строки и столбца,в которой он расположен.Напечатать те элементы,для которых результат остаётся положит.,с указанием их индексов.
0

Сообщение Люба 7 декабря 2011 в 15:32

Помогите решить задачу
нужно составить блог-схему и программу печатующюю
стоимость порции сыра весом 50 гр,100,500и до 1 кг
1 кг сыра стоит 500 руб
решать через FOR NEXT


напишите алгаритм действий, пожалуйста
0
Легенда форума

СообщениеЛегенда форума teran teran 111
Оставил 6638 сообщений с 23 янв 2004
ФР: 146213
7 декабря 2011 в 15:57

"блог-схема" это конечно да..
0
Продвинутый

СообщениеПродвинутый sky_dweller sky_dweller 3
Оставил 463 сообщений с 07 май 2010
ФР: -45529
7 декабря 2011 в 21:34

teran, :-D
Люба, алгоритм такой:
1) думаешь
2) рисуешь блог-схему :-D
3) пишешь программу
0

Сообщение KSENYA 12 декабря 2011 в 18:44

промоделировать деление целого числа A на целое число B для получения целого частного C и целого остатка P.Помогите решить на QBASIC.
0
Почётный форумовец

СообщениеПочётный форумовец Dawn Dawn 0
Оставил 5813 сообщений с 14 авг 2005
ФР: -325
ICQ
12 декабря 2011 в 20:49

KSENYA, задача элементарная, насколько понимаю, нужно вводить два параметра, число А и число Б, на вывод подавать частное от деления и его остаток. Пробовали вообще в QBasic хоть что-то писать?
Остаток от деления:
[code:1]c = a mod b[/code:1]
0

Сообщение kk 16 декабря 2011 в 20:44

Решите пожалуйсто задачу

найти сумму 10 чисел введенных с клавиатуры
0

Сообщение Vlad 26 декабря 2011 в 20:20

kk
Добавлено: Пт Дек 16, 2011 19:44

Решите пожалуйсто задачу

найти сумму 10 чисел введенных с клавиатуры
=================================================
cls
s=0
dim a(1 to 10)
for i= 1 to 10
input "a";a(i)
s=s + a(i)
next
print "Результат ";s
end
0

Сообщение Vlad 27 декабря 2011 в 03:00

Золя
Добавлено: Вт Апр 20, 2010 16:16

Помогите пожалуйста решить задачу!Определите сумму и произведение элементов массива B(N) больших модуля числа C, а также среднее арифметическое значение этих элементов. в QBasic
==================================================
CLS
d = 1
s = 0
n = 5
RANDOMIZE TIMER
c = INT(RND * (15 + 15 + 1) - 15)
PRINT "cluchaynoe chiclo C "; c
DIM B(n)
FOR i = 1 TO n
INPUT "n"; h
IF h > ABS(c) THEN
s = s + h
d = d * h
sr = s / i

END IF
NEXT
PRINT "summa ="; s
PRINT "proizvedenie = "; d
PRINT "serednee arefmeticheskoe"; sr
END
0



Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4