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

Тема: Помогите пожалуйста решить задачи на QBasic

  1. #1 Помогите пожалуйста решить задачи на QBasic 
    Разбирающийся
    Регистрация
    18.11.2011
    Сообщений
    27
    Сказал(а) спасибо
    15
    Поблагодарили 0 раз(а) в 0 сообщениях
    Помогите пожалуйста решить задачи на QBasic.
    1. Запрашивается длина а и ширина b прямоугольника (от 50 до 200 пикселей). Программа рисует в центре экрана прямоугольник с заданными сторонами. Программа расчитывает длину диагоналей прямоугольника и рисует их. Под прямоугольником выводится надпись о размерах прямоугольника и длине его диагоналей.
    2. Вычислить количество корней и сами корни квадратного уравнения с заданными коэффициентами a,b,c. Если действительных корней нет, сообщить об этом.
    3. С клавиатуры вводится число N. Если число N=1, то ы центре экрана рисуется квадрат. Если N=2, то в центре рисуется круг, если N другое, то сообщить, что N=1 или N=2 и ничего не рисовать.
    Ответить с цитированием  
     

  2. #2  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Вторая задача точно где-то здесь была.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  3. #3  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  4. #4  
    Профи Аватар для Dispetcher14
    Регистрация
    12.12.2010
    Адрес
    Раменское
    Сообщений
    597
    Сказал(а) спасибо
    35
    Поблагодарили 68 раз(а) в 56 сообщениях
    Записей в блоге
    13
    Первая:
    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ] d, sh, dig1, dig2, n1, n2 [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
     
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Vvedite dlinu", d
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Vvedite shirinu", sh
    n1 = 320 - (sh / 2)
    n2 = 160 - (d / 2)
     
    [Ссылки могут видеть только зарегистрированные пользователи. ] 12
     
    [Ссылки могут видеть только зарегистрированные пользователи. ] (n1, n2)-(n1+sh, n2), 1
    [Ссылки могут видеть только зарегистрированные пользователи. ] (n1, n2)-(n1, n2+d), 1
    [Ссылки могут видеть только зарегистрированные пользователи. ] (n1+sh, n2)-(n1+sh, n2+d), 1
    [Ссылки могут видеть только зарегистрированные пользователи. ] (n1, n2+d)-(n1+sh, n2+d), 1
    [Ссылки могут видеть только зарегистрированные пользователи. ] (n1, n2+d)
    [Ссылки могут видеть только зарегистрированные пользователи. ] "dlina: ", d, "shirina", sh
    [Ссылки могут видеть только зарегистрированные пользователи. ] "diagonal: ", [Ссылки могут видеть только зарегистрированные пользователи. ](sh*sh+d*d)
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    "Спокойно, Маша, я Дубровский" (с) Дубровский, "Дубровский".
    Ответить с цитированием  
     

  5. #5  
    Профи Аватар для Dispetcher14
    Регистрация
    12.12.2010
    Адрес
    Раменское
    Сообщений
    597
    Сказал(а) спасибо
    35
    Поблагодарили 68 раз(а) в 56 сообщениях
    Записей в блоге
    13
    Третья:
    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ] n [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Введите N", n
    [Ссылки могут видеть только зарегистрированные пользователи. ] 12
     
    SELECT CASE n
    CASE 1
    [Ссылки могут видеть только зарегистрированные пользователи. ](320, 160), 20, 1
    CASE 2
    [Ссылки могут видеть только зарегистрированные пользователи. ] (300, 160)-(340, 160), 1
    [Ссылки могут видеть только зарегистрированные пользователи. ] (300, 160)-(300, 170), 1
    [Ссылки могут видеть только зарегистрированные пользователи. ] (340, 160)-(340, 170), 1
    [Ссылки могут видеть только зарегистрированные пользователи. ] (300, 170)-(340, 170), 1
    CASE ELSE
    [Ссылки могут видеть только зарегистрированные пользователи. ] (320, 160)
    [Ссылки могут видеть только зарегистрированные пользователи. ] "N=1 или N=2"
    [Ссылки могут видеть только зарегистрированные пользователи. ] SELECT
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    "Спокойно, Маша, я Дубровский" (с) Дубровский, "Дубровский".
    Ответить с цитированием  
     

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

  7. #7  
    Профи Аватар для Dispetcher14
    Регистрация
    12.12.2010
    Адрес
    Раменское
    Сообщений
    597
    Сказал(а) спасибо
    35
    Поблагодарили 68 раз(а) в 56 сообщениях
    Записей в блоге
    13
    Второе:
    Код qbasic:
    10 [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] a, b, c [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] x1, x2, x0 [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] discr [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Введите А ", a
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Введите В", b
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Введите С", c
    discr = b * b - 4 * a * c
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Дискриминант = ", discr
    SELECT CASE discr
    CASE [Ссылки могут видеть только зарегистрированные пользователи. ] < 0
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Корней нет"
    CASE [Ссылки могут видеть только зарегистрированные пользователи. ] = 0
    [Ссылки могут видеть только зарегистрированные пользователи. ] "X = ", -b / 2
    CASE [Ссылки могут видеть только зарегистрированные пользователи. ] > 0
    [Ссылки могут видеть только зарегистрированные пользователи. ] "X1 = ", (-b + [Ссылки могут видеть только зарегистрированные пользователи. ](discr)) / 2
    [Ссылки могут видеть только зарегистрированные пользователи. ] "X2 = ", (-b - [Ссылки могут видеть только зарегистрированные пользователи. ](discr)) / 2
    [Ссылки могут видеть только зарегистрированные пользователи. ] SELECT
     
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Ещё уравнение? (Y/N)"
     
    DO
    K$ = [Ссылки могут видеть только зарегистрированные пользователи. ]
    LOOP UNTIL K$ = "y" [Ссылки могут видеть только зарегистрированные пользователи. ] K$ = "n"
     
    SELECT CASE K$
    CASE "y"
    GOTO 10
    CASE "n"
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] SELECT

    Здесь вообще по классике надо не через инкей, а через цикл делать.
    "Спокойно, Маша, я Дубровский" (с) Дубровский, "Дубровский".
    Ответить с цитированием  
     

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

    Дмитрий 1993 (19.11.2011)

  9. #8  
    Разбирающийся
    Регистрация
    18.11.2011
    Сообщений
    27
    Сказал(а) спасибо
    15
    Поблагодарили 0 раз(а) в 0 сообщениях
    Спасибо, но во второй и третьей задаче нужен оператор IF.
    Ответить с цитированием  
     

  10. #9  
    Профи Аватар для Dispetcher14
    Регистрация
    12.12.2010
    Адрес
    Раменское
    Сообщений
    597
    Сказал(а) спасибо
    35
    Поблагодарили 68 раз(а) в 56 сообщениях
    Записей в блоге
    13
    Ну так замените select case на If.
    "Спокойно, Маша, я Дубровский" (с) Дубровский, "Дубровский".
    Ответить с цитированием  
     

  11. #10  
    Разбирающийся
    Регистрация
    18.11.2011
    Сообщений
    27
    Сказал(а) спасибо
    15
    Поблагодарили 0 раз(а) в 0 сообщениях
    Не получается.
    Может быть qbasic глюченый у меня. Если можно напишите как эти задачи будут выглядеть на экране.
    Ответить с цитированием  
     

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

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

Похожие темы

  1. Ответов: 6
    Последнее сообщение: 22.05.2012, 16:15
  2. помогите решить задачи пожалуйста
    от vetal в разделе Turbo Pascal
    Ответов: 6
    Последнее сообщение: 28.04.2012, 20:36
  3. Помогите решить задачи с циклами
    от Дмитрий 1993 в разделе QBasic
    Ответов: 10
    Последнее сообщение: 19.02.2012, 22:51
  4. Помогите решить задачи по BASIC -y
    от Denis в разделе QBasic
    Ответов: 1
    Последнее сообщение: 19.01.2012, 06:35
  5. Ответов: 0
    Последнее сообщение: 21.12.2011, 17:47
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •