СХІДНА ЕКОНОМІКО-ЮРИДИЧНА ГУМАНІТАРНА АКАДЕМІЯ (Академія ВЕГУ)
Стерлітамацький інститут
Пояснювальна записка
до контрольної роботи
«Рішення задач на мові програмування Turbo Basi k»
Варіант № 4
Виконала: студентка ЗО
ФИК, гр. СПО-09
Перевірила: к. ф-м н. доцент
Стерлітамак 2010
Зміст
Завдання 1
Завдання 2
Завдання 3
Завдання 4
Завдання 5
Література
Завдання № 1
Постановка завдання
Є чотири A, B, C, D довільних числа. ЕОМ повинна відповісти на питання: Чи правда що числа розташовані в порядку зростання?
Блок - схема
Так Ні
Так Ні
Так Ні
Вихідний текст програми
CLS
INPUT "Введіть A ="; A
INPUT "Введіть B ="; B
INPUT "Введіть C ="; C
INPUT "Введіть D ="; D
k = 0
IF NOT (A <B) THEN k = k + 1
IF NOT (B <C) THEN k = k + 1
IF NOT (C <D) THEN k = k + 1
IF k = 0 THEN PRINT "Правда" ELSE PRINT "Неправда"
END
Екранна форма
Введіть A =? 1
Введіть В =? 2
Введіть С =? 3
Введіть D =? 4
Правда
Завдання № 2
2.1 Постановка завдання
Скласти програму обчислення і видачі на друк суми / твори N елементів нескінченного числового ряду у = 2 - 6 + 18 - 54 + 162 - ...
2.2 Блок-схема
2.3 Оригінальний текст програми
CLS
INPUT "Введіть N ="; N
S = 0
P = 1
FOR I = 1 TO N
S = S + (2 * 9 ^ I - 6 * 9 ^ I)
P = P * (2 * 9 ^ I - 6 * 9 ^ I)
NEXT I
PRINT "Сума нескінченної низки S =", S
PRINT "Твір нескінченного ряду P =", P
END
2.4 Екранна форма
Введіть N =? 4
Сума нескінченної низки S = - 29520
Твір нескінченного ряду P = 8.926168 E +11
Завдання № 3
2.5 Постановка завдання
Є масив А з N довільних чисел (А (N)), серед яких є позитивні, негативні та рівні нулю. Надрукувати всі числа з черги, квадрат яких перевищує 7, але менше 50.
2.6 Блок-схема
2.7 Оригінальний текст програми
CLS
INPUT "N ="; N
DIM A (N)
FOR I = 1 TO N
PRINT "A ("; I; ") =";
INPUT A (I)
NEXT I
FOR I = 1 TO N
PRINT A (I); "";
NEXT I
FOR I = 1 TO N
IF (A (I) ^ 2> 7) AND (A (I) ^ 2 <50) THEN PRINT A (I); "";
NEXT I
END
2. 8 Екранна форма
N =? 7
A (1) =? 2
A (2) =? 4
A (3) =? -3
A (4) =? 3
A (5) =? 5
A (6) =? -2
A (7) =? 8
2 4 -3 3 5 -2 8
4 -3 3 5
Завдання № 4
4.1 Постановка завдання
Скласти програму обчислення числового ряду для відомого числа членів ряду N: Y = (1 / 2 4 + 1) (2 / 2 3 - 2) (3 / 2 2 + 4) (4 / 2 1 - 8) ...
4.2 Блок-схема
4.3 Вихідний текст програми
CLS
INPUT "N ="; N
Y = 1
FOR I = 0 TO N
A = (I + 1) / 2 ^ (4 - I)
B = (-1) ^ (I + 2)
C = 2 ^ I
X = A + B * C
Y = Y * X
NEXT I
PRINT "Otvet Y ="; Y
END
4.4 Екранна форма
N =? 4
Y = 1112.836
Завдання № 5
5.1 Постановка завдання
У матриці розміру 4х3 знайти значення максимального елемента в кожному рядку.
Блок-схема
5.3 Вихідний текст програми
CLS
DIM A (4, 3)
RANDOMIZE TIMER
FOR I = 1 TO 4
FOR J = 1 TO 3
A (I, J) = INT (RND * 20) - 8
PRINT A (I, J);
NEXT J
NEXT I
FOR I = 1 TO 4
max = A (I, 1)
FOR J = 1 TO 3
IF A (I, J)> max THEN max = A (I, J)
NEXT J
PRINT "max ("; I; ")="; max
NEXT I
END
5.4 Екранна форма
-2 -2 -5
2 0 7
6 1 -4
5 5 -7
max (1) = -2
max (2) = 7
max (3) = 6
max (4) = 5
Література
1.Інформатіка та інформаційні технології. Навчальний посібник. Під ред. Романової Ю.Д. (2008, 3-е вид., 592с.)
2.Задачнік-практикум з інформатики. Під ред. Семакіна І.Г.,
Хеннер Є.К. (2001, 189с.)
3.Справочние матеріали з програмування на мові Бейсік. Під ред. Житкова О.А., Кудрявцева Є.К. (2002, 3 гл.)
4.Бейсік і Паскаль: від простого до складного. Під ред. Житкова О.А., Кудрявцева Є.К. (2002, 4 гл.)
5.Інформатіка. Підручник для вузів. Під ред. Симоновича С.В. (2005, 20 гол.)
6.Інформатіка. Підручник для вузів. Під ред. Макарової М.В. (2005, 18 гол.)
7.Інформатіка. Навчальний посібник для студентів. Під ред. Хеннер Є.К. (2004, 3 гл.)
8.Алгорітміческій мову Basic. Посібник для студентів. Під ред. Майера Р.В.
(2005, 124с.)
9.Технологія алгоритмічного програмування. Посібник для студентів. Під ред. Єфімова О.А., Морозова В.В. (2005, 204с.)
10. Програмування на мові Бейсік. Навчальний посібник. Під ред. Петракова А.М., Воройского Ф.С., Макарової Н.В. (2008, 256с.)