программа в qbasic

Fav · 11.06.2014, 21:12

CLS
CONST A=1
CONST B=2
CONST C=3
PRINT «Vvedite I»
INPUT I
IF I>=4 AND I<=6 THEN
W=I
PRINT «W=» , W
ELSE
IF I<4 THEN
W=A/I+B*I^2+C
PRINT «W=» ,W
ELSE
IF>6 THEN
W=A*I^3+B*I^3
PRINT «W=» ,W
END IF
END IF
END IF
END

вот скажите почему если не прописывать константы(которые я добавил от себя) которых нет в условии задачи то программа при вводе i меньше 4 или больше 6 то она выдает ноль вместо буквенного выражения? или basic не может работать с буквенными значениями?

Serega_490101 · 11.06.2014, 21:27

Так получается потому, что если их не прописать по умолчанию они равны нулю и при подстановке в функцию W они приравнивают её нулю.
A, B и C нужно или прописать в константах, или ввести через INPUT, как в случае с переменной I

Fav · 11.06.2014, 22:08

так мне и пришлось их прописать, а никак не получется чтобы a b и с были в уравнении именно как a b и с. пробовал присваивать им константу буквенную пишет ошибка синтаксиса.

Serega_490101 · 11.06.2014, 22:34

Если нужно вывести саму функцию W, а не её результат, то тогда нужно делать так:

Код:

CLS
PRINT "Vvedite I"
INPUT I
IF I >= 4 AND I <= 6 THEN
PRINT "W=", I
ELSE
IF I < 4 THEN
PRINT "W=", "A/", I, "+B*", I, "^2+C"
ELSE
IF I > 6 THEN
PRINT "W=", "A*", I, "^3+B*", I, "^3"
END IF
END IF
END IF
END

Fav · 11.06.2014, 23:05

точно! спасибо! только там в последнем выражении нужно ^3 без кавычек чтобы он посчитал степень))

Serega_490101 · 11.06.2014, 23:21

Цитата:

Сообщение от Fav

в последнем выражении нужно ^3 без кавычек чтобы он посчитал степень

если степень нужно считать, тогда в двух местах нужно ещё передвинуть запятую и кавычки на позицию после I

Fav · 12.06.2014, 00:18

да это я уже понял, все работает)) Спасибо еще раз!!

11.06.2014, 21:12	#1 (ссылка)
Fav Новичок Регистрация: 11.06.2014 Сообщений: 4 Репутация: 0	программа в qbasic CLS CONST A=1 CONST B=2 CONST C=3 PRINT «Vvedite I» INPUT I IF I>=4 AND I<=6 THEN W=I PRINT «W=» , W ELSE IF I<4 THEN W=A/I+BI^2+C PRINT «W=» ,W ELSE IF>6 THEN W=AI^3+B*I^3 PRINT «W=» ,W END IF END IF END IF END вот скажите почему если не прописывать константы(которые я добавил от себя) которых нет в условии задачи то программа при вводе i меньше 4 или больше 6 то она выдает ноль вместо буквенного выражения? или basic не может работать с буквенными значениями?

11.06.2014, 22:34	#4 (ссылка)
Serega_490101 Стажёр Регистрация: 04.01.2013 Сообщений: 490 Репутация: 57	Если нужно вывести саму функцию W, а не её результат, то тогда нужно делать так: Код: CLS PRINT "Vvedite I" INPUT I IF I >= 4 AND I <= 6 THEN PRINT "W=", I ELSE IF I < 4 THEN PRINT "W=", "A/", I, "+B", I, "^2+C" ELSE IF I > 6 THEN PRINT "W=", "A", I, "^3+B", I, "^3" END IF END IF END IF END Последний раз редактировалось Serega_490101; 11.06.2014 в 22:46.*

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
на Win XP х32 у меня не работает QBasic. Помогите!	pchelpmit_nik	Программирование	4	30.06.2013 08:39
Запуск qBasic на win 7 x64	akhalex38	Windows 7	0	04.11.2012 14:25
шрифты в QBASIC	kda	Программирование	0	09.05.2012 13:56
Помогите написать программу в Qbasic	DAmir13	Программирование	15	28.05.2011 21:03
игра на qbasic	as-t	Программирование	2	29.04.2011 16:41

11.06.2014, 21:27	#2 (ссылка)
Serega_490101 Стажёр Регистрация: 04.01.2013 Сообщений: 490 Репутация: 57	Так получается потому, что если их не прописать по умолчанию они равны нулю и при подстановке в функцию W они приравнивают её нулю. A, B и C нужно или прописать в константах, или ввести через INPUT, как в случае с переменной I

11.06.2014, 22:08	#3 (ссылка)
Fav Новичок Регистрация: 11.06.2014 Сообщений: 4 Репутация: 0	так мне и пришлось их прописать, а никак не получется чтобы a b и с были в уравнении именно как a b и с. пробовал присваивать им константу буквенную пишет ошибка синтаксиса.

11.06.2014, 23:05	#5 (ссылка)
Fav Новичок Регистрация: 11.06.2014 Сообщений: 4 Репутация: 0	точно! спасибо! только там в последнем выражении нужно ^3 без кавычек чтобы он посчитал степень))

12.06.2014, 00:18	#7 (ссылка)
Fav Новичок Регистрация: 11.06.2014 Сообщений: 4 Репутация: 0	да это я уже понял, все работает)) Спасибо еще раз!!

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Ads