- •Министерство образования и науки рф
- •Список рекомендуемой литературы
- •Крымов б.А. Основы программирования на языке TurboPascal: Учеб пособие / Воронеж. Гос. Технол. Акад / б.А. Крымов, а.О. Мовшин, с.В. Кулакова. – Воронеж, 2000. – 130 с.
- •Вопросы для самоконтроля Раздел 1.1
- •Раздел 1.2
- •Раздел 3.3
- •Раздел 3.4
- •Раздел 3.5
- •Раздел 3.6.
- •Раздел 3.7
- •Раздел 3.8
- •Раздел 3.9
- •Раздел 3.10
- •Раздел 3.11
- •Раздел 3.12
- •Раздел 4.1
- •Раздел 4.2
- •Раздел 5.1
- •Раздел 5.2
- •Раздел 5.3
- •Контрольная работа № 1
- •Пример решения задачи 2
- •Алгоритм
- •Программа
- •Программа
- •Задание 4. Организация циклов
- •Задания к задаче 4
- •Пример выполнения задачи 3
- •Алгоритм
- •Программа
- •Контрольная работа № 2
- •Задания к задаче 5
- •Методические указания к выполнению задания 5
- •Алгоритм
- •Программа
- •Задания к задаче 5
- •Методические указания к выполнению задания 6
- •Алгоритм главной программы Алгоритм подпрограммы Программа
- •Приложение 1
- •Приложение 2 Некоторые служебные слова TurboPascal 7.0
- •Приложение 3 Стандартные функции TurboPascal 7.0
- •1 1
Пример выполнения задачи 3
Дан массив А, содержащий 20 элементов целого типа – положительных и отрицательных. Сформировать массивы В и С, содержащие соответственно положительные и отрицательные элементы массива А. Найти сумму элементов массивов В и С и количество содержащихся в них элементов. Индексацию элементов заданного массива начать с –5. Для перебора элементов массива использовать оператор For.
Алгоритм
Программа
Program z3;
Var a: Array [-5..14] of Real;
b, c: Array [1..20] of Real;
i, bi, ci: Integer; s1, s2: Real;
Begin
For i:= -5 To 14 Do Read (a[i]);
s1:=0; s2:=0; bi:=0; ci:=0;
For i:= -5 To 14 Do
If a[i] > 0
Then Begin bi:=bi+1; b[bi]:=a[i] s1:= s1+b[bi] End
Else Begin ci:=ci+1; c[ci]:=a[i] s2:=s2+c[ci] End;
Writeln (bi, ’ положительных элементов:’ );
For i:= 1 To bi Do Write (b[i]); Writeln;
Writeln(’ их сумма равна’, s1);
Writeln (ci, ’ отрицательных элементов:’)
For i:= 1 To ci Do Write (c[i]); Writeln;
Writeln(’их сумма равна’, s2);
End.
Контрольная работа № 2
Составление алгоритмов решения задач и запись их в графической форме. Организация сложных циклов и подпрограмм на языке программирования Turbo Pascal. Изучение основных принципов работы с современными пакетами прикладных программ.
Задание 5. Организация сложных циклов
Составить схему алгоритма и программу циклического вычислительного процесса. Варианты задачи приведены в табл. 4. Ввод данных выполнить с помощью оператора For. Для реализации циклических процедур использовать операторы цикла, указанные в задании. Программу снабдить комментариями.
Задания к задаче 5
0. Перебор элементов исходной матрицы вести по строкам. Использовать два оператора For.
1. Перебор элементов исходной матрицы вести по столбцам. Использовать два оператора While.
2. Перебор элементов исходной матрицы вести по строкам. Использовать два оператора Repeat.
3. Перебор элементов исходной матрицы вести по столбцам. Использовать операторы For и While.
4. Перебор элементов исходной матрицы вести по строкам. Использовать операторы For и Repeat.
5. Перебор элементов исходной матрицы вести по столбцам. Использовать операторы While и Repeat.
6. Перебор элементов исходной матрицы вести по столбцам. Использовать два оператора For.
7. Перебор элементов исходной матрицы вести по строкам. Использовать два оператора While.
8. Перебор элементов исходной матрицы вести по столбцам. Использовать два оператора Repeat.
9. Перебор элементов исходной матрицы вести по строкам. Использовать операторы For и While.
Таблица 4
Номер варианта |
Вариант |
1 |
2 |
0 |
Дана целочисленная матрица D(45). Найти наибольший по модулю элемент матрицы и его местонахождение в ней (номер строки и столбца, на пересечении которых он расположен). |
1 |
Дана матрица С(44), содержащая положительные и отрицательные числа. Вместо отрицательных элементов в матрицу записать нули, посчитать их количество. |
2 |
Дана целочисленная матрица N(54). Найти наибольший и наименьший элементы. Вместо наибольшего элемента в матрицу записать наименьший, а вместо наименьшего – наибольший. |
3 |
Дана матрица А(55), элементы которой суть целые числа. Сформировать вектор В, состоящий из элементов матрицы А, не лежащих на главной диагонали. |
4 |
Дана матрица К(35), содержащая положительные, отрицательные числа и нули. Подсчитать количество положительных и количество отрицательных элементов матрицы. Вывести индексы нулевых элементов. |
5 |
Дана целочисленная матрица А(44). Подсчитать сумму и количество четных чисел. |
6 |
Дана матрица PS(35), содержащая положительные, отрицательные числа и нули. Вычислить сумму модулей отрицательных чисел и произведение положительных элементов матрицы, а также количество нулей. |
Окончание табл..4
1 |
2 |
7 |
Дана целочисленная матрица W(44). Вычислить сумму ее элементов, лежащих ниже главной диагонали. |
8 |
Дана матрица А(34). Сформировать вектор К, содержащий целые части отрицательных элементов матрицы А. Вычислить среднее арифметическое элементов вектора К. |
9 |
Дана целочисленная матрица В(53), содержащая положительные и отрицательные элементы. Сформировать вектор С(5) (или С(3)) по следующим правилам:
Посчитать количество единиц в С. |