1 СПОСОБ (метод пузырька) 2 СПОСОБ (метод сортировки  DIM A(9) простым способом).

CLS DIM A(9)

FOR i = 0 TO 9 PRINT “Введите 10 элементов”

INPUT A (i)  FOR i=0 TO 9

NEXT i INPUT A(i)

FOR i = 0 TO 9 NEXT i

FOR y = 9 TO i STEP - 1 FOR i=0 TO 9

IF A (y) >A(y-1) THEN GOTO 20 P=A(i) : K=i

m = A (y) FOR y=i+1 TO 9

A (y) = A (y-1) : A (y-1) = m IF A(y)>P THEN GOTO 50

20 NEXT y P=A(y):K=y

 NEXT i 50 NEXT y

 FOR i=0 TO 9 A(K)=A(i):A(i)=P

 PRINT А(i) NEXT i

NEXT i PRINT “Отсортированные элементы”

FOR i=0 TO 9

PRINT A(i)

 NEXT i

END

3 способ (метод простого включения)

DIM A (10), В(9)

PRINT “Введите 10 элементов”

FOR i=0 TO 9

INPUT B (i)

NEXT i

FOR i=1 TO 10

A(i)=B(i-1)

NEXT i

FOR i=1 TO 10

P=A(I):Y=I-1

40IF P<A(Y) AND Y>0 THEN A(Y+1)=A(Y):Y=Y-1:GOTO 40

A(Y+1)=P

NEXT i

PRINT “Отсортированные элементы”

FOR i=1 TO 10

PRINT A (i)

NEXT i

END

Задачи на использование цикла при обработке массивов.

1.  Вывести положительные элементы массива Х(k), затем отрицательные элементы массива У(m) и количество выведенных чисел.

2.  Даны k и массив X(k). Найти сумму.

(X1-P)2+(X2-P)2+...+(Xk-P)2, где Р=Х12+...+Хk)/k.

3. Даны m и массив Х  ( m ). Найти произведение.

(2+Х21)*(2+Х22)*...*(2+Х2m).

4. Найти номер элемента массива Х(k), ближайшего к С, где

С=(Х12+...+Хk)/k

5. Даны С, m и массив Т(m). Найти число элементов массива Т, меньших С, а для элементов, больших С, найти их среднее арифметическое.

6. Для массива Т(m) найти число элементов, больших предыдущего элемента, а для тех, которые меньше, найти их среднее арифметическое.

7. Найти номер наименьшего положительного элемента массива Х(m).

8. Для массива Х(m) напечатать сумму, произведение и номера положительных элементов после последнего нулевого элемента.

9. Даны k и массив Т(k). Найти сумму и количество элементов в массиве Т после первого нулевого элемента.

10. Даны m и массив А (m). Напечатать сумму отрицательных элементов массива А после первого нулевого элемента.

11. Даны m, координаты ХАА пункта А и в массиве К из 2m чисел координаты Х1, У1, Х22,...,Хm,Ym пунктов В1, В2,...,Вm. Вывести номер и координаты пункта В наиболее удаленного от пункта А.

12. Найти общее количество нулевых элементов в массивах Х(m), У(k).

13. Образовать и вывести массив Т из неотрицательных элементов массива Х(m). Напечатать число элементов в массиве Т.

14. Вывести четные по значению среди положительных элементов массива Х(m), начиная с первого положительного элемента.

15. Удвоить наибольший элемент массива Х(m) и напечатать измененный массив.

16. Вывести ненулевые элементы массива Х(m) и их произведение.

17. Найти сумму и количество нечетных по значению элементов массива Х(m).

18. Образовать массив Т из ненулевых элементов массива Х(m). Затем вывести массив Т и количество элементов в нем.

19. В массиве Т(m) заменить нулевые элементы наибольшим элементом.

20. В массиве Х(m) найти сумму и количество элементов между первым и последним нулевым элементами.

21. Поменять местами наибольший и наименьший элементы массива Т(m).

22. В массиве Х(m) найти общее число элементов до первого и после последнего нулевых элементов.

23. Сколько элементов в массиве Х(m) после второго нулевого элемента.

24. Из элементов массивов Х(m) и У(m) образовать массив

Н(Х1122,..., Х(m), У(m) из 2m элементов.

25. Округлить элементы массива Х(m) до ближайшего целого.

26. Из элементов массивов Х(m), У(k) образовать массив

Н((Х123,..., Хm, У123,...,Уk)  из m+k элементов.

27. Найти номер второго нулевого элемента массива Х(m).

28. Найти номер предпоследнего нулевого элемента массива Х(m).

29. Переставить элементы массива Х(m) в обратном порядке, т.е. Хm,...,X21.

30. В массиве Х(m) найти число элементов между первым и вторым нулевыми элементами.

31. Сколько в массиве Т(m) элементов, меньших суммы всех элементов?

32. В массиве Т(m) нулевые элементы заменить суммой всех элементов.

33. Образуют ли арифметическую или геометрическую прогрессию элементы массива Х(m) ?

34. В массиве Т(m) заменить элементы с четными номерами суммой элементов с нечетными номерами.

35. Найти расстояние Р между массивами А(k) и В(k) по формуле:

Р2-(А11)2 +(А22)2+...+(Акк)2.

36. В массив Р записать сначала отрицательные элементы массива Х(k). затем положительные.

37. В массиве Х(k) найти сумму элементов и их количество до первой перемены знака.

38. Из элементов массива Х(k), попадающих в отрезок [A,B], составить массив М и вывести его.

39. На плоскости ХОУ даны k точек массивами координат Х(k), Y(k). Образовать массив номеров точек вне I четверти.

40. Образовать массив Н номеров нулевых элементов массива Х(k).

41. В одномерном массиве с четным количеством элементов (2*N) находятся координаты N точек плоскости. Они располагаются в следующем порядке: х1,у1,х2,у2,х3,у3 и т.д. Определить минимальный радиус окружности с центром в начале координат, которая содержит все точки, и номера наиболее удаленных друг от друга точек.

42. В двумерном массиве N x M содержатся М ординат N графиков функций в точках 1,2,3 ,..., М. Определить, пересекаются ли эти графики в одной точке, и если да, то найти ее номер. Считать, что графики могут пересечься только в указанных точках.

43. В одномерном массиве содержится график движения электропроезда от Перми до Кунгура в виде:

первый элемент- время движения до первой остановки;

второй элемент- время стоянки на первой остановке;

третий элемент- время движения до второй остановки;

четвертый элемент- время стоянки на второй остановке;

и так далее ....

последний элемент- время движения от предпоследней остановки до Кунгура.

44. В одномерном массиве хранятся результаты социологического опроса. Написать программу для подсчета количества результатов, отклоняющихся от среднего не более чем на 7%.

45. От острова Буяна до царства славного Салтана месяц пути. Капитан корабля записывает в вахтенный журнал количества миль, пройденных за день. Написать программу, определяющую, в какую десятидневку пройден большой путь.

46. В массиве хранятся данные о температуре окружающего воздуха за месяц. Определить самую холодную декаду месяц.

47. Рост студентов двух групп, в которых соответственно 23 и 25 человек, размещен в двух массивах. Требуется определить средний рост студентов каждой группы, а также количество студентов в двух группах вместе, имеющих рост выше 180 см.

48. 20 покупателей магазина оценивают качество товара оценками 3,4,5. Определить сколько процентов составляют покупатели, поставившие 5,4 и 3 в отдельности от общего числа покупателей, участвовавших в экспертизе товара.

49. В соревновании принимали участие команды трех классов по 6 человек в каждой. Результаты каждой команды занесены в определенный массив в виде баллов, которыми судьи оценивали каждого участника. Определить команду- победителя.

50. Необходимо протестировать 15 абитуриентов для распределения их по группам для изучения иностранного языка: английский язык, французский язык, немецкий язык, начальное знакомство с иностранным языком. Составьте программу, подсчитывающую количество абитуриентов в каждой группе в зависимости от того, как ответил абитуриент на вопрос о изучении иностранного языка в школе.

51. В течении января месяца в доме не работала котельная, поэтому температура в квартирах была непостоянной. Определить количество дней в течении которых жильцам посчастливилось иметь температуру не ниже 15 градусов, а также вычислить среднюю температуру воздуха в квартирах за этот месяц. Для решения задачи использовать массив.

52. 18 учащихся сдавали норму по метанию гранаты. Составьте программу, определяющую какой процент учащихся выполнил норму. Если известно, что норма 38 метров.

53. В каждый солнечный день улитка, сидящая на дереве, поднимается вверх на 2 см, а в каждый пасмурный день опускается вниз на 1 см. В начале наблюдений улитка находилась в 30 см. от земли. Дан массив из 30 элементов, содержащий сведения о том был ли день солнечным или пасмурным. Составьте программу определения места нахождения улитки к концу 30 дня.

54. В день вашего рождения тетя положила на ваше имя в сбербанк вклад в размере 1000 рублей. Каждый год к вкладу добавляется S% годовых. Составьте программу для вычисления:

а)через сколько лет вклад достигнет R рублей?

б)какой размер вклада будет через 15 лет после вложения?

Операторы графики

 

Современные компьютеры обладают превосходными графическими возможностями - у современных мультимедийных ЭВМ возможен даже просмотр и редактирование видеофильмов. Графика ориентирована на построение простейших геометрических фигур и реализацию простейших возможностей динамической графики.

Для того чтобы работать с графической информацией необходимо установить графический режим работы специальным оператором и использовать соответствующие операторы:

1. SCREEN N- оператор включения графического режима, где N - номер режима работы (0 - текстовый режим работы, от 1 до 13 - графические режимы работы)

2. PSET (X,Y) - оператор рисования точки с координатами Х, У (0<= X<=XК 0<=Y<= YК, где ХК и УК - размер экрана в текущем режиме работы)

3. LINE (X1, Y1) - (X2, Y2) - оператор рисования отрезка,

 где (X1, Y1), (X2, Y2)- координаты концов отрезка, лежащих в диагональных вершинах

LINE (X1, Y1) - (X2, Y2),, B- оператор рисования

прямоугольника со

сторонами параллельными осям X2,Y2

координат, если вместо параметра B

используется BF, то прямоугольник будет закрашенный

X1, Y1


Информация о работе «Общие сведения о языке программирования Qbasic»
Раздел: Информатика, программирование
Количество знаков с пробелами: 39395
Количество таблиц: 10
Количество изображений: 4

Похожие работы

Скачать
35650
0
0

... # будет тесно интегрирован с языком XML[1]. 2.2 Паскаль Паскаль [PASCAL - акроним с французского - Program Applique a la Selection et la Compilation Automatique de la Litterature] - Процедурно-ориентированный язык программирования высокого уровня, разработанный в конце 1960-х гг. Никлаусом Виртом, первоначально для обучения программированию в университетах. Назван в честь французского ...

Скачать
58710
1
0

... основ в курсе обучения технологии учащихся 11 классов, и изучили их возрастные психолого-педагогические особенности. 2. Разработка элементов психологической диагностики в профильной подготовке школьников   2.1. Роль и место раздела в профильной подготовке школьников Раздел "Информационные технологии" включен в образовательную область "Технология" не случайно. Понятия "информация" и " ...

Скачать
25232
1
0

... , новые операционные системы часто появляются с Кillег-Apps, при­званными демонстрировать превосходство в производительности перед конкурентами. Только в 1982 году появилась программа для работы с электронными таблицами — Lotus 1-2-3, которой было суждено превзойти VisiCals по популярности. 1-2-3 выпускалась исключительно для IBM PC. Колеблющиеся вначале цены первой модели IBM PC подскочили в ...

Скачать
27631
2
9

елью ориентации в их совокупности являются классификации. Попытки разработки классификации информационных продуктов и услуг предпринимались неоднократно в различных сферах деятельности: сначала в библиотечной, а затем и в сфере научно-информационной деятельности. Классификация информационных продуктов и услуг в сфере библиотечной деятельности ограничилась рамками лишь тех продуктов и услуг, ...

0 комментариев


Наверх