Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
kileo
0 / 0 / 0
Регистрация: 04.12.2011
Сообщений: 2
1

Тема лабораторной называется: "простейшие программы в QB"

07.12.2011, 19:45. Просмотров 894. Ответов 1
Метки нет (Все метки)

Вроде бы тема лабораторной называется:простейшие программы в QB,но что то не идет у меня работа(картинку с заданием прикрепил),ожидаю помощи.Заранее спасибо,добрый человек
0
Миниатюры
Тема лабораторной называется: "простейшие программы в QB"  
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.12.2011, 19:45
Ответы с готовыми решениями:

Написать программу, реализующую операции ("+","-","*","\",) c комплексными числами
pulkar zombax Написать программу,реализующую операции ("+","-","*","\",)c...

Написать программу,реализующую операции("+","-","*","/") с комплексными числами
Привет!Нужна помощь! Написать программу,реализующую операции("+","-","*","/")...

Для каждой проведенной игры напечатать словесный результат: "выигрыш", "проигрыш" или "ничья"
Даны два массива из n, однозначных чисел. В первом из них записано кол-во...

Какие св-ва одинаковые для управляющих элементов "Кнопка", "Переключатель", "Флажок", "Текстовое поле"
Какие св-ва одинаковые для управляющих элементов "Кнопка", "Переключатель",...

Определить количество ключевых слов "While", "FOR", "Input"
Ввести текст бейсик-программы(10-15 строк). Определить количество ключевых слов...

1
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
15.06.2016, 09:49 2
Лучший ответ Сообщение было отмечено как решение

Решение

проверено

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
DECLARE FUNCTION max! (a!, b!)
DECLARE FUNCTION min! (a!, b!)
CLS
 
INPUT "A,B = "; a, b
INPUT "X,Y = "; x, y
 
IF x > 0 AND y > 0 THEN
   g = max(max(a / x, b / x), SQR(y))
ELSEIF x < 0 AND y > 0 THEN
   g = min(a / x, SQR(y))
ELSE
   g = 2 ^ (x + y)
END IF
PRINT "G ="; g
END
 
FUNCTION max (a, b)
   IF a > b THEN max = a ELSE max = b
END FUNCTION
 
FUNCTION min (a, b)
   IF a < b THEN min = a ELSE min = b
END FUNCTION
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.06.2016, 09:49

Ищу книгу Я. Т. Гринчишина "Алгоритмы и программы на Бейсике"
я.т. гринчишина &quot;алгоритмы и программы на бейсике&quot; нужна ссылка на...

Занести произвольные данные в одномерный массив и заменить все слова начинающиеся на "а" на символ "0"
Занести произвольные данные в одномерный массив и заменить все слова...

Дан массив с символьными элементами. Заменить все элементы "К" на элемент "C" и подсчитать их количество
REM К na С INPUT &quot;vvedite kol-vo strok massiva&quot;; N INPUT &quot;vvedite kol-vo...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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