QBasic

25 мая, 2011

Привет всем Помогите выполнить задания по QBasic.

Мы только начали учить QBasic прошу не использовать за умные коды и т.д. т.к. с меня спросят мол откуда я их знаю.. а я их не знаю.

Прикрепил программу QBasic к посту кому нужно.. Плиз исходники оставьте или скрины... лучше сохраните решение в QBasice и скиньте сюда или на мыло zaaza@russia.ru

Решите пожалуйста эти задания:

1.1. Задание 1. Вычислить значение выражения.

http://dl.dropbox.com/u/14807761/QBasic/z1.jpg

1.2. Задание 2. Решите задачу.

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

1.3. Задание 3.

Задана следующая шкала эффективности внедрения технологий(%). 0-10 – невысокая; 11-25 – средняя; 26-50 – высокая; 51 – 100 – очень высокая; > 100 – революционная. Составить программу, которая по введенной эффективности выдает ее словесную характеристику.

1.4. Задание 4.

Дано неотрицательное число k. Напечатать фразу "k ворон". (Пример. Если K = 23, то должно быть напечатано "23 вороны", если K = 3651 - то "3651 ворона").

1.5. Задание 5.

Найти сумму целых пол-х чисел, кратных 4 и меньших 100.

1.6. Задание 6.

http://dl.dropbox.com/u/14807761/QBasic/z2.jpg

1.7. Задание 7.

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

1.8. Задание 8.

Заменить минимальные элементы на 0.

1.9. Задание 9.

Путем копирования и склейки выделить из слова “ПУТЕВОДИТЕЛЬ” слова “ПУТЬ”, “ВОДИТЕЛЬ”,”ТЕПЛО”.

2.0. Задание 10

Составить программу, подсчитывающую количество букв «А» в строке. Заменить все буквы «А» на «О».

2.1. Задание 11

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

2.1. Задание 12

Описать подпрограмму PowerA234(A), вычисляющую вторую, третью и четвертую степень числа A.С помощью этой подпрограммы вычислить степень трех данных чисел.

Заранее спс клубни!

Просьба ко всем нравоучителям... "а чо самому слабо" и т.д. не писать сюда ничего..

QBasic.rar

Изменено 25 мая, 2011 пользователем Добрый Заазыч

25 мая, 2011

Прикрепил программу QBasic к посту кому нужно..

Не вижу.

25 мая, 2011

Денис-НН, прикрепил

25 мая, 2011

Было интересно вспомнить молодость. С трудом. Блин, даже не помню команду возведения в степень - пришлось множить. И безусловные переходы в программе - не эстетично. В принципе последний IF тоже не нужен.Но работает - чудно...

Первая задача ( кстати, условие некорректно- если х=0 то какая строка должна выполняться? Я выполнил первое условие.

CLS

INPUT x

IF x <= 0 THEN

y = x * x - 3 * x + 9

GOTO 100

END IF

IF x <= 3 THEN

y = 0

GOTO 100

END IF

IF x > 3 THEN

y = 1 / (x * x * x + 1)

GOTO 100

END IF

100

PRINT y

END

26 мая, 2011

Дропбокс забанен. А так бы попробовал вспомнить школу.

26 мая, 2011

А так бы попробовал вспомнить школу.

Ах ностальгия. ЭВМ ЕС какя-то, терминальный зал, зелёные монохромные дисплеи и по 15 минут ожидания выполнения программы... Молодая практикантка вместо учительницы...

26 мая, 2011

У кого ностальгия, а у кого и запущен в данный момент... Если неделю - полторы терпит, тогда задачи с Подробными пояснениями (желательно) мне на "мыло" (ЛС в дауне, адрес мыла пришлю). Постараюсь с коментариями, и что и как и почему. Да, и не мешало бы версию Бейсика, а вообще было бы замечательно и ссылочку где ее скачать (на данный момент пользую 1.1 и 1.0 ru, не считая всяких Turbo).

/добавлено/

P.S. Очень... "мутные" некоторые "задания". Все что непонятно буду размещать в теме (когда ознакомлюсь с деталями).

Изменено 26 мая, 2011 пользователем Rassven

26 мая, 2011

1.4. Задание 4.
Дано неотрицательное число k. Напечатать фразу "k ворон". (Пример. Если K = 23, то должно быть напечатано "23 вороны", если K = 3651 - то "3651 ворона").

в прцессе

я не понимаю алгоритм опознания:

11 ворон

21 ворона

31 ворона

41 ворона

100 ворон

110 ворон

112 ворон

в чем алгоритм, как именно надо писать окончание?

1.2. Задание 2. Решите задачу.
Составить программу для нахождения максимального числа из двух заданных.

CLS
INPUT "VVEDITE DVA CHISLA CHEREZ ZAPYATYU"; a1, a2
IF a1 > a2 THEN PRINT "MAX = "; a1 ELSE PRINT "MAX = "; a2
END

1.3. Задание 3.
Задана следующая шкала эффективности внедрения технологий(%). 0-10 – невысокая; 11-25 – средняя; 26-50 – высокая; 51 – 100 – очень высокая; > 100 – революционная. Составить программу, которая по введенной эффективности выдает ее словесную характеристику.

REM ""
CLS
INPUT z
IF z = 0 OR z > 0 AND z < 11 THEN
PRINT "FIGNYA"
END IF

IF z = 11 OR z > 11 AND z < 26 THEN
PRINT "TAK CE6E"
END IF

IF z = 26 OR z > 26 AND z < 51 THEN
PRINT "HY HOPM"
END IF

IF z = 51 OR z > 51 AND z < 100 THEN
PRINT "COOL"
END IF

IF z = 100 OR z > 100 THEN
PRINT "MEGA COOL"
END IF
END

26 мая, 2011

в прцессе

Банально правило русского языка. Надо смотреть только на последнюю цифру:

1 - "а"

2, 3, 4 - "ы"

5, 6, 7, 8, 9, 0 - ""

А в итоге это будет что-то вроде

print k" ворон"+q

где q - а, ы или пустой ввод, в зависимости от условий выше.

CLS
INPUT "VVEDITE DVA CHISLA CHEREZ ZAPYATYU"; a1, a2

IF a1 > a2 THEN PRINT "MAX = "; a1 ELSE PRINT "MAX = "; a2

END

Я бы сказал

10 cls

25 Print "X and Y must be differents"

input "X= ", X

Input "Y= ", Y

if x=y go to 10

if x>y then print x" more than "y else print y" more than "x

INPUT z

if < 0 then print "EPIC FAIL"

if < 11 then print "Low"

if < 26 then print "Middle"

if < 51 then print "High"

if <= (или =<, не помню как правильно) 100 then pint "Very high" else print "THIS IS SPARTAAA!1111ONEONEONE"

Т.е. не нужно дважды проверять

Изменено 26 мая, 2011 пользователем Umnik

26 мая, 2011

if < 0 then print "EPIC FAIL"
if < 11 then print "Low"

if < 26 then print "Middle"

if < 51 then print "High"

if <= (или =<, не помню как правильно) 100 then pint "Very high" else print "THIS IS SPARTAAA!1111ONEONEONE"

Т.е. не нужно дважды проверять

введем число 99

программа напишет

EPIC FAIL
Low
Middle
High

т.е. число подходит под 4 условия

Банально правило русского языка. Надо смотреть только на последнюю цифру:
1 - "а"

2, 3, 4 - "ы"

5, 6, 7, 8, 9, 0 - ""

А в итоге это будет что-то вроде

print k" ворон"+q

где q - а, ы или пустой ввод, в зависимости от условий выше.

1 ворона

11 ворон

21 ворона

...

не подходит

26 мая, 2011

Воронцова спроси,он бейсиком занимался...

27 мая, 2011

введем число 99

я не проверял, лишь указал Но тем не менее двойная проверка не нужна при последовательном переборе. Можно отрезать проверку на отрицательные числа, которой вообще по условию не требовалось - это из Дельфи привычка пихать все в try except

не подходит

Подходит после поправки 0-19 - "". Но да, придется смотреть на последние 2 цифры тогда

Изменено 27 мая, 2011 пользователем Umnik

27 мая, 2011

1.7 и 1.8 - каков критерий "минимальности"?

1.9 - задача получить "тепло" из "путеводитель"?

2.1 - пример подпрограммы:

TSP: P#=CDBL((A#+B#+C#)/2):S#=CDBL(SQR(P#*(P#-A#)*(P#-A#)*(P#-C#))):Return

, где A#, B# и C# - длинны сторон треугольника. Обращение к подпрограмме: "Gosub TSP:". Изменено 28 мая, 2011 пользователем Rassven

2 июня, 2011

Так вот как люди лабы здают, а я дурак все сам делаю.

помогите пожалуста мне тоже, мне нужно сделать наподобии этой программы.

вот мой пример решения, только никак не могу прописать чтобы в конце выходило сообщение "povtorit d/n?". после этого сообщения если написать d цикл опять повторялся а если другую букву то программа заканчивалась.

INPYT N

FOR X=1 TO N STEP 0.5

Y=ATN(X)+X^2

PRINT "X=";X

PRINT "Y=";Y

NEXT X

END

Изменено 2 июня, 2011 пользователем INCOG_nito_911

QBasic

Рекомендуемые сообщения

Добрый Заазыч

Денис-НН

Добрый Заазыч

Денис-НН

Umnik

Денис-НН

Rassven

pacman

Umnik

pacman

Nikolay Lazarenko

Umnik

Rassven

INCOG_nito_911

Пожалуйста, войдите, чтобы комментировать

Обзор

Активность

Магазин

Поддержка

Kaspersky Support Forum