Под массивом понимают объединение переменных одного типа в единую структуру. Обращение к отдельным элементам в массиве осуществляется по индексу. Допустим, в программе необходимо 20 переменных для запоминания стоимостей каких-то товаров artprl. artpr20. Переменные можно объявить следующим образом:
Dim elem1!, elem2. elem10!
В отличие от объявления простых переменных появляется новая спецификация — размерность. В ней указывается максимальное значение индекса массива.
DIM MassivStrok$(1 T0 10) ’10 строковых элементов 1. 10
DIM MassivChisel%(5 TO 11) ‘7 целых чисел -элементов 5. 11
Обращение к элементам массива выгледит следующим образом:
MassivStrok$(2) ‘ Обращение ко второй строке массива MassivStrok
Вычисление суммы элементов массива в QBasic
INT(RND * 100) — Вычисление случайного целого числа
алгоритмы qbasic. язык qbasic программы. qbasic графика. работы qbasic. программирование qbasic. qbasic задачи. массивы QBasic.
Вычисление произведения элементов массива в QBasic
Вычислить сумму последовательности чисел Фибоначчи на QBasic
Если сумма чисел превысила значение переменной A, то выйти из программы
Начальный курс программирования на qbasic
алгоритмы qbasic. язык qbasic программы. qbasic графика. работы qbasic. программирование qbasic. qbasic задачи. массивы QBasic.
Найти максимальный элемент массива в QBasic
алгоритмы qbasic. язык qbasic программы. qbasic графика. работы qbasic. программирование qbasic. qbasic задачи. массивы qbasic.
Найти минимальный элемент массива в QBasic
Найти среднее арифметическое всех элементов массива на QBasic
Источник: dmtsoft.ru
Задачник по программированию на языке QBASIC
план-конспект урока по информатике и икт по теме
В задачнике содержатся задания и примеры для освоения ключевых понятий программирования на языке QBasik. В сжатой фоме представлен теоретический материал. Есть материал, посвященный работе с графикой, к которой ученики проявляют особый интерес. Сборник поможет проводить как обучающие уроки, так и самостоятельные и проверочные работы.
Скачать:
Предварительный просмотр:
ЭТАПЫ РЕШЕНИЯ ЗАДАЧ НА КОМПЬЮТЕРЕ
Отладка и тестирование программы.
Алгоритм — конечная последовательность однозначных предписаний, использование которых позволяет с помощью конечного числа шагов получить решение задачи.
Графический способ записи алгоритмов
Начало, конец алгоритма,
вход и выход в подпрограмму
Вычислительное действие или
последовательность действий
Проверка условий (ветвление)
Начало цикла (описание параметра)
Вывод результатов на печать
Базовая структура «следование» (линейная). Образуется последовательностью действий, следующих одно за другим:
полученное значение, вывод результатов на печать
Урок 1 : Простейшая программа на QBasic
Задания № 1 – 19. Составить математическую модель, блок-схему к задачам:
1) Вычислить периметр и площадь прямоугольного треугольника по длинам а и в двух катетов.
2) Вычислить длину окружности и площадь круга одного и того же заданного радиуса R.
3) Найти произведение цифр заданного четырехзначного числа.
4) Даны два числа х и у . Вычислить их сумму, разность, произведение и частное.
5) Дана длина ребра куба. Найти площадь грани, полной поверхности и объем этого куба.
6) Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоту.
7) Даны два действительных положительных числа. Найти среднее арифметическое и среднее геометрическое этих чисел.
8) Известна длина окружности. Найти площадь круга, ограниченного этой окружностью.
8) Даны катеты прямоугольного треугольника. Найти его гипотенузу и площадь.
10) Найти площадь равнобочной трапеции с основаниями a и b и углом α при большем основании.
11) Найти площадь треугольника, две стороны которого равны а и в , γ-угол между этими сторонами.
12) Найти все углы треугольника со сторонами а , в, с.
13) Найти частное произведений четных и нечетных цифр четырехзначного числа.
14) Вычислить путь лодки, плывущей против течения, если ее скорость в стоячей воде V км/ч, время движения по реке t, скорость течения реки V 1 км/ч.
15) Вычислить объем цилиндра и конуса, которые имеют одинаковую высоту Н и радиус основания R.
16) Найти площадь сектора, радиус которого равен 3,7, а дуга содержит заданное число радиан b.
17) Сколько времени в минутах затратит школьник на дорогу из школы, если известна длина расстояния S в километрах и средняя скорость движения школьника V км/час?
18) Определите объем прямоугольного параллелепипеда по его сторонам.
19) В прямоугольном треугольнике известны катет и гипотенуза. Найдите другой катет
Пример. Вычислить радиус окружности R и площадь S этого же круга, если длина окружности равна l.
Дано : l – длина окружности
Найти: R – радиус, S – площадь.
Решение : l = 2π R → R = ; S=πr
ВЕТВЛЕНИЕ. УСЛОВНЫЕ АЛГОРИТМЫ
Базовая структура «ветвление». Обеспечивает в зависимости от результата проверки условия ( да или нет ) выбор одного из альтернативных путей работы алгоритма. Каждый из путей ведет к общему выходу , так что работа алгоритма будет продолжаться независимо от того, какой путь будет выбран.
Простая условная развилка
Сложная условная развилка
Задания № 20 – 39. Составить математическую модель, блок-схему к задачам:
20) Определить, является ли сумма цифр данного трехзначного числа четным числом.
21) Определить, что данная тройка натуральных чисел а, в, с является тройкой Пифагора, т.е. с 2 = а 2 + в 2 .
22) Является ли треугольник со сторонами а, в, с равнобедренным.
23) Определить является ли введённое число нечётным.
24) Определить, является ли число с среднем арифметическим чисел а и в.
25) Определить, что сумма каких-либо двух цифр заданного трехзначного числа равна третьей.
26) Определить, что дробь а/в является правильной.
27) Дано число А, определить делится ли оно на 5.
28) Дано пять чисел. Определить является ли сумма любых двух чисел произведением трех остальных.
29) Является ли число N произведением чисел а и в.
30) Определить, равна ли сумма двух первых цифр четырехзначного числа сумме двух его последних цифр.
31) Определить, что сумма цифр четырехзначного числа N превосходит произведение цифр этого числа на 1.
32) Определить, что сумма двух первых цифр заданного четырехзначного числа равна произведению двух последних.
33) Вычислите значение переменной с по формуле a+b, если а — нечетное число и a*b , если а — четное.
34) Найти наибольшее из двух данных чисел а и в .
35) Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень — отрицательные.
36) Даны два угла треугольника (в градусах). Определить, существует ли такой треугольник, и если да, то будет ли он прямоугольным.
37) Даны действительные числа х и у, не равные друг другу. Меньшее из этих двух чисел заменить половиной их суммы, а большее — их удвоенным произведением.
38) Написать программу — модель анализа пожарного датчика в помещении, которая выводит сообщение «Пожароопасная ситуация», если температура в комнате превысила 60° С.
39) Составить программу, определяющую, пройдет ли график функции у = ах2 + bх + с через заданную точку с координатами (т, n).
Пример. Определить, что данная тройка натуральных чисел а, в, с является тройкой Пифагора, т.е. с 2 = а 2 + в 2 .
Определить: данные числа являются тройкой Пифагора
Источник: nsportal.ru
Тема: Задачи qbasic
26.10.2011, 23:00
Помогите решить задачи пожалуйста по qbasic. Задача 1: Определите принадлежит ли точка P(x;y) второй координатой четверти. P(1;-5), P(0;3),P(-6;0). Задача 2: За смену 1-ый столяр изготавливает A изделий, 2-ой B изделий (A>B). Если разница в изготавлимаих изделиях не более C, то второй столяр будет работать, пока не изготовит A изделий.
Определите количество изделий, изготовленных за смену обоими рабочими. (A=35, B=32, C=2). Нужен только код, блок схема уже есть. Заранее спасибо. ((Мой скайп sanchez1868)).
Последний раз редактировалось sanchez6666; 26.10.2011 в 23:08 .
Гуру Регистрация 09.12.2010 Адрес Беларусь, Минск Сообщений 1,277 Сказал(а) спасибо 308 Поблагодарили 206 раз(а) в 169 сообщениях Записей в блоге 5
27.10.2011, 00:04
Повводите тестовые данные и проверьте, чтобы все работало именно так, как необходимо.
Код qbasic:
[Ссылки могут видеть только зарегистрированные пользователи. ] X [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ], Y [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ] «Input X: «, X [Ссылки могут видеть только зарегистрированные пользователи. ] «Input Y: «, Y IF X 0 [Ссылки могут видеть только зарегистрированные пользователи. ] Y > 0 THEN [Ссылки могут видеть только зарегистрированные пользователи. ] «Принадлежит второй четверти» ELSE [Ссылки могут видеть только зарегистрированные пользователи. ] «Не принадлежит второй четверти» [Ссылки могут видеть только зарегистрированные пользователи. ] IF
Код qbasic:
[Ссылки могут видеть только зарегистрированные пользователи. ] A [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ], B [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ], C [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ] «Input A: «, A [Ссылки могут видеть только зарегистрированные пользователи. ] «Input B: «, B [Ссылки могут видеть только зарегистрированные пользователи. ] «Input C: «, C IF A — B C THEN [Ссылки могут видеть только зарегистрированные пользователи. ] «Всего было изготовлено»; A + A; «деталей» ELSE [Ссылки могут видеть только зарегистрированные пользователи. ] «Всего было изготовлено»; A + B; «деталей» [Ссылки могут видеть только зарегистрированные пользователи. ] IF
Источник: iforum.pro