Решение задач на языке программирования Turbo Basik

ВОСТОЧНАЯ ЭКОНОМИКО-ЮРИДИЧЕСКАЯ ГУМАНИТАРНАЯ АКАДЕМИЯ (Академия ВЭГУ)

Стерлитамакский институт





















Пояснительная записка

к контрольной работе

«Решение задач на языке программирования Turbo Basik»

Вариант № 4





Выполнила: студентка ЗО

ФИК, гр. СПО-09

Проверила: к. ф-м н. доцент













Стерлитамак 2010


Содержание



Задание 1

Задание 2

Задание 3

Задание 4

Задание 5

Литература




Задание №1



 Постановка задачи



Имеются четыре A, B, C, D произвольных числа. ЭВМ должна ответить на вопрос: Правда ли что числа расположены в возрастающем порядке?




 Блок – схема



НАЧАЛО

A, В, С, D

A < B

K=K+1

K=0

не(A < B)

K=K+1

не(B < C)

K=K+1

не(C < D)

K=K+1

K=0

Правда

Неправда

КОНЕЦ























 Да Нет













 Да Нет











Да Нет


 Исходный текст программы



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 Блок-схема





НАЧАЛО

N

S = 0

P = 1

I = 0, N, 1

S = S + (2*9^I – 6*9^I)

P = P + (2*9^I – 6*9^I)

S, P

КОНЕЦ



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.926168E+11



Задание №3



2.5 Постановка задачи



Имеется массив А из N произвольных чисел (А(N)), среди которых есть положительные, отрицательные и равные нулю. Напечатать все числа из очереди, квадрат которых превышает 7, но меньше 50.




2.6  Блок-схема



НАЧАЛО

Ввод N

I = 1, N, 1

КОНЕЦ

Ввод A(I)

I = 1, N, 1

Вывод A(I)

I = 1, N, 1

(A(I)2 >7) и (A(I)2 <50)   

Вывод A(I)









































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

PRINT

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/24 + 1)(2/23 – 2)(3/22 + 4)(4/21 – 8)…



4.2 Блок-схема





НАЧАЛО

N

Y=1

I=0,N,1

A = (I + 1) / 2 ^ (4 - I)

B = (-1) ^ (I + 2)

C = 2 ^ I

X = A + B * C

Y = Y * X



Y

КОНЕЦ



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 найти значение максимального элемента в каждой строке.



Блок-схема





НАЧАЛО

I=1,4,1

A(I, J)

КОНЕЦ

J=1,3,1

A(I, J) = INT(RND * 20) - 8



I=1,4,1

Max = A(I,1)

J=1,3,1

A(I,J)>Max

Max = A(I,J)

Max


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

PRINT

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с.)