Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

QBasic

Войти
Регистрация
Восстановить пароль
 
Durall
0 / 0 / 0
Регистрация: 09.01.2017
Сообщений: 4
#1

Выведите на экран фразы - QBasic

09.01.2017, 22:25. Просмотров 155. Ответов 3
Метки нет (Все метки)

Дали решить задачу по программированию, прошу помощи, проверьте ответ, если что не так поправьте пожалуйста, заранее благодарен

Задача: Вводятся оценки за контрольные работы по физике и математике. Выведите на экран фразы: "молодец", если их сумма равна или больше 9, в противном случае выведите "подтянись".

Ответ:
INPUT "Оценка по физике"; x
INPUT "Оценка по математике"; y
IF x + y < 9 THEN
PRINT "Подтянись!"
ELSE
PRINT "Молодец!"
END IF
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.01.2017, 22:25
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Выведите на экран фразы (QBasic):

Вывести фразы, слова в которых являются всевозможными перестановками слов исходной фразы - QBasic
по заданной фразе а$ сформировать и вывести фразы,слова в которых являются всевазможными перестановками слов исходной фразы

Выведите на экран прямоугольник из нулей - Basic
Выведите на экран прямоугольник из нулей. Количество строк вводит пользователь, количество столбцов равно 5.

Найдите и выведите на экран значения элементов массива, кратных своим порядковым номером - QBasic
1) Найдите и выведите на экран значения элементов массива, кратных своим порядковым номером. 2)Найдите максимальное значение среди...

Найдите и выведите на экран те элементы, которые имеют длину слова, равную пяти - QBasic
1)задайте символьный массив. Найдите и выведите на экран те элементы, которые имеют длину слова, равную пяти.

Найдите и выведите на экран те слова, которые оканчиваются на букву "Я" - QBasic
Задайте символьный массив. Найдите и выведите на экран те слова, которые оканчиваются на букву &quot;Я&quot; Добавлено через 10 часов 49 минут ...

Рассортировать слова исходной фразы a$ по алфавиту в обратном порядке - QBasic
помогите плиз прогу составить Рассортировать слова исходной фразы a$ по алфавиту в обратном порядке.Информация вводиться с клавиатуры.

3
echs
891 / 1086 / 348
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
10.01.2017, 09:59 #2
Durall
Все верно.
Однако учитывая, что QBasic работает по DOS'ом
русские слова записывают латинскими буквами
например (из вашей программы)
"OCENKA PO PHYSIC"
"OCENKA PO MATHE"
и так далее.
1
STAR WARS
-52 / 11 / 3
Регистрация: 24.11.2016
Сообщений: 79
10.01.2017, 21:00 #3
Для написания русских букв можно использовать LINE CIRCLE PSET или другой способ DRAW
1
echs
891 / 1086 / 348
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
11.01.2017, 10:52 #4
STAR WARS
Конечно буквы можно нарисовать. Но это
очень долго. Вряд ли ТС это нужно.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.01.2017, 10:52
Привет! Вот еще темы с ответами:

Рассортировать символы исходной фразы a$ по алфавиту (исходная информация вводится с клавиатуры) - QBasic
Собственно сама задача: 1) Рассортировать символы исходной фразы a$ по алфавиту (исходная информация вводится с клавиатуры) И ещё...

Выведите на экран 16 случайных чисел 16-ю разными цветами на черный экран - Turbo Pascal
Выведите на экран 16 случайных чисел 16-ю разными цветами на черный экран.в Turbo Pascal 7

Выведите на экран прямоугольник из нулей - Python
Помогите решить... Выведите на экран прямоугольник из нулей. Количество строк вводит пользователь, количество столбцов равно 5.

Выведите на экран элементы последовательности - Pascal ABC
Выведите на экран элементы последовательности an=an-1*nd для n, изменяющегося от 1 до k, a0=0; k и d задаются пользователем


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

Или воспользуйтесь поиском по форуму:
4
Yandex
Объявления
11.01.2017, 10:52
Ответ Создать тему
Опции темы

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