Консультации Портала - Консультация #170398

Задать вопрос Консультации Пользователи Форум

Задать вопрос экспертам

Консультация № 170398

13.07.2009, 13:27

0.00 руб.

0 6 1

Компьютеры Программирование

Уважаемые эксперты, помогите решить несколько задач.
1,5a+2 при а<-10,а=2,5<=a<=11
-a(в квадрате)-7 при 12<=a<=20,a>30,a=>340
1) y= (a+5)/4 при a=-1 a=28 45<=a<=51 a=100
a-3 в остальных случаях

2)S=8+ряд от i=2 до L (((корень из L)/2 в степени (i-2))+i в квадрате) L=4 L=12

3)y=(x1 в квадрате + x2)/x3
x1=min(a в квадрате,b,c)
x2=max(c,d+1)
x3=min(max(c,a),d-1)

Обсуждение

давно

Megaloman

Модератор
137394
1850

13.07.2009, 14:51

общий

Цитата: Правила портала

Не задавайте несколько разных вопросов в одном.
Не задавайте несколько разных, не связанных с друг другом вопросов, в одном. Это не запрещено (если все вопросы относятся к теме рассылки), но вероятность того, что Вы получите на них ответы, будет гораздо выше, если Вы зададите их по отдельности. Например, мало кому из экспертов захочется отвечать на вопрос, в котором просто перечислено несколько задач из задачника. Отвечать на такие вопросы неудобно, ответы трудно читаются в выпусках рассылок, затрудняется обсуждение в форуме. Поэтому большинство экспертов просто игнорируют вопросы, в которых под видом одного дано несколько вопросов или задач. Гораздо лучше, если Вы в одном вопросе спросите про решение одной проблемы, особенно, если Вы покажете, что пытались решить ее самостоятельно, и укажете, что именно вызвало трудности. Тогда многие захотят Вам помочь.

Как я понял, Вы привели 4 задачи. Это так?
На каком Basic Вам это нужно написать?
В самой первой задаче похоже напутали условия

Об авторе:
Понеже не словес красных бог слушает, но дел наших хощет

Неизвестный

13.07.2009, 15:26

общий

просто не правильно написал.
1)у=1,5a+2 при а<-10,а=2,5<=a<=11
у=-a(в квадрате)-7 при 12<=a<=20,a>30,a=>340
y= (a+5)/4 при a=-1 a=28 45<=a<=51 a=100
у=a-3 в остальных случаях

давно

Megaloman

Модератор
137394
1850

13.07.2009, 15:38

общий

a>30, a=>340 это правильно? (первое условие автоматически включает второе)
а=2,5<=a<=11 - как понимать
Какой Basic нужен? QBasic?

Об авторе:
Понеже не словес красных бог слушает, но дел наших хощет

давно

Megaloman

Модератор
137394
1850

13.07.2009, 18:59

общий

13.07.2009, 19:49

это ответ

Здравствуйте, lolko.
Вы нечётко поставили задачу. Я предположил, что Вам нужен QBasic.
Я переписал условия Ваших задач, как я их понял.
Вот условия и решения.

1. Ваша первая задача (переставил условия, чтобы c) не противоречило b)
a) y=1.5*a+2 если a<-10 или 2.5<=a<=11
b) y=(a+5)/4 если a=-1 или a=28 или 45<=a<=50 или a=100
c) y=-a^2 -7 если 12<=a<=20 или a>30 или a>=340
d) y=a-3 в остальных случаях

Код:

DIM a AS SINGLE, y AS SINGLE
CLS
INPUT "a=", a

IF a < -10 OR (2.5 <= a AND a <= 11) THEN
  y = 1.5 * a + 2

ELSEIF a = -1 OR a = 28 OR (45 <= a AND a <= 50) OR a = 100 THEN
  y = (a + 5) / 4

ELSEIF (12 <= a AND a <= 20) OR a > 30 OR a >= 340 THEN
  y = -a * a - 7

ELSE
  y = a - 3

END IF

PRINT "a="; USING "######.##"; a;
PRINT "     y="; y

