Важная информация
Показано с 1 по 8 из 8

Тема: срочно помогите доработать программу с поиском в массиве

  1. #1 срочно помогите доработать программу с поиском в массиве 
    Новичок
    Регистрация
    13.06.2013
    Сообщений
    5
    Сказал(а) спасибо
    1
    Поблагодарили 1 раз в 1 сообщении
    То что уже сделал:
    [SPOILER]

    10 PRINT "VVEDITE ZNAHENIJA"
    20 INPUT "A=", A
    30 INPUT "B=", B
    40 INPUT "H=", H
    50 FOR X = A TO B STEP H
    60 F = SIN(LOG(X)) - COS(LOG(X)) + (2 * LOG(X))
    70 PRINT TAB(4); X; TAB(25); F
    80 NEXT
    90 PRINT "A=", A; "B=", B; "H=", H
    100 END

    [/SPOILER]
    нужно доработать что бы перед выводом результата в одной строке расположить значение нижней границы интервала (А), верхней границы интервала(В), шага (H), а также количество на заданном интервале (N), которое предварительно вычислить
    Ответить с цитированием  
     

  2. #2  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,846
    Сказал(а) спасибо
    1,815
    Поблагодарили 945 раз(а) в 807 сообщениях
    Записей в блоге
    1
    ЯП? Задание полностью напишите т.к. не ясно, что эта прога вычисляет...

    а также количество на заданном интервале
    Кол-во чего?
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  3. #3  
    Новичок
    Регистрация
    13.06.2013
    Сообщений
    5
    Сказал(а) спасибо
    1
    Поблагодарили 1 раз в 1 сообщении
    дана функция f=sin(lnx)-cos(lnx)+2lnx интервал [A,B],с шагом H.
    Составить программу вычисления знач функции на интервале с заданным шагом.
    * Обозначить вывод значений аргумента (x) и функции(y)
    *Перед выводом результата в одной строке расположить значение нижней границы интервала (А), верхней границы интервала(В), шага (H), а также количество на заданном интервале (N), которое предварительно вычислить
    Ответить с цитированием  
     

  4. Пользователь сказал cпасибо:

    Абадябер (13.06.2013)

  5. #4  
    Новичок
    Регистрация
    13.06.2013
    Сообщений
    5
    Сказал(а) спасибо
    1
    Поблагодарили 1 раз в 1 сообщении
    Цитата Сообщение от >Quiet Snow< Посмотреть сообщение
    ЯП? Задание полностью напишите т.к. не ясно, что эта прога вычисляет...


    Кол-во чего?
    так звучит задание ,как я понял сколько шагов вышло
    Ответить с цитированием  
     

  6. #5  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,846
    Сказал(а) спасибо
    1,815
    Поблагодарили 945 раз(а) в 807 сообщениях
    Записей в блоге
    1
    Так пойдёт? Судя по вашему коду, юзается старый GW-BASIC, достаньте уж тогда QBasic,
    гемора меньше будет:
    Код qbasic:
    DEF FnF (x) = SIN(LOG(x)) - COS(LOG(x)) + 2 * LOG(x)
    CLS
    INPUT "Vvedite A: ", A
    INPUT "Vvedite B: ", B
    INPUT "Vvedite H: ", H
    Max = -2.802597E-45: Min = 3.402823E+38    ' Границы множества
    FOR dx = A TO B STEP H * SGN(B - A)
       T = FnF(dx)
       IF T > Max THEN Max = T
       IF T < Min THEN Min = T
       Rez$ = Rez$ + STR$(FnF(dx)) + CHR$(10)
       N = N + 1
    NEXT
    PRINT "  Min ="; Min; "  Max ="; Max; "  STP ="; H; "  N ="; N
    PRINT Rez$
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  7. Пользователь сказал cпасибо:

    satir7 (13.06.2013)

  8. #6  
    Новичок
    Регистрация
    13.06.2013
    Сообщений
    5
    Сказал(а) спасибо
    1
    Поблагодарили 1 раз в 1 сообщении
    Цитата Сообщение от >Quiet Snow< Посмотреть сообщение
    Так пойдёт? Судя по вашему коду, юзается старый GW-BASIC, достаньте уж тогда QBasic,
    гемора меньше будет:
    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ] FnF (x) = [Ссылки могут видеть только зарегистрированные пользователи. ]([Ссылки могут видеть только зарегистрированные пользователи. ](x)) - [Ссылки могут видеть только зарегистрированные пользователи. ]([Ссылки могут видеть только зарегистрированные пользователи. ](x)) + 2 * [Ссылки могут видеть только зарегистрированные пользователи. ](x)
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Vvedite A: ", A
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Vvedite B: ", B
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Vvedite H: ", H
    Max = -2.802597E-45: Min = 3.402823E+38    ' Границы множества
    FOR dx = A TO B STEP H * [Ссылки могут видеть только зарегистрированные пользователи. ](B - A)
       T = FnF(dx)
       IF T > Max THEN Max = T
       IF T < Min THEN Min = T
       Rez$ = Rez$ + [Ссылки могут видеть только зарегистрированные пользователи. ](FnF(dx)) + [Ссылки могут видеть только зарегистрированные пользователи. ](10)
       N = N + 1
    NEXT
    [Ссылки могут видеть только зарегистрированные пользователи. ] "  Min ="; Min; "  Max ="; Max; "  STP ="; H; "  N ="; N
    [Ссылки могут видеть только зарегистрированные пользователи. ] Rez$
    а можешь сделать чтобы в 2 столбика выводилось
    знач.арг х Rez$
    1 -1
    1.3 ..
    1.6 ...
    и тд. и тд.


    Буду очень благодарен
    Ответить с цитированием  
     

  9. #7  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,846
    Сказал(а) спасибо
    1,815
    Поблагодарили 945 раз(а) в 807 сообщениях
    Записей в блоге
    1
    Код qbasic:
    DEF FnF (x) = SIN(LOG(x)) - COS(LOG(x)) + 2 * LOG(x)
    CLS
    INPUT "Vvedite A: ", A
    INPUT "Vvedite B: ", B
    INPUT "Vvedite H: ", H
    Max = -2.802597E-45: Min = 3.402823E+38    ' Границы множества
    FOR dx = A TO B STEP H * SGN(B - A)
       T = FnF(dx)
       IF T > Max THEN Max = T
       IF T < Min THEN Min = T
       Rez$ = Rez$ + SPACE$(15 - LEN(STR$(dx))) + STR$(dx) + " "
       Rez$ = Rez$ + STRING$(15 - LEN(STR$(FnF(dx))), 46)
       Rez$ = Rez$ + STR$(FnF(dx)) + CHR$(10)
       N = N + 1
    NEXT
    PRINT "  Min ="; Min; "  Max ="; Max; "  STP ="; H; "  N ="; N
    PRINT SPC(9); "X", SPC(11); "Y"
    PRINT Rez$
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  10. #8  
    Новичок
    Регистрация
    13.06.2013
    Сообщений
    5
    Сказал(а) спасибо
    1
    Поблагодарили 1 раз в 1 сообщении
    Цитата Сообщение от >Quiet Snow< Посмотреть сообщение
    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ] FnF (x) = [Ссылки могут видеть только зарегистрированные пользователи. ]([Ссылки могут видеть только зарегистрированные пользователи. ](x)) - [Ссылки могут видеть только зарегистрированные пользователи. ]([Ссылки могут видеть только зарегистрированные пользователи. ](x)) + 2 * [Ссылки могут видеть только зарегистрированные пользователи. ](x)
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Vvedite A: ", A
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Vvedite B: ", B
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Vvedite H: ", H
    Max = -2.802597E-45: Min = 3.402823E+38    ' Границы множества
    FOR dx = A TO B STEP H * [Ссылки могут видеть только зарегистрированные пользователи. ](B - A)
       T = FnF(dx)
       IF T > Max THEN Max = T
       IF T < Min THEN Min = T
       Rez$ = Rez$ + [Ссылки могут видеть только зарегистрированные пользователи. ](15 - [Ссылки могут видеть только зарегистрированные пользователи. ]([Ссылки могут видеть только зарегистрированные пользователи. ](dx))) + [Ссылки могут видеть только зарегистрированные пользователи. ](dx) + " "
       Rez$ = Rez$ + [Ссылки могут видеть только зарегистрированные пользователи. ](15 - [Ссылки могут видеть только зарегистрированные пользователи. ]([Ссылки могут видеть только зарегистрированные пользователи. ](FnF(dx))), 46)
       Rez$ = Rez$ + [Ссылки могут видеть только зарегистрированные пользователи. ](FnF(dx)) + [Ссылки могут видеть только зарегистрированные пользователи. ](10)
       N = N + 1
    NEXT
    [Ссылки могут видеть только зарегистрированные пользователи. ] "  Min ="; Min; "  Max ="; Max; "  STP ="; H; "  N ="; N
    [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ](9); "X", [Ссылки могут видеть только зарегистрированные пользователи. ](11); "Y"
    [Ссылки могут видеть только зарегистрированные пользователи. ] Rez$
    Огромное спасибо, выручил!
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. помогите срочно))
    от Андрей Пиманов в разделе Turbo Pascal
    Ответов: 1
    Последнее сообщение: 07.04.2013, 22:19
  2. Помогите пожалуйста (срочно)
    от Nastik1993 в разделе QBasic
    Ответов: 5
    Последнее сообщение: 14.11.2012, 10:51
  3. Ответов: 0
    Последнее сообщение: 07.12.2011, 22:10
  4. Ответов: 19
    Последнее сообщение: 03.06.2011, 04:49
  5. Ответов: 3
    Последнее сообщение: 17.05.2011, 21:36
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •