4 задания по qBasic

[matsode]

Ребят, помогите пожалуйста решить, хотя бы одну из них. или подсказать как. Если до первого июня сдам, то автоматом поставят пять, но у нас такой лектор, что ничего по кубасику не объяснил и дал 21 программу писать, я сам 16 написал, а эти не могу.

Задача 1:
Задана окружность (x-a)^2+(y-b)^2=r^2 и две точки p=(p1; p2) и f=(f1; f2). Вычислить принадлежат ли точки окружности. Проверку принадлежности оформить в виде подпрограммы. a=3.2; b=4.1; r=2; p(6.1; 4.3); f(27.4; -6.1)

Задача 2:
Вычислить:
t=2f(s+2же-2)+max[f(s;t);f(s-2; t+1)]-min[f(s;2t); f(s+3; t-2)]
s=0.7; t=1.2
а(a, b)=cos(a+1.3) - sqr(abs(a+2b))+ln(a/b)

Задача 3:
Дан текст. Исключить из текста группы символов, расположеных между скобками "(" и ")". Сами скобки должны быть тоже исключены. Предполагается, что внутри каждой пары скобок нет других скобок.

Задача 4:
Даны две строки произвольного текста, каждый текст содержит четыре слова. Составить процедуру для вывода слов, начинающихся на букву "с" и заканчивающихся на букву "в". В программе обрабатываются две строки.

[Sazary]

Задача 1:
Задана окружность (x-a)^2+(y-b)^2=r^2 и две точки p=(p1; p2) и f=(f1; f2). Вычислить принадлежат ли точки окружности. Проверку принадлежности оформить в виде подпрограммы. a=3.2; b=4.1; r=2; p(6.1; 4.3); f(27.4; -6.1)

У вас есть координаты центра и координаты точки. Вычислите расстояние от центра до точки и сравните его с радиусом. Если радиус больше, то точка в окружности.

Задача 2:
Вычислить:
t=2f(s+2же-2)+max[f(s;t);f(s-2; t+1)]-min[f(s;2t); f(s+3; t-2)]
s=0.7; t=1.2
а(a, b)=cos(a+1.3) - sqr(abs(a+2b))+ln(a/b)

Ну здесь все в задании сказано.

Задача 3:
Дан текст. Исключить из текста группы символов, расположеных между скобками "(" и ")". Сами скобки должны быть тоже исключены. Предполагается, что внутри каждой пары скобок нет других скобок.

Посимвольно идете по тексту и переписываете его в другую строку. Если встретили скобку, то устанавливаем флаг, говорящий о том, что во вторую строку писать символы не нужно. Когда встретим закрывающую скобку, то сбрасываем флаг.

Собственно, вы начните, а что будет не получаться - спрашивайте.

[matsode]

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

Задача 2:
Вычислить:
t=2f(s+2же-2)+max[f(s;t);f(s-2; t+1)]-min[f(s;2t); f(s+3; t-2)]
s=0.7; t=1.2
а(a, b)=cos(a+1.3) - sqr(abs(a+2b))+ln(a/b)

Ну здесь все в задании сказано.

Спасибо за столь быстрый ответ.
делал его, как обычное для вычисление функции. оно не хотело работать.

[Sazary]

делал его, как обычное для вычисление функции. оно не хотело работать.

Вы выложите свой код. Посмотрим, исправим.

[matsode]

CLS
s = .7: t = 1.2
INPUT a: INPUT b
f = COS(a + 1.3) - SQR(ABS(a + 2 * b)) + LOG(a / b)
q = 2 * f(s + 2, t - 2) + max(f(s, t), f(s - 2, t + 1)) - min(f(s, 2 * t), f(s + 3, t - 2))
PRINT q

индекс вне диапазона.

[Sazary]

индекс вне диапазона.

Как я понимаю, f - функция (с аргументами a и b), которую вам надо описать. А вы используете ее как массив, причем незаполненный.

[matsode]

а как это можно сделать? как ее описать?

[Sazary]

Что-то вроде этого:

DECLARE FUNCTION f! (a AS SINGLE, b AS SINGLE)
CLS
CONST s = .7
CONST t = 1.2
DIM rez AS SINGLE

rez = 2 * f(s + 2, t - 2) + max(f(s, t), f(s - 2, t + 1)) - min(f(s, 2 * t), f(s + 3, t - 2))
PRINT rez
END

FUNCTION f (a AS SINGLE, b AS SINGLE)
DIM r AS SINGLE
r = COS(a + 1.3) + SQR(ABS(a + 2 * b)) + LOG(ABS(a / b))
f = r
END FUNCTION

[matsode]

Первую задачу сделал. За вторую спасибо вам. Третью и четвертую завтра буду уже думать.
всякие синглы, функшены и тд и тп мы не проходили даже, а от нас требуют..

[matsode]

CLS
INPUT "vvedite tekst so skobkami"; a$
i = 1
flag = 0
dlina = LEN(a$)
PRINT "old"; a$
WHILE flag >= 0 AND i <= dlina
IF MID$(a$, i, 1) = "(" THEN flag = flag + 1
IF MID$(a$, i, 1) = ")" THEN flag = flag - 1
i = i + 1
WEND
PRINT "new"; a$

вот как то так у меня вышло. в while.. end надо еще какую то команду задать для вырезки текста? вот только какую... а то нам ни слова про символьные величины не сказали, да и литературы мало и на интернет времени почти нет. вот