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

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

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

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

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

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

Вариант № 4

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

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

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

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

Содержание

Задание 1

Задание 2

Задание 3

Задание 4

Задание 5

Литература

Задание №1

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

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

1.2 Блок – схема

Да Нет

Да Нет

Да Нет

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

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

1.4 Экранная форма

Введите 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

FORI = 1 TON

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

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

CLS

INPUT "N="; N

DIMA(N)

FORI = 1 TON

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/2⁴ + 1)(2/2³ – 2)(3/2² + 4)(4/2¹ – 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.2 Блок-схема

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.Бейсик и Паскаль: от простого к сложному

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать