Алгоритмизация_и_программирование. Алгоритмизация и программирование План
Скачать 1.51 Mb.
|
Читать из блока данных:Читать из блока данных: READ список_переменных В списке_переменных через запятую указываются имена переменных, которым присваиваются значения констант из блока данных. Например: READ а%, р%, с! а%=5, р%=25, с!=12.3 Восстановление указателя блока данных: RESTORE [номер_строки или метка] где номер_строки (метка) должен указывать на оператор DATA. Например: RESTORE 20, READ a%, zt$, kl$ a% = 7, zt$ = “BASIC” , kl$ = “WINDOWS”. Вывод данных на дисплей:Вывод данных на дисплей: PRINT список_выражений В списке_выражений перечисляются выражения, значения которых надо вывести на дисплей. Например, команда PRINT “мне”; k%; “лет” выведет на экран: мне 16 лет (если значение k% равно 16) Если в качестве разделителя в списке_выражений указана запятая, QBASIC выводит данные по зонам, каждая зона – 14 позиций. Безусловный переход:Безусловный переход: GOTO номер_строки или метка Например: 10 GOTO m1 . . . m1: PRINT “Решение получено” Условный переход (ветвление) IF… THEN… ELSE… (ЕСЛИ… ТО… ИНАЧЕ…) Блочный формат IF условие_1 THEN блок команд_1 [ELSEIF условие_2 THEN блок команд_2 . . . [ELSE блок команд_n ]…] END IF Линейный формат IF условие THEN блок_1 [ELSE блок_2] Цикл со счетчикомЦикл со счетчиком FOR…NEXT (для…следующий) FOR счетчик = начало TO конец [STEP шаг ] блок_команд NEXT счетчик Пример Подсчитаем сумму четных чисел в промежутке от 1 до 50. S = 0 ‘ начальное значение cуммы FOR i = 2 TO 50 STEP 2 S = S + i NEXT i PRINT “Сумма четных чисел S =”; S END С помощью FOR…NEXT можно организовать вложенные циклы – каждый со своим FOR, NEXT и счетчиком: FOR i = … FOR j =… … NEXT j NEXT i Из цикла FOR…NEXT с помощью оператора EXIT FOR можно выйти “досрочно”. Управление передается команде, следующей за NEXT. Цикл WHILE…WEND (пока…конец). WHILE условие блок _команд WEND Пример Подсчитаем сумму четных чисел в промежутке от 1 до 50. S = 0 ’ начальное значение cуммы i = 2 ’ первое четное число WHILE i < = 50 S = S + i i = i + 2 WEND PRINT “Сумма четных чисел S =”; S END Универсальный цикл DO…LOOP (делать…цикл).
Пример. Подсчитаем сумму четных чисел в промежутке от 1 до 50.
Описание массива:Описание массива: DIM имя (размер) [ AS тип ] Например: DIM A(10) AS Integer, B(5) AS String Пусть дан числовой массив из N элементов. Надо отсортировать его по возрастанию. Сортировка методом "пузырька". Сравниваем элементы массива попарно и, в случае, если они расположены не по порядку, меняем их местами. В результате максимальное число после каждого шага сортировки как бы всплывает в конец массива, на свое заслуженное место.
Рассмотрим массив А = {5, 4, 3, 2, 1} Отсортируем его по возрастанию |