QBasic

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

Привет всем Помогите выполнить задания по 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 пользователем Добрый Заазыч

[Денис-НН]

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

Не вижу.

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

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

[Денис-НН]

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

[Umnik]

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

[Денис-НН]

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

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

[Rassven]

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

 

/добавлено/

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

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

[pacman]

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

[Umnik]

в прцессе

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

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

[pacman]

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 ворона

...

не подходит

[Nikolay Lazarenko]

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

[Umnik]

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

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

не подходит

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

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

[Rassven]

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

[INCOG_nito_911]

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

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

 

вот мой пример решения, только никак не могу прописать чтобы в конце выходило сообщение "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