- •2. Методические указания к практическим занятиям
- •2. Текст программы:
- •X,y:real; (* аргумент и функция *)
- •3. Схема алгоритма задачи 2
- •2. Тексты программ:
- •X,y:real; (* аргумент и функция *)
- •X,y:real; (* аргумент и функция *)
- •X,y:real; (* аргумент и функция *)
- •2. Тексты программ:
- •2. Текст программы:
- •3. Схема алгоритма задачи 5
- •2. Текст программы:
- •3. Схема алгоритма задачи 6
- •2. Текст программы:
- •3. Схема алгоритма задачи 7
- •2. Текст программы:
- •3. Схема алгоритма задачи 8
- •Приложения Основные символы схем алгоритмов
3. Схема алгоритма задачи 7
ST
– запись
GR
–
массив записей
i
– индекс массива записей
j
– индекс массива оценок
ind – индикатор
наличия
Ввод
фамилии
Объявление
переменных
Ввод
года рождения
Ввод
оценки
Ввод
количества пропусков занятий ?
(GR(i).OTM(1)+GR(i).OTM(2)+
+(GR(i).OTM(3))=14
Задача 8
1. Условие: Составить схему алгоритма и написать ВР-программу, которая:
-
вводит с клавиатуры последовательность целых чисел;
-
размещает их в файле;
-
считывает их из файла в одномерный массив и обрабатывает его (вид обработки см. в табл. П. 2).
Результат вывести на экран дисплея.
Пример: вид обработки заключается в подсчете количества положительных элементов массива.
2. Текст программы:
PROGRAM z8;
VAR mas:ARRAY[1..10] OF INTEGER; (* массив *)
i,kol,buf:INTEGER; (* индекс цикла, количество, буфер *)
f:TEXT; (* файл *)
BEGIN
ASSIGN(f,‘f.txt’);
REWRITE(f);
WRITELN(‘Введите значения элементов массива’);
FOR i:=1 TO 10 DO
BEGIN
READ(buf);
WRITELN(f,buf);
END;
RESET(f);
kol:=0;
FOR i:=1 TO 10 DO
BEGIN
READLN(f,mas[i]);
IF mas[i]>0 THEN kol:=kol+1;
END;
CLOSE(f);
IF kol>0 THEN
WRITELN(‘Кол-во положительных эл-ов в массиве =’,kol:2)
ELSE
WRITELN(‘Положительных элементов в массиве нет’)
END.
3. Схема алгоритма задачи 8
mas
– массив чисел
i
– индекс массива
KOL
– количество положи-тельных чисел в
массиве
BUF – буферная
переменная
F
– имя файла
Открытие
файла
Объявление
переменных
Настройка
на запись в файл
Запись
в файл
Настройка
на считывание из файла
Считывание
из файла
Закрытие
файла
Вывод
результатов
Приложения Основные символы схем алгоритмов
Выполнение схем алгоритмов регламентируется ГОСТ 19.008-80 «ЕСПД. Схемы алгоритмов и программ. Правила выполнения».
Для изображения схем алгоритмов используются следующие графические символы:
|
процесс – выполнение операций или группы операций, в результате которых изменяются значения, форма представ-ления или расположение данных; |
|
решение – выбор дальнейшего направ-ления выполнения алгоритма в зависимости от заранее определенных условий; |
|
модификация – выполнение операций, меняющих команду или группу команд, изменяющих программу; |
|
предопределенный процесс – ис-пользование ранее созданных и отдельно описанных алгоритмов; |
|
ввод-вывод – преобразование данных в форму, пригодную для обработки (ввод) или отображения результатов обработки (вывод); |
|
пуск-останов – начало, конец, пре-рывание процесса обработки данных |
Таблица П. 1
№ п/п |
Значение переменной |
Заданное выражение |
Формула общего члена ряда |
1 |
0.9 |
exp(х) |
|
2 |
0.6 |
cos(x) |
|
3 |
0.5 |
|
|
4 |
0.2 |
|
|
5 |
0.2 |
|
|
6 |
0.4 |
|
|
7 |
0.7 |
|
|
8 |
0.4 |
|
|
9 |
0.4 |
|
|
10 |
0.6 |
|
|
11 |
0.3 |
|
|
12 |
0.2 |
|
|
Таблица П. 2
№ п/п |
Результат обработки |
1 |
Сумма всех положительных элементов массива |
2 |
Количество элементов массива, больших 50 |
3 |
Среднее арифметическое значение всех отрицательных элементов массива |
4 |
Сумма положительных элементов массива, имеющих нечетные номера |
5 |
Количество элементов массива, значения которых делятся нацело на 2 |
6 |
Элементы массива, значения которых больше 50 |
7 |
Сумма всех отрицательных элементов массива, имеющих четные номера |
8 |
Количество элементов массива, имеющих нечетные значения |
9 |
Количество элементов массива, значения которых лежат в диапазоне от 25 до 75 |
10 |
Сумма элементов массива, значения которых по модулю меньше 25 |
11 |
Элементы массива, имеющие четные значения |
12 |
Количество элементов массива, значения которых кратны 10 |
Таблица П. 3
№ п/п |
Результат обработки |
1 |
Фамилия самого старшего студента |
2 |
Список отличников |
3 |
Список студентов, не имеющих пропусков занятий |
4 |
Список хорошистов |
5 |
Список двоечников |
6 |
Фамилия студента, имеющего наибольшее количество пропусков занятий |
7 |
Список студентов, которым в этом году исполняется 20 лет |
8 |
Средний бал сдачи студентами первого экзамена |
9 |
Средний бал сдачи студентами сессии |
10 |
Список студентов, получивших тройки по третьему экзамену |
11 |
Средний возраст студентов группы |
12 |
Список однофамильцев, при условии, что фамилия-эталон вводится с экрана дисплея |