Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Basic / VBA

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.824 RSS
←   Июль 2009   →
 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
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/basic
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

1.824 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на Basic / VBA


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный платный хостинг на базе Windows 2008

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

Тимошенко Дмитрий
Статус: Студент
Рейтинг: 294
∙ повысить рейтинг >> 		Megaloman
Статус: Практикант
Рейтинг: 277
∙ повысить рейтинг >> 		Чичерин Вадим Викторович
Статус: 10-й класс
Рейтинг: 262
∙ повысить рейтинг >>

∙ / КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 914 от 18.07.2009, 21:05
Администратор рассылки: Калашников О.А., Руководитель
В рассылке: подписчиков - 362, экспертов - 91
В номере: вопросов - 1, ответов - 1

Нам очень важно Ваше мнение об этом выпуске рассылки. Вы можете оценить этот выпуск по пятибалльной шкале, пройдя по ссылке:
оценить выпуск >>

Вопрос № 170398: Уважаемые эксперты, помогите решить несколько задач. 1,5a+2 при а<-10,а=2,5<=a<=11 -a(в квадрате)-7 при 12<=a<=20,a>30,a=>340 1) y= (a+5)/4 ...

Вопрос № 170398:

Уважаемые эксперты, помогите решить несколько задач.
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)

Отправлен: 13.07.2009, 13:27
Вопрос задал: lolko, Посетитель
Всего ответов: 1
Страница вопроса >>

Отвечает Megaloman, Практикант :
Здравствуйте, 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 > 3
 0 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 FUNCTIO
 N

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
Ответ отредактирован по просьбе автора.
-----
∙ Отредактировал: Admiral, Модератор
∙ Дата редактирования: 13.07.2009, 19:49 (время московское)

-----
Нет времени на медленные танцы

Ответ отправил: Megaloman, Практикант
Ответ отправлен: 13.07.2009, 18:59

Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 252136 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Нам очень важно Ваше мнение об этом выпуске рассылки. Вы можете оценить этот выпуск по пятибалльной шкале, пройдя по ссылке:
    оценить выпуск >>

    подать вопрос экспертам этой рассылки >>

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров >>

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2009, Портал RFpro.ru, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2009.6.5 от 08.07.2009
    В избранное