2. S=8+∑{i=2…L}((√(L)/2)^(i-2) + i^2)

Код:

CLS
DIM S AS SINGLE, L AS INTEGER, i AS INTEGER

INPUT "L=", L

S = 8

IF L >= 2 THEN

   FOR i = 2 TO L
      S = S + (SQR(L) / 2) ^ (i - 2) + i ^ 2
   NEXT

END IF

PRINT "L="; USING "####"; L;
PRINT "     S="; S

3. Y=(X1^2+X2) / X3
где X1=Min(a^2,b,c); X2=Max(c,d+1); X3=Min(Max(a,c),d-1);

Код:

DECLARE FUNCTION X1! (i AS SINGLE, j AS SINGLE, k AS SINGLE)
DECLARE FUNCTION X2! (i AS SINGLE, j AS SINGLE)
DECLARE FUNCTION X3! (i AS SINGLE, j AS SINGLE, k AS SINGLE)

CLS
DIM Y AS SINGLE, L AS INTEGER, i AS INTEGER

INPUT "a=", a
INPUT "b=", b
INPUT "c=", c
INPUT "d=", d

Y = (X1(a, b, c) ^ 2 + X2(c, d)) / X3(a, c, d)

PRINT "a="; USING "####.##"; a;
PRINT "   b="; USING "####.##"; b;
PRINT "   c="; USING "####.##"; c;
PRINT "   d="; USING "####.##"; d;

PRINT "    Y="; Y

FUNCTION X1 (i AS SINGLE, j AS SINGLE, k AS SINGLE)
     DIM XX AS SINGLE
     XX = i * i
     IF XX >= j THEN XX = j
     IF XX >= k THEN XX = k
     X1 = XX
END FUNCTION

FUNCTION X2 (i AS SINGLE, j AS SINGLE)
   DIM XX AS SINGLE
   XX = j + 1
   IF XX < i THEN XX = i
   X2 = XX
END FUNCTION

FUNCTION X3 (i AS SINGLE, j AS SINGLE, k AS SINGLE)
   DIM XX AS SINGLE
   XX = i
   IF XX < j THEN XX = j
   IF XX > k - 1 THEN XX = k - 1
   X3 = XX
END FUNCTION

Об авторе:
Понеже не словес красных бог слушает, но дел наших хощет

Неизвестный

13.07.2009, 21:10

общий

ой, там а=30
а=2
5<=a<=11
Basic

давно

Megaloman

Модератор
137394
1850

13.07.2009, 22:12

общий

lolko:
Вас устроил тот Basic, в котором я написал решения Ваших задач? Там это где? Не могли бы Вы условия переписать почётче еще раз? Ничего принципиально при этом не изменится. Вот исправленная часть ответа (опять же, если я Вас правильно понял
1. Ваша первая задача
a) y=1.5*a+2 если a<-10 или a=2 или 5<=a<=11
b) y=(a+5)/4 если a=-1 или a=28 или 45<=a<=50 или a=100
c) y=-a2-7 если 12<=a<=20 или a=30 или a>=340
d) y=a-3 в остальных случаях

Код:

DIM a AS SINGLE, y AS SINGLE

CLS
INPUT "a=", a

IF a < -10 OR a = 2 OR (5 <= a AND a <= 11) THEN
  y = 1.5 * a + 2

ELSEIF a = -1 OR a = 28 OR (45 <= a AND a <= 50) OR a = 100 THEN
  y = (a + 5) / 4

ELSEIF (12 <= a AND a <= 20) OR a = 30 OR a >= 340 THEN
  y = -a * a - 7

ELSE
  y = a - 3

END IF

PRINT "a="; USING "######.##"; a;
PRINT "     y="; y

В решении задачи 3 желательно (на правильность работы -всё работает и проверено! - это не скажется) исправить оператор Dim, убрать старый (остался от предыдущей программы) и вставить

DIM a AS SINGLE, b AS SINGLE, c AS SINGLE, d AS SINGLE
DIM Y AS SINGLE

Об авторе:
Понеже не словес красных бог слушает, но дел наших хощет

Форма ответа

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

Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.