- •Часть 2
- •Основы алгоритмизации
- •1.1. Этапы решения задач с помощью компьютера
- •1.2.Алгоритм: определение и свойства
- •Свойства алгоритма
- •1.3. Запись алгоритма в виде блок-схем
- •1.4. Основные типы вычислительных алгоритмов
- •2. Основы программирования на Паскале
- •Основные элементы языка
- •Стандартные идентификаторы
- •Зарезервированные слова языка Паскаль
- •Общие правила написания идентификаторов
- •Общая структура программы на Паскале
- •Константы и переменные
- •Комментарии
- •2.2. Типы данных
- •Целочисленные типы
- •Целочисленные типы данных
- •Вещественные типы
- •Вещественные типы данных
- •Булевский тип boolean
- •Массивы
- •2.3. Программирование линейных вычислительных процессов Арифметические выражения
- •Оператор присваивания
- •Организация ввода и вывода
- •2.4. Организация программ разветвляющейся структуры Логические выражения
- •Оператор условия if
- •Оператор выбора case
- •Оператор перехода goto
- •2.5. Организация программ циклической структуры
- •Оператор цикла с параметром for
- •Оператор цикла с предусловием while
- •Оператор цикла с постусловием repeat
- •Вложенные циклы
- •2.6. Подпрограммы
- •Функции
- •Процедуры
- •Область действия параметров
- •3. Задачи для контрольной работы
- •4. Примеры решения задач Вариант 10
- •Программа
- •Пример расчета
- •Задача 4
- •Программа
- •Пример расчета
- •Разность наибольшего и наименьшего элементов
- •Задача 5 Программа
- •Пример расчета
- •Список литературы
- •Содержание
- •1.Основы алгоритмизации . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 3
- •Этапы решения задач с помощью компьютера . . . . . . . . . . . . . . . . . . .3
- •Алгоритм: определение и свойства . . . . . . . . . . . . . . . . . . . . . . . . . . . . 3
- •153460, Г. Иваново, пр. Ф. Энгельса, 7.
Пример расчета
Введите исходные данные
n=10
a[ 1]=1
a[ 2]=5
a[ 3]=-3
a[ 4]=-4
a[ 5]=0
a[ 6]=6
a[ 7]=-25
a[ 8]=-100
a[ 9]=9
a[ 10]=-7
Результаты расчета:
Количество нечетных и отрицательных членов последовательности
равно 3
Сумма членов последовательности, кратных 5, равна –120
Задача 4
Блок – схема алгоритма решения задачи
Да
Нет
Да
Нет
Программа
Program zadacha_4;
const
p=100;
var
a :array [1..p,1..p] of integer; {исходная матрица}
n ,m :integer;{размеры матрицы}
i , j :integer;{счетчики циклов}
max :integer;{максимальный элемент строки}
min :integer;{минимальный элемент строки}
razn :integer;{разность максимального и минимального элементов}
begin
write (‘m=’); readln (m);
write (‘n=’); readln (n);
writeln (‘Матрица’);
for i:=1 to m do
begin
for j:=1 to n do read (a[i,j]);
end;
writeln (‘Разность наибольшего и наименьшего элементов’);
for i:=1 to m do
begin
min :=a[i,1];
max :=a[i,1];
for j:=1 to n do
begin
if a[i,j]<min then min:=a[i,j];
if a[i,j]>max then max:=a[i,j];
end;
razn:=max-min;
writeln(‘для ‘,i:3,’-й строки равна ‘, razn:5);
end;
readln;
end.
Пример расчета
m = 4
n = 7
Матрица А:
5 |
23 |
-3 |
8 |
9 |
15 |
-26 |
7 |
19 |
13 |
-1 |
8 |
6 |
74 |
-8 |
65 |
87 |
3 |
1 |
9 |
5 |
77 |
96 |
4 |
5 |
8 |
3 |
7 |
Разность наибольшего и наименьшего элементов
для 1 – й строки равна 49
для 2 – й строки равна 75
для 3 – й строки равна 95
для 4 – й строки равна 93
Задача 5 Программа
Program zadacha_5;
type
mas=array [1..100] of integer;
var
n,m :word; {данные натуральные числа }
a,b :mas; {данные массивы целых чисел}
i :word; {счетчик цикла}
s :integer;{искомая величина}
function max(c:mas;k:integer);
begin
max:=c[1];
for i:=1 to k do if c[i]>max then max:=c[i];
end;
begin
write(‘n=’); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i:3,’]=’); readln(a[i]);
end;
write(‘m=’); readln(m);
for i:=1 to m do
begin
write(‘b[‘,i:3,’]=’); readln(b[i]);
end;
s:=1+sqr(max(a,n))+sqr(max(b,m));
writeln(‘Искомая величина=’, s:10);
end.
Пример расчета
n = 5
a [ 1 ] = 2
a [ 2 ] = -6
a [ 3 ] = 10
a [ 4 ] = -15
a [ 5 ] = 8
m = 6
b [ 1 ] = -3
b [ 2 ] = -100
b [ 3 ] = 25
b [ 4 ] = 13
b [ 5 ] = 7
b [ 6 ] = 1
Искомая величина = 725
Список литературы
-
Информатика. Базовый курс/Симонович С. В. и др. – СПб.:”Питер”, 2000.
-
Турбо Паскаль 7.0. – К.:BHV,2000.
-
Культин Н. Б. Turbo Pascal в задачах и примерах. – СПб.:БХВ,2000.