Загальні відомості про мову програмування
Qbasic
Мова QBASIC (Beginner's All-purpose Instruction Code) розроблений Джоном Кіміні і Томасом Куртц в Дартмутського коледжі, США, у середині 1960 р.
QBASIC займає особливе місце серед всіх мов високого рівня. З самого початку він планувався як універсальна мова для початківців, і засоби програмування на QBASIC досі включаються в комплект поставки ПК, - як обов'язковий елемент технології.
Ось деякий гідності QBASIC (з точки зору масового користувача):
* Простота синтаксису;
* Простота організації даних і керуючих структур;
* Велика кількість вбудованих команд і функцій, які дозволяють без праці виконувати такі операції, як управління текстовим і графічним екраном, обробка символьних рядків і т.п.)
Особливим достоїнством QBASIC слід вважати можливість роботи в режимі інтерпретації, який різко спрощує процес налагодження програм: виконання майже кожної команди можна перевірити одразу після написання (Shift + F5).
Арифметичних виразів
Програма на мові Бейсік записується у вигляді послідовності символів, до числа яких відносяться латинські і російські букви, арабські цифри, знаки пунктуації (,;: " '?), Знаки операцій (*/- + <> = =.), Спеціальні символи ( % &! # $).
Для позначення вихідних даних і результатів обчислень вживаються змінні.
Послідовність латинських букв і цифр, що починається з букви, називається ідентифікатором або ім'ям змінної.
Числа в програмі записуються в десятковій системі, замість коми в десяткового дробу пишеться точка: 0, - 17, 0.25, - 34.85.
Змінні і числа - це найпростіші окремі випадки вирази. Більш складні вираження будуються з чисел і змінних за допомогою знаків додавання, віднімання, множення, ділення, піднесення до степеня. ?,?, *, /, ^.
При обчисленні значень виразів діють звичайні правила старшинства операцій:
1) піднесення до степеня - ^
2) множення, ділення *,/
3) додавання, віднімання +, -
Дії в арифметичних виразах виконують зліва направо в залежності від їх пріоритету. Для того, щоб змінити природний порядок дій використовуються круглі дужки. Вирази в круглих дужках виконуються в першу чергу.
У виразі можуть бути використані наступні вбудовані функції:
ABS (х) - модуль х? х?
SQR (х) - корінь квадратний з х (?? Х).
INT (х) - ціла частина х
SIN (х) - синус х (аргументом служить Радіанна міра кута)
COS (х) - косинус х
TAN (x) - тангенс х
ATN (x) - арктангенс х
LOG (x) - натуральний логарифм х
EXP (x) - експонента х
SGN (x) - визначення знака числа х
Наприклад. Записати за правилами Бейсіка математичні вирази
2) COS (X) - SIN (X) (COS (X)-SIN (X))/(ABS (COS (X) + SIN (X)))
| COS (X) + SIN (X) |
Вправи
1. Які з наступних послідовностей символів є ідентифікаторами, а які ні.
а) Х б) Х1 в) Х? г) Х1Х2 д) AB е) ABCD
ж) SIN з) SIN (Х) и) А-1 к) 2А л) MAX15
2. Записати за правилами Бейсіка наступні вирази:
а) б) 1 + Х + Х2 в) 1 +? Х? +? 1 + Х? г) А + В 2 C + D
д) A + B -1,7 е)?? 1,2-9,8 Х???? ж)? Х2 + Y2 100
1-Y (54,264-Х) (2Х +50,2)
E + F +0,5
3. Переписати наступні вирази, записані за правилами Бейсіка, у традиційній математичній формі:
а) А + B/(C + D) - (A + B)/C + D б) A * B/(C + D) - (C - D)/B * (A + B)
в) 1 + SQR (COS (Х + Y)/2) г) 2.56 + АВS (Х ^ 2-Y ^ 6)
д) INT (Х * 5.234 - А * (Х + Y))
ОПЕРАТОРИ ВВЕДЕННЯ-ВИВЕДЕННЯ
I Оператор присвоєння має загальний вигляд:
? ім'я іншої змінної
ім'я змінної =? арифметичні вирази
? число
В результаті виконання оператора присвоювання змінної, що стоїть ліворуч від знаку рівності присвоюється значення іншої змінної або значення арифметичного виразу або чисельне значення. Для того, щоб оператор присвоєння міг бути виконаємо, необхідно, щоб всі змінні у виразі мали деякі значення, були задані вище.
ПРИКЛАДИ 1. А = 0 2. С = 2 3. А = 2: В = 3
В = З С = (А + В) ^ 2/5
ВПРАВИ
1. Які з наступних послідовностей символів є операторами присвоювання:
а) А = В б) А * Х + B = C в) Z = Z 1 д) Y = Y e) - Y = Y
2. Поставити у вигляді оператора присвоєння наступні дії:
а) змінної Z присвоїти значення, рівне напівсума значень змінних
Х і Y.
б) подвоїти значення змінної А,
в) значення змінної Х збільшити на 0.1,
г) змінити знак значення змінної Y.
3. Поставити за допомогою операторів присвоювання наступні дії:
а) змінної А привласнити значення різниці, а змінної По-напівсума значень змінних Х і Y.
б) зміною А привласнити значення подвоєного твори значень змінних Х і Y, а змінної У значення 0.
4) Дано Х, Y отримати? Х? -? Y? X = 2,57 Y =- 5,379
1 +? Х * Y?
Оператори введення-виведення
Оператор введення з клавіатури:
INPUT [ "текст";] X1, [X2, X3 ... XN]
[] - Означають, що параметри, які стоять в них не обов'язкові;
X1, X2, ... XN - імена змінних або ідентифікатори.
В результаті виконання цього оператора на екрані з'явиться текст, а змінним X1, X2, ... XN будуть задані значення з клавіатури.
Оператори блоку даних
READ X1, X2, X3, ... XN де X1, X2, .. XN - це імена змінних
DATA C1, C2, C3, ... CN C1, C2, ... CN - це значення
В результаті виконання цих операторів мінлива X1 одержить значення C1, X2 набуде значення C2 ...
Зауваження! Оператор DATA може стояти в будь-якому місці програми. Зчитувати дані зі сховища DATA можна за допомогою декількох операторів READ.
Оператор RESTORE повертає зчитування даних на початок.
Оператор виводу на екран
PRINT S1 [; S2; S3 ...]< br />
де S1, S2 ... SN - списки
Списки це:
1) ім'я змінної, значення якої необхідно вивести на друк;
2) арифметичне вираз, значення якого необхідно вивести на друк;
3) текст, укладений в лапки.
Роздільник між списками може бути:
1), - списки відокремлюються один від одного кроком табуляції, рівним 8 прогалинам;
2); - списки друкуються впритул один до одного.
Для управління виводу використовують спеціальний оператор:
LOCATE X, Y
де X - номер рядка екрана 1 NOT "не" (заперечення)
= більше або дорівнює> =
не дорівнює
Таблиця дії логічних функцій (таблиця істинності), де a і b-логічні вирази.
A B NOT a NOT b a AND b a OR b
TRUE TRUE FALSE FALSE TRUE TRUE
TRUE FALSE FALSE TRUE FALSE TRUE
FALSE TRUE TRUE FALSE FALSE TRUE
FALSE FALSE TRUE TRUE FALSE FALSE
Приклад запису логічного виразу: a + b> c AND d 8.
Логічна операція NOT (заперечення) виконується над простим логічним виразом: NOT (a> b)
Логічне вираз приймає одне з двох значень: TRUE (істина) і FALSE (неправда). Ці вирази застосовуються в операторах розгалуження і циклу.
Існуючий пріоритет виконання операцій підтримується і тут:
спочатку виконуються операції в дужках, потім логічне множення, логічне додавання
Приклади записів логічних виразів:
математична запис запис на мові Бейсік
(X> 0) і (Y0) AND (Y
-2 =- 2) AND (Y
X10 (X10)
Прийнято наступний пріоритет логічних і арифметичних операцій:
* Операції в дужках;
* Операція NOT;
* Операції AND, /, *;
* Операції OR, +, -;
* Операції відносини.
Вправи
1. Обчислити значення логічного виразу
а) Х2-У2 X) при X = 4, Y = 1
2. Написати логічні вирази, які мають значення істинна лише при виконанні зазначених умов:
а) X> 0 і Y> 0 Y не є MAX (X, Y, Z)
б) невірно, що X> 0 X, Y, Z рівні між собою
в) 2
ї чверті
Оператори переходу поділяються на дві групи:
оператори безумовного переходу і оператори умовного переходу.
Оператор безумовного переходу.
Він служить для переходу з одного рядка програми до іншої з позначкою номером або міткою.
Загальний вигляд оператора: GOTO N
де N - номер рядка або мітки оператора, на який відбувається перехід в програмі.
Приклади:
1. X = 3 2. GOTO W
GOTO 7 ...
Y = 2 * XW PRINT "рішення отримано"
7 Z = 5 * X
Оператори умовного переходу
Існують дві форми розгалуження: повна і неповна.
Відповідно існують і два види операторів: повної та неповної альтернативи.
I. Повна альтернатива (передбачені команди в гілці "ТАК" і в гілці "НІ").
1) Лінійна форма запису (оператор записується в одному рядку)
Умова виконується "ТАК"
IF умова THEN блок операторів 1 ELSE блок операторів 2
Умова не виконується "НІ"
Робота оператора: залежно від того виконується чи не виконується умова (умова - логічне вираження, яке може містити знаки порівняння та логічні операції). Якщо умова істинно, то виконується блок операторів 1, якщо умова помилково, то виконується блок операторів 2.
ПРИКЛАД: IF A = 1 THEN PRINT "ТАК" ELSE PRINT "НІ"
PRINT "КІНЕЦЬ"
Тут оператори працюють таким чином:
* Якщо умова А = 1 "Істина", то виконуються оператори PRINT "ТАК" і PRINT "КІНЕЦЬ";
* Якщо умова А = 1 "помилковою", то виконуються оператори PRINT "НІ" і PRINT "КІНЕЦЬ".
*
2) Блочна форма запису:
IF умова THEN ПРИКЛАД:
блок операторів CLS: INPUT a
гілки "ТАК" IF a = 1 THEN
ELSE PRINT "працює гілку ТАК"
блок операторів PRINT a
гілки "НІ" ELSE
END IF PRINT "працює гілку НІ"
PRINT a
END IF
II. Умовний оператор неповної альтернативи:
IF умова THEN блок операторів
Приклади розв'язання задач.
Приклад 1.Определіть найбільша з двох чисел Х і У, введених клавіатури.
CLS: INPUT ""; X, Y
IF X> Y THEN
PRINT "Найбільше число X ="; X
ELSE
PRINT "Найбільший ЧІСЛОY ="; Y
END IF
END
Приклад 2. Розрахуйте Функцію для будь-якого значення Х.
X2 4 X-7, X
Y =
X2-3X 12, X> 2 Y = X ^ 2 4 * X-7
ELSE
Y = X ^ 2-3 * X 12
END IF
PRINT "ФУНКЦІЯ ="; У; "при Х ="; Х
END
Приклад 3. Обчислити функцію У = 3х2-5Х 12 на відрізку (-3,3) з кроком 1.
CLS: PRINT "Y", "X"
X =- 3
4 Y = 3 * X ^ 2-5 * X 12
PRINT Y, X
X = X +1
IF X
END
Приклад 4. Обчислити суму цілих чисел від 10 до 20
S = 10 +11 +12 +...+ 20
CLS: S = 0: X = 10
5 S = S + X
X = X +1
IF X
PRINT "сума ="; S
END
Приклад 5. Розрахуйте добуток непарних чисел від 15 до 30
Р = 15 * 17 * 19 *...* 29
CLS: P = 1: X = 15
7 P = P * X
X = X 2
IF X
PRINT "твір ="; P
END
Цикли.
У мові QBASIC передбачено два основних способи організації циклів:
* Повторення блоку команд задану кількість (число) раз (цикл з лічильником);
* Циклічне повторення блоку команд, поки виконується (або не виконується) деякий умова.
Цикл з лічильником (FOR. .. NEXT) ДЛЯ ... Наступна
Оператор циклу реалізує алгоритмічну конструкцію, в якій певні дії повторюються багато разів.
Загальний вигляд оператора циклу з лічильником:
FOR K = K1 TO K2 STEP K3 - заголовок циклу
- Тіло циклу -
NEXT K - кінець циклу
Тут FOR - ім'я оператора (перекладається "для"); К - мінлива (зазвичай цілого типу), яка називається змінна керування циклом; К1, К2, К3 - початкове, кінцеве значення і крок зміни величини К відповідно, можуть бути подані будь-якими арифметичними виразами; ТО, SТЕР - Переклади - "до", "крок"; тіло циклу - будь-які оператори мови Бейсік; NEXT - оператор (перекладається "наступний").
Спільна робота операторів і визначається схемою:
де
K 0
<Умова> =
K> K2, якщо K3 <0>
Інакше кажучи, оператори FOR і NEXT забезпечують зміна значення К від К1 до К2 з кроком К3 і виконання оператора (операторів), укладених між FOR та NEXT, при кожному значенні К.
Обмеження:
1. Змінювати значення величин К1, К2, К3 в процесі виконання операторів FOR і NEXT не рекомендується.
2. Вхід в цикл, минаючи оператор FOR, в Бейсіку заборонений.
Приклади розв'язання задач
Приклад 1. Виведіть на екран в стовпчик цілі числа від 1 до 10.
CLS
FOR J = 1 TO 10 STEP 1
PRINT J
NEXT J
END
Приклад 2. Обчислити суму цілих чисел від 1 до 10
CLS: S = 0
FOR I = 1 TO 10 STEP 1
S = S + I
NEXT I
PRINT ""; S
END
Приклад 3. Обчислити значення функції y = 2X2-3X 5 на відрізку (-3, 3) з кроком 1,5
CLS: PRINT "Y"; "X"
FOR X =- 3 TO 3 STEP 1.5
Y = 2 * X ^ 2-3 * X 5
PRINT Y, X
NEXT X
END
Приклад 4. Розрахуйте суму S = 2 4 +...+ 2 N, якщо N вводиться з клавіатури CLS: S = 0
INPUT «введіть« N »; N
FOR I = 1 TO N
S = S + 2 * N
NEXT I
PRINT «сума =«; S
END
Приклад 5 Виведіть слово «IBM» 10 разів, щоб вийшла діагональ
CLS
FOR K = 5 TO 15
LOCATE K, K
PRINT «IBM»
NEXT K
END
Цикл WHILE ... WEND (ПОКА. .. КІНЕЦЬ)
Конструкція WHILE ... WEND (ПОКА. .. КІНЕЦЬ) дозволяє виконувати блок команд до тих пір, поки значення виразу, заданого в WHILE - "Істина".
Загальний вигляд оператора
WHILE логічне вираження
- Блок команд -
WEND
Робота операторів може визначатися наступною схемою:
НІ
ТАК
Після завершення циклу управління передається команді, що йде за WEND.
Якщо під час перевірки умови виявиться, що значення логічного виразу - "Брехня", блок команд не буде виконано жодного разу.
За допомогою WHILE ... WEND можна організувати вкладені цикли - кожен зі своїми WHILE ... WEND.
Обмеження: з цієї конструкції не можна вийти "достроково", тобто до завершення роботи оператора.
Приклади розв'язання задач.
CLS: I = 1
WHILE I <5>
PRINT "I ="; I;
I = I +1
WEND
На екрані буде: I = 1 I = 2 I = 3 I = 4
Задачі за темою "Умовний оператор" та "Оператор циклу"
1.Найті найбільше з чисел (х + у)/2 і (х + у/2) для будь-яких чисел х та у.
2. Обчислити значення функцій для будь-яких Х і Z
а) Y = (X-15)/(x-6); б) Y = 2X-5/(7Z-4X);
X2 5 X-14, якщо X
с) Y =
3X2-7X, якщо X> =- 2
г) 5X2 4 X-21, якщо X <-7>
Y =
2X2-3X, якщо X> =- 7
д) X + Z, якщо X5
Y = X * Z в інших випадках
3. Задані довжини сторін трикутника - А, В, С, Визначити, чи є трикутник рівнобедреним.
4. Скласти програму, що виводить на екран перші десять натуральних чисел.
5. Скласти програму, друкуючу таблицю квадратів перших десяти цілих чисел у центрі чистого екрана.
6. Обчислити значення функції
а) Y = 5 * X2-4X 11 на відрізку (-5,5) з кроком 1,5;
б) X2-2 * X 3, якщо X
Y = <на відрізку (-7, 7) з кроком 1;>
X-18 +12, якщо X> = 0
в) SIN (X), якщо X
Y =
на відрізку (-6, 6) з кроком 0,5.
7. Виведіть у стовпчик ряд натуральних чисел від 1 до 10.
8. Виведіть на екран в стовпчик парні числа від 1 до 20.
9. Виведіть на екран у рядок непарні числа від 15 до 20.
10. Знайдіть:
а) суму цілих чисел від 10 до 20;
б) твір цілих чисел від 20 до 20;
в) суму непарних чисел від 20 до 40;
г) твір цілих чисел від 20 до 40;
д) суму парних чисел від 1 до 20;
е) твір парних чисел від 1 до 20.
11. Виведіть на екран 10 разів слово "PENTIUM" по діагоналі.
12. Дна послідовність чисел, введена з клавіатури. Знайдіть суму негативних членів цієї послідовності і твір позитивних, кількість негативних і позитивних.
13. Складіть програму, що виводить на екран:
а) рух "*" по першому рядку екрана;
б) рух "*" за останнім колонку екрану;
в) рух "*" по діагоналі.
15. Розрахуйте твору, якщо А і вводяться з клавіатури:
а) 1 1 1;
(1 +12) * (1 +22 )...( 1 + N2)
б) A * (AN) * (A-2N )...( AN * N); в) 2 * 4 * 6 *...* 2 * N.
16. Визначити чи є довільне число кратним:
а) двох; б) трьом; в) п'яти.
17. Виведіть на екран прості числа в діапазоні
а) від 1 до 20; б) від 20 до 100.
18. Визначити є довільне число простим.
Рядкові змінні
У мові Бейсік існує можливість обробки не тільки числових, але текстових, символьних даних. Для цього використовують символьні (рядкові або, літерні) константи, перемінні і вирази.
Символьна константа - це рядок символів, укладена в лапки. Значення константи є послідовність складових її символів не враховуючи лапок. Два йдуть підряд знаку лапок ставлять порожню символьну рядок, що не містить жодного символу.
У символьної змінної є ім'я, яке закінчується знаком $, і значення в вигляді рядка символів.
Для рядків визначена операція порівняння: рядки вважаються рівними, якщо їх довжини рівні і коди всіх символів попарно збігаються. Якщо один з рядків співпадає з початком іншої (але коротше її), то вона менше. В інших випадках все вирішує код перший неспівпадаючі символу - менше той рядок, у якій він менше.
Операції, вироблені над рядковими змінними
а) привласнення текстової константи:
A $ = "РЯДОК СИМВОЛІВ"
T $ = "" - очищення рядків
б) друк значень строкових змінних:
PRINT A $, T $
в) склеювання двох рядків:
T $ = A $ + B $
P $ = "СЛОВО:" + P $
C $ = "склеювання" + "" + "СТРОК"
г) введення значень строкових змінних з клавіатури:
INPUT A $, B $
- При введенні рядок можна не укладати в кавичкі.
Основні функції роботи з символьними змінними:
VAL (A $) - переклад рядка в число;
CHR $ (L) - видає символ за кодом даного числа;
ASC (S $) - видає код першого символу рядка
SRT $ (K) - перетворить число в символьну рядок, який є записом у вигляді послідовності десяткових цифр;
LEN (F $) - видає довжину символьного вирази;
LEFT $ (F $, N) - вирізає задану кількість символів ліворуч;
RIGHT $ (F $, N) - вирізає задану кількість символів праворуч;
MID $ (F $, N1, N2) - вирізка з рядка заданої кількості символів з заданого символу
Приклади розв'язання задач.
Приклад 1. Підрахувати, скільки разів серед символів заданої рядки зустрічається буква "F".
CLS
INPUT "Введіть рядок -"; S $
K = 0
FOR I = 1 TO LEN (S $)
IF MID $ (S $, I, 1) = "F" THEN K = K +1
NEXT I
PRINT "Буква F зустрілася"; K; "раз (а)"
END
Приклад 2. Скласти програму, яка друкує задане слово задом наперед.
CLS
INPUT "Введіть слово -"; S $
FOR I = LEN (S $) TO 1 STEP -1
PRINT MID $ (S $, I, 1);
NEXT I
END
Приклад 3. Видати номер позиції заданої рядки, в якій вперше зустрічається буква "в". Якщо такої букви в рядку немає, видати повідомлення про це.
CLS: INPUT "Введіть рядок -"; S $
K = 0
FOR I = 1 TO LEN (S $)
IF MID $ (S $, I, 1) = "в" THEN 80
NEXT I
PRINT "Букви в нет в заданій рядку"
GOTO 90
80 PRINT "Перша буква в зустрілася в"; I; "-й позиції"
90 END
Завдання на роботу з символьними змінними
1. Підрахувати скільки разів серед символів заданої рядки зустрічається літера «F».
2. Скласти програму, яка друкує задане слово задом наперед.
3. Підрахувати кількість цифр у заданій рядку.
4. Підрахувати кількість складів у слові.
5. Перевірити, чи є задане слово паліндромом ( «перевертнем», як слова КОЗАК, намет і т.д.)
6. Серед натуральних чисел від 1 до n знайти всі такі, запис яких збігається з останніми цифрами запису їх квадратів (5 і 25, 6 і 36, 25 і 625 і т.д.)
7. Видати номер позиції заданої рядки, в якій вперше зустрічається буква «в». Якщо такої букви в рядку немає, видати повідомлення про це.
8. Видати номер позиції заданої рядки, в якій в п'ятий раз зустрічається буква «W». Якщо такої позиції немає, видати повідомлення про це.
9. У заданої рядку окремо підрахувати кількість символів «а» і «b».
10. З заданої рядки отримати нову, замінивши всі коми на точки. Роздрукувати отриману рядок.
11. З заданої рядки отримати нову, викинувши з неї всі крапки. Роздрукувати отриману рядок.
12. З заданої рядки отримати нову, видаливши всі зірочки («*») і повторивши кожен символ, відмінний від зірочки. Роздрукувати отриману. рядок.
13. З заданої рядки отримати нову, замінивши в ній всі символи після першої зірочки («*») знаком «-« (якщо в рядку немає зірочок, залишити її без змін). Роздрукувати отриману рядок.
14. З заданої рядки отримати нову, видаливши з неї всі двокрапки, що передують першому точці, і замінивши в ній всі знаки «+» після першого точки знаком? -? (якщо в рядку немає точок, додайте в кінці). Роздрукувати отриману рядок.
15. У заданої рядку поміняти місцями першу літеру? а? і першу букву? b?. Якщо хоча б однієї з них немає, надрукувати повідомлення, інакше роздрукувати отриману рядок.
16. Визначити найменшу довжину слова в заданій рядку (вважати, що слова відокремлюються один від одного пробілами).
17. З заданої рядки виділити підрядок довжиною 5 знаків (або до кінця рядка, якщо залишилося менше), яка починається з першого зустрілися в рядку літери? f?. Версія підрядок або повідомлення про те, що її немає.
18. У заданої рядку перший символ-заголовна латинська буква. Якщо це? К?,? О?,? D?, Замінити її відповідної малої літери. Роздрукувати отриману рядок.
19. У заданої рядку підрахувати кількість букв латинського алфавіту.
20. З заданої рядки отримати нову, видаливши всі символи, які не є літерами латинського алфавіту.
21. У заданої рядку перетворити всі великі букви латинського алфавіту на малі, а малі у великі.
22. З заданої рядки отримати нову, видаливши всі групи букв? abcd?.
23. З заданої рядки отримати нову, помітивши всі групи букв? abc? на? abcd?.
24. Підрахувати, скільки слів в заданій рядку закінчується буквою? я?, якщо відомо, що після слова обов'язково стоїть пробіл, або крапка.
25. Дано натуральне число n, символи s1, ... sn. Перетворити послідовність s1, ... sn,, замінивши в ній:
а) всі знаки оклику точками;
б) кожну точку трьома крапками (тобто трьома точками);
в) кожну з груп, які стоять поряд точок однією точкою;
г) кожну з груп, які стоять поряд точок трьома крапками (тобто трьома точками).
26. Дано натуральне число n, символи s1, ... sn. З'ясувати, чи є в послідовності s1, ... sn такі члени послідовності sj, sj 1, що sj - це кома, а sj 1 - тире.
27. Дано натуральне число n, символи s1, ... sn. Отримати перший натуральне j, для якого кожний із символів sj і sj 1 збігається з буквою а. Якщо такої пари символів в послідовності s1, ... sn немає, то відповіддю має бути число 0.
Масиви
У математиці прийнято подібні по характеру величини позначати одним загальним ім'ям, а розрізняти їх за індексом. Наприклад, члени якої-небудь послідовності можна позначити таким чином:
А1, А2 ,...., А n
ім'я індекс
Аналогічно поступають в Бейсіку
А (1) А (2) ... А (N)
ім'я масиву індекс у круглих дужках
Масив - це сукупність змінних позначених загальним ім'ям і розрізняються за допомогою індексів, які записуються у круглих дужках після імені масиву.
DIM Англійське слово (діменшн) означає масив
Оператор DIM використовується для того, щоб вказати загальну кількість змінних в масиві. Це необхідно для раціонального розподілу пам'яті комп'ютера.
Оголошення масиву
DIM A (7) кількість змінних в масиві (елементів
в масиві)
Загальне ім'я Виконання оператора DIM полягає
елементів масиву в тому, що в пам'яті комп'ютера утворюється
масив змінних.
А (0) А (1) А (2) А (3) А (4) А (5) А (6) А (7)
А
Обмеження: масив не можна оголошувати двічі, тому слід оголошувати масиви в початкових рядках програми і не повертатися в ці рядки за допомогою оператора GOTO.
Кожен елемент масиву має:
1) ім'ям Х (5)
2) індексом місце в пам'яті, відведений
3) значенням 3,2 під даний елемент масиву
Введення елементів масиву може здійснюватися кількома способами:
1) DIM A (5)
A (0) = 4: A (I) =- 2.5: (3) = 10: A (4) = 0: A (5) = 6: A (2) = 3
Цей спосіб введення зручний, коли масив невеликий
2) Введення елементів масиву з клавіатури
DIM А (9)
FOR I = 0 TO 9
INPUT A (I)
NEXT I
3) DIM B (6)
DATA 0, -2, 1, 5, 8, 5, 6. 26
FOR N = 0 TO 6
READ B (N)
NEXT N
Висновок елементів масиву можна здійснювати в рядок і у стовпчик:
1) DIM A (3)
PRINT A (0), A (I), A (2), A (3)
Цей спосіб виведення зручний, коли масив невеликий
2) DIM A (10)
FOR I = 0 TO 9
PRINT A (I)
NEXT I
Основні прийоми при вирішенні завдань із застосуванням масивів
Приклад 1. Дан масив з 10 елементів. Знайти суму елементів масиву
DIM A (9)
S = 0
FOR N = 0 TO 9
S = S + A (N)
NEXT N
PRINT? Сума =?; S
Приклад 2. Знайти мінімальний елемент масиву та індекс цього мінімального елементу
DIM L (9)
MIN = L (0): K = 0
FOR I = 1 TO 9
IF MIN> L (I) THEN MIN = L (I): K = I
NEXT I
PRINT? Мінімум?; MIN
Приклад 3. Дано 2 масиву А (9), В (9). Отримати масив, кожен елемент якого дорівнює сумі відповідних елементів даних масивів
DIM A (9), B (9), C (9)
FOR I = 0 TO 9
C (I) = A (I) + B (I): PRINT C (I)
NEXT I
Сортування масиву За зростанням
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 P0 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, де Р = Х1 + Х2 +...+ Хk)/k.
3. Дано m і масив Х (m). Знайти твір.
(2 + Х21) * (2 + х22 )*...*( 2 + Х2m).
4. Знайти номер елемента масиву Х (k), найближчого до С, де
С = (Х1 + Х2 +...+ Хk)/k
5. Дано С, m і масив Т (m). Знайти кількість елементів масиву Т, менших С, а для елементів, великих С, знайти їх середнє арифметичне.
6. Для масиву Т (m) знайти кількість елементів, великих попереднього елементу, а для тих, які менше, знайти їх середнє арифметичне.
7. Знайти номер найменшого позитивного елементу масиву Х (m).
8. Для масиву Х (m) надрукувати суму, твір і номери позитивних елементів після останнього нульового елемента.
9. Дано k і масив Т (k). Знайти суму і кількість елементів у масиві Т після першого нульового елемента.
10. Дано m і масив А (m). Надрукувати суму негативних елементів масиву А після першого нульового елемента.
11. Дано m, координати ХА, УА пункту А і в масиві ДО із 2m чисел координати Х1, У1, Х2, У2 ,..., Х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) утворити масив
Н (Х1, У1, Х2, У2 ,..., Х (m), У (m) з 2m елементів.
25. Округлити елементи масиву Х (m) до найближчого цілого.
26. З елементів масивів Х (m), У (k) утворити масив
Н ((Х1, Х2, Х3 ,..., Хm, У1, У2, У3 ,..., Уk) з m + k елементів.
27. Знайти номер другий нульового елемента масиву Х (m).
28. Знайти номер передостаннього нульового елемента масиву Х (m).
29. Переставити елементи масиву Х (m) у зворотному порядку, тобто Хm ,..., X2, Х1.
30. У масиві Х (m) знайти число елементів між першим і другим нульовими елементами.
31. Скільки в масиві Т (m) елементів, менших суми всіх елементів?
32. У масиві Т (m) нульові елементи замінити сумою всіх елементів.
33. Утворюють чи арифметичної або геометричну прогресію елементи масиву Х (m)?
34. У масиві Т (m) замінити елементи з парними номерами сумою елементів з непарними номерами.
35. Знайти відстань між масивами Р А (k) і В (k) за формулою:
Р2-(А1-В1) 2 + (А2-В2) 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. У одновимірному масиві міститься графік руху електропроезда від Пермі до Кунгура у вигляді:
перший елемент-час руху до першої зупинки;
другий елемент-час стоянки на першій зупинці;
третій елемент-час руху до другої зупинки;
четвертий елемент-час стоянки на другій зупинці;
і так далі ....< br />
останній елемент-час руху від передостанній зупинки до Кунгура.
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
