Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
1 / 1 / 1
Регистрация: 10.04.2013
Сообщений: 7
1

Прошу разобраться задачей плз (qBasic)

10.04.2013, 23:49. Показов 1284. Ответов 4
Метки нет (Все метки)

Дано натуральное число п (возраст).Обеспечить вывод этого числа с соответствующим словом:
«год», «года», «лет».
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.04.2013, 23:49
Ответы с готовыми решениями:

Прошу помочь разобраться с готовой задачей
Привет всем! Прошу разобраться с такой задачей. Наверное многие из вас изучали курс ТОЭ (или хотя...

Помогите с задачей плз!
Добрый день! Вот: вводится число n затем n чисел.Например: 8 1 1 2 3 3 3 10 10 нужно вывести:...

помогите плз с задачей на вывод элементов набора
Люди, помогите плз : Дано вещественное число B, целое число N и набор из N вещественных чисел,...

Прошу справиться с задачей
Ребят привет. Давно читаю данную ветку, но пока не было надобности в просьбах, учусь, завтра...

__________________
4
4795 / 1466 / 392
Регистрация: 25.04.2010
Сообщений: 4,112
Записей в блоге: 1
11.04.2013, 13:17 2
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
CLS
INPUT "Vozrast: ", n
PRINT n;
SELECT CASE n MOD 10
   CASE 0, 5 TO 9: PRINT "let"
   CASE 1: PRINT "god"
   CASE ELSE: PRINT "goda"
END SELECT
1
Заблокирован
11.04.2013, 16:55 3
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
CLS
INPUT "Vozrast: ", n
PRINT n;
SELECT CASE n MOD 100
   CASE 11:  PRINT "let"
   CASE ELSE
     SELECT CASE n MOD 10
       CASE 0, 5 TO 9: PRINT "let"
       CASE 1: PRINT "god"
       CASE ELSE: PRINT "goda"
     END SELECT
END SELECT
1
4795 / 1466 / 392
Регистрация: 25.04.2010
Сообщений: 4,112
Записей в блоге: 1
11.04.2013, 18:26 4
Апострофф, ёпрст как я накосячил, спасибо за правку...

Добавлено через 12 минут
Там в пятой строке иначе, я только щас увидел, а то 12,13,14 пишет "года", а надо "лет".
Блин, но этот момент конечно я жестоко упустил, щас закидают тухлыми помидорами )))
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
CLS
INPUT "Vozrast: ", n
PRINT n;
SELECT CASE n MOD 100
   CASE 11 TO 14:  PRINT "let"
   CASE ELSE
     SELECT CASE n MOD 10
       CASE 0, 5 TO 9: PRINT "let"
       CASE 1: PRINT "god"
       CASE ELSE: PRINT "goda"
     END SELECT
END SELECT
2
5685 / 893 / 298
Регистрация: 25.02.2011
Сообщений: 1,272
Записей в блоге: 1
11.04.2013, 19:14 5
Лучший ответ Сообщение было отмечено как решение

Решение

QBasic/QuickBASIC
1
2
3
4
5
6
7
INPUT n
PRINT n;
IF (n MOD 100) \ 10 = 1 OR (n + 9) MOD 10 > 3 THEN
  PRINT "let"
ELSE
  IF n MOD 10 = 1 THEN PRINT "god" ELSE PRINT "goda"
END IF
QBasic/QuickBASIC
1
2
3
INPUT n
PRINT n;
IF (n MOD 100) \ 10 = 1 OR (n + 9) MOD 10 > 3 THEN PRINT "let" ELSE IF n MOD 10 = 1 THEN PRINT "god" ELSE PRINT "goda"
QBasic/QuickBASIC
1
2
3
4
5
6
7
INPUT n
PRINT n;
SELECT CASE (n + 9) MOD 10 - ((n MOD 100) \ 10 = 1) * 5
 CASE 0: PRINT "god"
 CASE 1 TO 3: PRINT "goda"
 CASE ELSE: PRINT "let"
END SELECT
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.04.2013, 19:14

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

ПРошу справиться с одной задачей по работе
Доброго всем здравия! ПРошу помочь справиться с одной задачей. Исходная обстановка: Есть...

Прошу помощи с задачей. [Права доступа]
Ребят, прошу помочь, дать совет к выполнению следующей задачи: Работаю стандартными...

Ребят, сделайте плз задачки по c# оч прошу
1. Вывести на экран все числа из отрезка : ближайшее меньшее данного число, среди делителей...

Не справляюсь с задачей, прошу кого-нибудь откликнуться
Найти корни x1,x2,x3,x4,x5 системы уравнений: 5.3x1 + 2.1x2 -3.2x3 -1.25x4 +0.5x5 = -3.05 -0.25x1...


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

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

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