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

Тема: Помогите решить задачки из Шауцуковой

  1. #1 Помогите решить задачки из Шауцуковой 
    Новичок
    Регистрация
    27.11.2011
    Сообщений
    6
    Сказал(а) спасибо
    2
    Поблагодарили 0 раз(а) в 0 сообщениях
    Вообщем такая ситуация, нам задали курсач на 2х языках программирования на С++ и QBasic. Так как до этого много изучали С++, то проблем с Си не возникло, а с QBasic, да и вобще с Basic не сталкивался. Если сможете, помогите пожалуйста.
    1) С клавиатуры вводится текст, нужно подсчитать наибольшее количество пробелов идущих подряд.
    2)Вводится матрица, в каждой строке матрицы A(N, N) определите наибольшее простое число. Если в строке нет простых чисел, выдайте соответствующее сообщение.
    3)Если в заданном целочисленном векторе A(N) есть элементы со значением, равным заданному числу B, то переменной С присвойте значение, равное произведению всех элементов, следующих за первым по порядку таким элементом; в противном случае выведите соответствующий текст.
    4)Вычислите значения многочленов:
    P = an xn + an-1 xn-1 + ... + a1 x + a0 ;
    Q = a0 xn + a1 xn-1 + ... + an-1 x + an,
    используя формулу Горнера. Коэффициенты многочленов заданы в виде вектора A = (a0 , a1 , ... , an ).
    Ответить с цитированием  
     

  2. #2  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    первое
    Код qbasic:
    CLS
    INPUT "Vvedite Text ", a$
    mp = 0
    pl = 0
    FOR i = 1 TO LEN(a$)
    IF MID$(a$, i, 1) <> " " THEN
    IF pl > mp THEN mp = pl
    pl = 0
    END IF
    IF MID$(a$, i, 1) = " " THEN pl = pl + 1
    NEXT i
    PRINT mp
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

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

    Di-eS (27.11.2011)

  4. #3  
    Новичок
    Регистрация
    27.11.2011
    Сообщений
    6
    Сказал(а) спасибо
    2
    Поблагодарили 0 раз(а) в 0 сообщениях
    СПАСИБО!!! Проверил, работает отлично)
    Ответить с цитированием  
     

  5. #4  
    Профи Аватар для Dispetcher14
    Регистрация
    12.12.2010
    Адрес
    Раменское
    Сообщений
    597
    Сказал(а) спасибо
    35
    Поблагодарили 68 раз(а) в 56 сообщениях
    Записей в блоге
    13
    Вы тоже штудируете Шауцукову?
    "Спокойно, Маша, я Дубровский" (с) Дубровский, "Дубровский".
    Ответить с цитированием  
     

  6. #5  
    Новичок
    Регистрация
    27.11.2011
    Сообщений
    6
    Сказал(а) спасибо
    2
    Поблагодарили 0 раз(а) в 0 сообщениях
    Цитата Сообщение от Dispetcher14 Посмотреть сообщение
    Вы тоже штудируете Шауцукову?
    ДА, У нас изменился ГОСТ на специальности и вместо программирования мы изучаем Симмоновича, а курсач выдали по Шауцуковой, причем выдали всего неделю назад.
    Ответить с цитированием  
     

  7. #6  
    Профи Аватар для Dispetcher14
    Регистрация
    12.12.2010
    Адрес
    Раменское
    Сообщений
    597
    Сказал(а) спасибо
    35
    Поблагодарили 68 раз(а) в 56 сообщениях
    Записей в блоге
    13
    Ясно. У Шауцуковой есть одна проблема в басике: она не объявляет переменные. Возьмите это на заметку.
    А так, алсо по нашей школе - что Шауцукова один из лучших вариантов. Но это уже оффтоп. Извините.
    "Спокойно, Маша, я Дубровский" (с) Дубровский, "Дубровский".
    Ответить с цитированием  
     

  8. #7  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Вторая
    Код qbasic:
    INPUT "n= ", n
    FOR j = 1 TO n
    PRINT "Vvedite rjad nomer "; j
    FOR i = 1 TO n
    INPUT "vvedite element", a(i, j)
    NEXT i
    NEXT j
    FOR j = 1 TO n
    PRINT "V rjadu "; j
    inr = 0
     
    FOR i = 1 TO n
    del = 0
    FOR g = 2 TO a(i, j) - 1
    IF a(i, j) MOD g = 0 THEN del = 1
    NEXT g
    IF del = 0 THEN
    inr = 1
    PRINT a(i, j)
    END IF
    NEXT i
    IF inr = 0 THEN PRINT "Net prostih chisel"
    NEXT j
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

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

    Di-eS (01.12.2011)

  10. #8  
    Новичок
    Регистрация
    27.11.2011
    Сообщений
    6
    Сказал(а) спасибо
    2
    Поблагодарили 0 раз(а) в 0 сообщениях
    Цитата Сообщение от Kakos_nonos Посмотреть сообщение
    Вторая
    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ] "n= ", n
    FOR j = 1 TO n
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Vvedite rjad nomer "; j
    FOR i = 1 TO n
    [Ссылки могут видеть только зарегистрированные пользователи. ] "vvedite element", a(i, j)
    NEXT i
    NEXT j
    FOR j = 1 TO n
    [Ссылки могут видеть только зарегистрированные пользователи. ] "V rjadu "; j
    inr = 0
     
    FOR i = 1 TO n
    del = 0
    FOR g = 2 TO a(i, j) - 1
    IF a(i, j) [Ссылки могут видеть только зарегистрированные пользователи. ] g = 0 THEN del = 1
    NEXT g
    IF del = 0 THEN
    inr = 1
    [Ссылки могут видеть только зарегистрированные пользователи. ] a(i, j)
    [Ссылки могут видеть только зарегистрированные пользователи. ] IF
    NEXT i
    IF inr = 0 THEN [Ссылки могут видеть только зарегистрированные пользователи. ] "Net prostih chisel"
    NEXT j
    Спасибо!!! Очень сильно выручаете!!!
    Ответить с цитированием  
     

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

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

Похожие темы

  1. Ответов: 0
    Последнее сообщение: 01.07.2012, 22:03
  2. Помогите пожалуйста решить задачу!
    от maiorovleo в разделе QBasic
    Ответов: 1
    Последнее сообщение: 28.04.2012, 14:26
  3. Помогите решить задачу для практики
    от Антон1111 в разделе Assembler
    Ответов: 0
    Последнее сообщение: 29.03.2012, 17:03
  4. Помогите решить задачу
    от Дмитрий 1993 в разделе QBasic
    Ответов: 3
    Последнее сообщение: 24.01.2012, 17:00
  5. Ответов: 0
    Последнее сообщение: 30.11.2011, 20:37
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •