Составить программы для вычисления значений выражений на GW BASIC

@sveta18 · Регистрация: 14.09.2013

Студворк — интернет-сервис помощи студентам

Здравствуйте Срочно нужна помощь

1 Составить программы для вычисления значений выражений
а) для произвольных значений переменной
б) для заданных значений переменной
в) для значений элементов массива

Y=-16x2+134
y=2(4x2-5)(x+16)

а) 14,1; 15,2; -0,3; -7; 0

б) 11; -12; 13; -14; 15; -16

2 Составить программу для написания текста.
Меня зовут ………..
Я учусь в группе ………..
Мой любимый предмет …………
В понедельник у нас по расписанию …………
Моя будущая специальность ………………………….

@Good-Morning · 14.09.2013, 16:07

1.
(теги что-то не работают...)

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
25
26
27
28
'заявление 2 процедур
SUB f(x,y)
y=-16*x^2+134
END SUB
 
SUB ff(x,y)
y=2*(4*x^2-5)*(x+16)
END SUB
 
'a),b).    не понимаю в чем отличие.
INPUT "x=",x
CALL f(x,y)
? y
CALL ff(x,y)
? y
END
 
'c).
FOR i=1 TO 11
READ x
CALL f(x,y)
? "1).    x="x, "y="y
CALL ff(x,y)
? "2).    x="x, "y="y
NEXT i
END
DATA 14.1, 15.2, -0.3, -7, 0
DATA 11, -12, 13, -14, 15, -16

Добавлено через 18 секунд
Сейчас потестю...

Добавлено через 8 минут
Та-а-ак... Работает.
Теперь буду объяснять как это написать (есть тут примудрости) и как это работает. =)

@sveta18 · 14.09.2013, 16:11 **[ТС]**

хорошо)просто я новичок в этом деле)

@Good-Morning · 14.09.2013, 16:22

На самом верху программы есть 2 процедуры - их можно глазом легко распознать, т.к. они выделены пропусками. Как их написать так, что бы работало? В компиляторе жмем "EDIT" в открывшемся окне "NEW SUB". Вываливается окно - просит компилятор название процедуры. Название процедуры следует в программе после слова "SUB" и до слов "(x,y)".
Т.к. процедуры у нас 2, то, соответственно, повторяем этот алгоритм создания процедуры 2 раза.
Что происходит в процедуре?
В "шапке" написано: "(х,у)". Это значит, что с этими переменными процедура будет работать. В нашем случае мы загружаем на анализ число в переменную х, а получаем результат из у. То, что посылаем процедуре и получаем, мы пишем в вызове процедуры, но об этом позже.
В основой части программы Идет следующий алгоритм:
1). Мы вводим значение аргумента нашей функции (в данном случае, "функция" - математический термин, а не программистский.)
2). Вызываем процедуру. Здесь заострим внимание на скобках:

QBasic/QuickBASIC
1
CALL f(x,y)

call - оператор, он вызывает работу процедуры. f - название вызываемой процедуры. В аргументах х - первое число, "соединяющее" осн. программу и процедуру, у - второе. Процедуры считают значение функции от первой переменной, а значение пишут во вторую переменную. Значит, первое число у нас - аргумент функции, в нашем случае это переменная икс, а второе число - игрек, откуда мы будем брать вывод функции. Надо сказать, что не обязательно писать в вызове процедуры и заявлении одни и те же переменные. Мы вполне могли вызвать процедуру так:

QBasic/QuickBASIC
1
CALL f(1,t)

В этом случае мы загружаем на вычисления число 1, и результат записываем в t.
Дальше проще:
Мы выводим на экран результат, потом опять вызываем процедуру, но на этот раз вторую.
Опять выводим.
О второй программе я попозже напишу...

@sveta18 · 14.09.2013, 16:28 **[ТС]**

Это все по 1 заданию?

@Good-Morning · 14.09.2013, 19:59

По первому, вроде, все.
Вторая, как я понял, элементарная:

QBasic/QuickBASIC
1
2
3
4
5
6
CLS
INPUT "Меня зовут ", NAME$
INPUT "Я учусь в группе ", group$
INPUT "Мой любимый предмет ", subject$
INPUT "В понедельник у нас по расписанию ", timetable$
INPUT "Моя будущая специальность ", fut$  'не помню, как специальность =)

Здесь простой, тупой ввод данных с клавиатуры. Надо лишь отметить, что после комментария (так называется то, то стоит в ковычках после input, на сколько я помню) нужен пробел, т.е. не "фыва пролджэ", а "фыва пролджэ ".

@sveta18 · 15.09.2013, 16:12 **[ТС]**

спасибо большое буду пробовать разбираться в этом во всем

@Good-Morning · 15.09.2013, 16:17

буду пробовать разбираться в этом во всем

А что сейчас непонятно? Я попробую объяснить.

@sveta18 · 15.09.2013, 17:55 **[ТС]**

вы можете помочь последний разок мне?)

буду очень благодарна вам)
или хотя бы уж с одним заданием?

Массивы

1 задание) Составить программу для нахождения суммы элементов массива:

а) для произвольных элементов
б) для заданных элементов
5; 164; -7; -1; 25; 16,3; 9;
79; -5,3; 8,2; 13;21; 69; -8; 17;

2 задание)Составить программу, складывающую соответствующие элементы двух массивов и записывающую результаты в третий массив.

1. Составить программу для подсчета количества отрицательных и положительных чисел в массиве.

2. Составить программу для нахождения наибольшего и наименьшего элементов массива.

3. Составить программу для расположения элементов массива в порядке возрастания значений.

1)1;21;41;61;81;101;121;141
2)10;30;50;70;90;110;130;150

@Good-Morning · 15.09.2013, 20:51

1 a).

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
INPUT "length of the arrey", l
DIM a(1 TO l)
PRINT "input data, please"
FOR i=1 TO l
PRINT "#"+STR$(i)+"=";
INPUT "", a(i)
NEXT i
FOR i=1 TO l
sum=sum+ a(i)
NEXT i
PRINT sum
END

Потестил - работает. Будут вопросы - обращайтесь.

Добавлено через 3 минуты
б).

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
DATA 5, 164, -7, -1, 25, 16.3, 9
DATA 79, -5.3, 8.2, 13,21, 69, -8, 17
FOR j=1 TO 2
sum=0
FOR i=1 TO 7
READ x
sum=sum+x
NEXT i
PRINT "sum of arrey #"+STR$(j)+"="sum
NEXT j

Не тестил, но не думаю, что может не работать.

Добавлено через 6 минут
2.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
INPUT "length of the arrey#1", l
DIM a(1 TO l)
DIM b(1 TO l)
DIM c(1 TO l)
PRINT "input data of arrey#1, please"
FOR i=1 TO l
PRINT "#"+STR$(i)+"=";
INPUT "", a(i)
NEXT i
PRINT "input data of arrey#2, please"
FOR i=1 TO l
PRINT "#"+STR$(i)+"=";
INPUT "", a(i)
NEXT i
FOR i=1 TO l
c(i)=a(i)+b(i)
PRINT c(i)
NEXT i

Не тестил, но должно работать.

Добавлено через 2 минуты
1.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
INPUT "length of the arrey", l
DIM a(1 TO l)
PRINT "input data, please"
FOR i=1 TO l
PRINT "#"+STR$(i)+"=";
INPUT "", a(i)
NEXT i
FOR i=1 TO l
IF a(i)>0 THEN pol=pol+1
IF a(i)<0 THEN neg=neg+1
NEXT i
PRINT "positive="pol
PRINT "negative="neg

Тоже не тестил, но, опять же, должно работать.

Добавлено через 1 минуту

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

Составить программу для нахождения наибольшего и наименьшего элементов массива.

Вот таких программ на форуме просто полно (на сколько я знаю), да, и, собственно, тех, что я написал тоже...

Добавлено через 13 минут
Ну, и последнее - я недавно писал такое, сейчас поищу...

Добавлено через 5 минут

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
FOR j=1 TO 2
FOR i=1 TO 7
READ a(i)
NEXT i
lbl:
d=0
FOR i=1 TO 6
IF a(i)>a(i+1) THEN SWAP a(i),a(i+1): d=d+1
NEXT i
IF d<>0 THEN lbl
FOR i=1 TO 7
PRINT a(i)
NEXT i
NEXT j
END
DATA 1,21,41,61,81,101,121,141
DATA 10,30,50,70,90,110,130,150

Тоже не тестил.

Добавлено через 2 минуты

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

буду очень благодарна вам

https://www.cyberforum.ru/post5035711.html

@sveta18 · 15.09.2013, 21:15 **[ТС]**

спасибо)скажите, а есть где учебник,самоучитель как писать эти программы в бейсике)???

@Good-Morning · 15.09.2013, 21:25

Вот закрепленная тема.
Лично я изучал Basic просто по перечню операторов (если быть точнее - я изучал Turbo Basic,Qbasic на него похож немного... У компилятора Qbasic есть встроенный перечень операторов и функций.) Когда знаешь операторы и функции - все проще. Просто практика - выбираешь себе задачу, и переводишь (в помощью "словаря" операторов) на язык программирования (с другими языками все не так просто, насколько я знаю...)

Добавлено через 1 минуту
Далее - тестишь. Работает - хорошо. Не работает - отлаживаешь - находишь и исправляешь ошибки.

@sveta18 · 17.09.2013, 16:38 **[ТС]**

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
FOR j=1 TO 2
FOR i=1 TO 7
READ a(i)
NEXT i
lbl:
d=0
FOR i=1 TO 6
IF a(i)>a(i+1) THEN SWAP a(i),a(i+1): d=d+1
NEXT i
IF d<>0 THEN lbl
FOR i=1 TO 7
PRINT a(i)
NEXT i
NEXT j
END
DATA 1,21,41,61,81,101,121,141
DATA 10,30,50,70,90,110,130,150

пробовала тестировать программу,пишет синтаксическая ошибка в lbl:

@Good-Morning · 17.09.2013, 17:36

Та-а-ак... Ясно. Ошибка в операторе if? Значит до метки нужно поставить оператор goto:

QBasic/QuickBASIC
1
IF d<>0 THEN GOTO lbl

Тестил - получилось.

Добавлено через 5 минут
И еще - я, кажется, неправильно посчитал количество элементов массива...
Конечный вариант:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
CLS
FOR j=1 TO 2
FOR i=1 TO 8
READ a(i)
NEXT i
lbl:
d=0
FOR i=1 TO 7
IF a(i)>a(i+1) THEN SWAP a(i),a(i+1): d=d+1
NEXT i
IF d<>0 THEN GOTO lbl
FOR i=1 TO 8
PRINT a(i)
NEXT i
NEXT j
END
DATA 1,21,41,61,101,121,141
DATA 10,30,50,70,90,110,130,150

Теперь, вроде, все.

@sveta18 · 17.09.2013, 17:48 **[ТС]**

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
DATA 5, 164, -7, -1, 25, 16.3, 9
DATA 79, -5.3, 8.2, 13,21, 69, -8, 17
FOR j=1 TO 2
sum=0
FOR i=1 TO 7
READ x
sum=sum+x
NEXT i
PRINT "sum of arrey #"+STR$(j)+"="sum
NEXT j

а здесь пишет ошибку FOR without NEXT in 30

@Good-Morning · 17.09.2013, 18:05

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

а здесь пишет ошибку FOR without NEXT in 30

У меня работает

@sveta18 · 17.09.2013, 18:08 **[ТС]**

странно,уже какой раз вводила ошибка.может я что-то не так ввожу

Добавлено через 1 минуту
Я после ввода программы жму на f2

@Good-Morning · 17.09.2013, 18:12

Ошибка сообщает, что отсутствует соответствующий NEXT. Может, Вы пишите в последний строке NEXT i, а не NEXT j?

Добавлено через 2 минуты

Не по теме:

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

Я после ввода программы жму на f2

Если программа загружена в компилятор и Вы с ней работаете в данный момент, сохранять ее необязательно.

@sveta18 · 18.09.2013, 18:17 **[ТС]**

сейчас еще раз попробую)

Добавлено через 4 минуты
все получилось)

Добавлено через 23 часа 25 минут
Я работаю в GW BASIC.Сказали пока на таком работать
Я не поняла по 1 заданию где вводить NEW SUB? и где компилятор EDIT?Уж извините что так много спрашиваю(

'заявление 2 процедур
SUB f(x,y)
y=-16*x^2+134
END SUB

SUB ff(x,y)
y=2*(4*x^2-5)*(x+16)
END SUB

'a),b). не понимаю в чем отличие.
INPUT "x=",x
CALL f(x,y)
? y
CALL ff(x,y)
? y
END

'c).
FOR i=1 TO 11
READ x
CALL f(x,y)
? "1). x="x, "y="y
CALL ff(x,y)
? "2). x="x, "y="y
NEXT i
END
DATA 14.1, 15.2, -0.3, -7, 0
DATA 11, -12, 13, -14, 15, -16

Добавлено через 8 минут
И еще не знаю как переключится на русский язык

Добавлено через 23 минуты
хотя язык я нашла)

Добавлено через 21 секунду
так что вот не пойму где этот EDIT...

@Good-Morning · 18.09.2013, 18:22

Не по теме:

Это немного не по теме - заоффтопил...

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

И еще не знаю как переключится на русский язык

В оригиналье русского, на сколько я знаю, нет.

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

Я работаю в GW BASIC.Сказали пока на таком работать

Я не знаю этого языка, но то, что нашел в Интернете, говорит само за себя:

Сообщение от Википедия

В GW-BASIC отсутствовали многие возможности структурного программирования, такие как локальные переменные и некоторые виды циклов, программы интерпретировались и потому выполнялись довольно медленно.

Т.е. процедур в нем, возможно, вообще нет. Как по-моему, лучше использовать QBasic

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

и где компилятор EDIT?

Edit - не компилятор - это одна из кнопок на верхнем меню.

Добавлено через 2 минуты

Не по теме:

Сообщение от Good-Morning

одна из кнопок на верхнем меню

Или вкладок... Не знаю, как это сказать.

Новые блоги и статьи Все статьи Все блоги /
Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .

@sveta18 6 / 6 / 0 Регистрация: 14.09.2013 Сообщений: 96

	Составить программы для вычисления значений выражений на GW BASIC 14.09.2013, 15:34. Показов 8886. Ответов 33 Метки нет (Все метки) Здравствуйте Срочно нужна помощь 1 Составить программы для вычисления значений выражений а) для произвольных значений переменной б) для заданных значений переменной в) для значений элементов массива Y=-16x2+134 y=2(4x2-5)(x+16) а) 14,1; 15,2; -0,3; -7; 0 б) 11; -12; 13; -14; 15; -16 2 Составить программу для написания текста. Меня зовут ……….. Я учусь в группе ……….. Мой любимый предмет ………… В понедельник у нас по расписанию ………… Моя будущая специальность …………………………. 1

@sveta18 6 / 6 / 0 Регистрация: 14.09.2013 Сообщений: 96
	14.09.2013, 16:11 [ТС]
	хорошо)просто я новичок в этом деле) 1

@sveta18 6 / 6 / 0 Регистрация: 14.09.2013 Сообщений: 96
	14.09.2013, 16:28 [ТС]
	Это все по 1 заданию? 1

@sveta18 6 / 6 / 0 Регистрация: 14.09.2013 Сообщений: 96
	15.09.2013, 16:12 [ТС]
	спасибо большое буду пробовать разбираться в этом во всем 1

@sveta18 6 / 6 / 0 Регистрация: 14.09.2013 Сообщений: 96
	15.09.2013, 17:55 [ТС]
	вы можете помочь последний разок мне?) буду очень благодарна вам) или хотя бы уж с одним заданием? Массивы 1 задание) Составить программу для нахождения суммы элементов массива: а) для произвольных элементов б) для заданных элементов 5; 164; -7; -1; 25; 16,3; 9; 79; -5,3; 8,2; 13;21; 69; -8; 17; 2 задание)Составить программу, складывающую соответствующие элементы двух массивов и записывающую результаты в третий массив. 1. Составить программу для подсчета количества отрицательных и положительных чисел в массиве. 2. Составить программу для нахождения наибольшего и наименьшего элементов массива. 3. Составить программу для расположения элементов массива в порядке возрастания значений. 1)1;21;41;61;81;101;121;141 2)10;30;50;70;90;110;130;150 0

@sveta18 6 / 6 / 0 Регистрация: 14.09.2013 Сообщений: 96
	15.09.2013, 21:15 [ТС]
	спасибо)скажите, а есть где учебник,самоучитель как писать эти программы в бейсике)??? 0

@Good-Morning 1045 / 315 / 74 Регистрация: 13.07.2013 Сообщений: 1,270
	15.09.2013, 21:25
	Вот закрепленная тема. Лично я изучал Basic просто по перечню операторов (если быть точнее - я изучал Turbo Basic,Qbasic на него похож немного... У компилятора Qbasic есть встроенный перечень операторов и функций.) Когда знаешь операторы и функции - все проще. Просто практика - выбираешь себе задачу, и переводишь (в помощью "словаря" операторов) на язык программирования (с другими языками все не так просто, насколько я знаю...) Добавлено через 1 минуту Далее - тестишь. Работает - хорошо. Не работает - отлаживаешь - находишь и исправляешь ошибки. 0

@sveta18 6 / 6 / 0 Регистрация: 14.09.2013 Сообщений: 96
	17.09.2013, 18:08 [ТС]
	странно,уже какой раз вводила ошибка.может я что-то не так ввожу Добавлено через 1 минуту Я после ввода программы жму на f2 0

@sveta18 6 / 6 / 0 Регистрация: 14.09.2013 Сообщений: 96
	18.09.2013, 18:17 [ТС]
	сейчас еще раз попробую) Добавлено через 4 минуты все получилось) Добавлено через 23 часа 25 минут Я работаю в GW BASIC.Сказали пока на таком работать Я не поняла по 1 заданию где вводить NEW SUB? и где компилятор EDIT?Уж извините что так много спрашиваю( 'заявление 2 процедур SUB f(x,y) y=-16x^2+134 END SUB SUB ff(x,y) y=2(4x^2-5)(x+16) END SUB 'a),b). не понимаю в чем отличие. INPUT "x=",x CALL f(x,y) ? y CALL ff(x,y) ? y END 'c). FOR i=1 TO 11 READ x CALL f(x,y) ? "1). x="x, "y="y CALL ff(x,y) ? "2). x="x, "y="y NEXT i END DATA 14.1, 15.2, -0.3, -7, 0 DATA 11, -12, 13, -14, 15, -16 Добавлено через 8 минут И еще не знаю как переключится на русский язык Добавлено через 23 минуты хотя язык я нашла) Добавлено через 21 секунду так что вот не пойму где этот EDIT... 0