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

Тема: Составить блок-схему и программу к задаче

  1. #1 Составить блок-схему и программу к задаче 
    Новичок
    Регистрация
    01.12.2013
    Сообщений
    2
    Сказал(а) спасибо
    1
    Поблагодарили 0 раз(а) в 0 сообщениях
    текст задачи: ввести n чисел и расположить их в порядке убывания.
    (помогите,пожалуйста,блок-схему обязательно преподаватель сказала).
    язык-basic
    Ответить с цитированием  
     

  2. #2  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,822
    Сказал(а) спасибо
    1,808
    Поблагодарили 933 раз(а) в 795 сообщениях
    Записей в блоге
    1
    Сортируем пузырём:

    Код qbasic:
    CLS
    INPUT "Vvedite kol-vo elementov( n ): ", n
    DIM A(1 TO n) AS INTEGER
    PRINT
    FOR i = 1 TO n
       PRINT "  Vvedite element N" + CHR$(248); i;
       INPUT ": ", A(i)
    NEXT
    CLS
    PRINT "Do sortirovki:"
    FOR i = 1 TO n
       PRINT A(i);
    NEXT
    FOR iy = 1 TO n - 1
       t = -1
       FOR ix = 1 TO n - iy
          IF A(ix) < A(ix + 1) THEN SWAP A(ix), A(ix + 1): t = 0
       NEXT
       IF t THEN EXIT FOR   ' Выход, если массив уже упорядочен
    NEXT: PRINT
    PRINT "Posle:"
    FOR i = 1 TO n
       PRINT A(i);
    NEXT

    Блок схема тут: http://liveflowcharts.ru/charts/puzy...ortirovka.html
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  3. 2 пользователя(ей) сказали cпасибо:

    igoshina.ne (02.12.2013), Абадябер (02.12.2013)

  4. #3  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Ох какая кучерявая блоксхема!
    Ответить с цитированием  
     

  5. #4  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,822
    Сказал(а) спасибо
    1,808
    Поблагодарили 933 раз(а) в 795 сообщениях
    Записей в блоге
    1
    Dimon012, да я сам опупел))) просто лениво было рисовать, ясен пень такую машну не сделал б
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  6. #5  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Цитата Сообщение от >Quiet Snow< Посмотреть сообщение
    Dimon012, да я сам опупел))) просто лениво было рисовать, ясен пень такую машну не сделал б
    Да он еще и запускается, выполняется, красивая графика!
    Ответить с цитированием  
     

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

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

Похожие темы

  1. Cоставить блок-схему и программу
    от лена в разделе Turbo Pascal
    Ответов: 2
    Последнее сообщение: 11.12.2011, 13:15
  2. Ответов: 9
    Последнее сообщение: 19.11.2011, 23:40
  3. Ответов: 2
    Последнее сообщение: 13.11.2011, 07:25
  4. Ответов: 8
    Последнее сообщение: 30.10.2011, 11:29
  5. Ответов: 2
    Последнее сообщение: 13.05.2011, 22:22
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •