СодержаниеСодержание
Задание 1. Линейный вычислительный процесс 3
1.1. Постановка задачи 3
1.2. Блок схема и программная реализация 3
Задание 2 Вычисление арифметических выражений 4
2.1. Постановка задачи 4
2.2. Блок-схема и программная реализация 4
Задание 3. Разветвляющий вычислительный процесс 5
3.1. Постановка задачи 5
3.2. Блок-схема и программа 5
Задание 4. Циклический вычислительный процесс 6
4.1. Постановка задачи 6
4.2. Блок-схема и программа 6
Задание 5. Одномерные массивы 7
5.1. Постановка задачи 7
5.2. Блок-схема и программа 7
Литература 8ВведениеЗадание 1. Линейный вычислительный процесс
1.1. Постановка задачи
Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем куба.
Построить блок-схему и написать программу для решения задачи (недостающие данные задать самостоятельно в соответствии с указанием задачи. Ввод данных производить любым, наиболее удобным способом). Подобрать контрольный пример.
1.2. Блок схема и программная реализация
10 REM Линейный вычислительный процесс
20 CLS: REM Очистка экрана
30 REM Ввод длины ребра куба
40 INPUT “Введите длину ребра куба”, REBRO
50 REM Вычисление площади грани куба
60 LET SGRANI=REBRO^2
70 REM Вычисление площади поверхности
80 LET SPOIVERHN=6*REBRO^2
90 REM Вычисление объема куба
100 LET VKUBA=REBRO^3
110 REM Вывод результатов на экран
120 PRINT “Площадь грани”, SGRANI
130 PRINT “Площадь поверхности”, SPOVERHN
140 PRINT “Объем куба”, VKUBA
Контрольный пример:
Длина грани куба = 3
Площадь грани = 32 = 9
Площадь поверхности = 6*32 = 54
Объем куба = 33 = 27
Задание 2 Вычисление арифметических выражений
2.1. Постановка задачи
Построить блок схему и написать программу вычисления значения выражения:
Значения переменных Формула
x=3.251
y=3.325
z=0.466
2.2. Блок-схема и программная реализация
10 REM Вычисление значения функции
20 CLS: REM Очистка экрана
30 REM Ввод значений x, y, z
40 DATA 3.251.3.325,0.466
50 READ x,y,z
60 REM Вычисление значения функции
70 LET h=(sin(z)^2+cos(2*x))/(2*x^5+tan(x))+
((3*x+2*y)^(1/3))
80 REM Вывод значения функции
90 print "h=",h
Задание 3. Разветвляющий вычислительный процесс
3.1. Постановка задачи
Построить блок-схему и написать программу вычисления выражения. Подобрать контрольный пример.
3.2. Блок-схема и программа
10 REM Разветвляющий вычислительный процесс
20 CLS: REM Очистка экрана
30 REM Ввод значения x
40 INRUT "Введите x=",x
50 IF x5 OR X10.25 THEN LET Y=.999
80 PRINT "y=",Y
Контрольный пример: при x=11, Y=999
Задание 4. Циклический вычислительный процесс
4.1. Постановка задачи
Построить блок-схему и написать программу вычисления значения выражения, включающего 15 членов:
4.2. Блок-схема и программа
10 LET Y=1
20 FOR I=2 TO 15
30 IF (I MOD 2)=0 THEN
LET Y=Y-(1/(2^(I-1)))
40 IF (I MOD 2)0 THEN
LET Y=y+(1/(2^(I-1)))
50 NEXT I
60 PRINR “Y=”,Y
Задание 5. Одномерные массивы
5.1. Постановка задачи
Вычислить максимальный элемент массива. Заменить в массиве все нечетные числа на 1. Если нечетных чисел нет, то вывести сообщение об этом.
5.2. Блок-схема и программа
10 INPUT “Введите количество элементов”,
KOLVO
20 DIM A(KOLVO)
30 FOR I=1 TO KOLVO
40 PRINT “Введите “,I,” элемент”
50 INPUT A(I)
60 NEXT I
70 LET NECHET=0: LET MAX=0
80 FOR I=1 TO KOLVO
90 IF (A(I) MOD 20) THEN LET
NECHET=NECHET+1
100 IF (A(I) MOD 20) THEN LET A(I)=1
110 PRINT A(I)
120 NEXT I
130 IF (NECHET=0) THEN PRINT “Нечетных
элементов нет”ЛитератураЛитература
1. Дьяконов В.П. Применение персональных ЭВМ и программирование на языке Бейсик. – М.: Радио и связь, 1989. – 288 с.
2. Кетков Ю.Л. Диалог на языке бейсик для мини- и микро-ЭВМ. Издательство: М.: Наука, 1988, 368 с.
3. Мамонтов Д. Quick Basic в задачах и примерах. Издательство «Питер», 2006, 256 с.
4. Михайлов В.Ю., Степанников В.М. Современный Бейсик для IBM PC. Среда, язык, программирование. – М.: Издательство МАИ, 1993, 288 с.
5. Светозарова Г.И., Мельникова А.А., Козловский А.В. Практикум по программированию на языке бейсик. М., Наука, 1988, 368 с.
|
