- •Ход работы
- •Ход работы
- •Ход работы
- •Ход работы
- •Ход работы
- •Ход работы
- •Ход работы
- •Работа со слайдами
- •4. Ввод текста
- •5. Режим структуры
- •6. Форматирование текста
- •7. Анимационное оформление текста
- •8. Команда Настройка анимации
- •11. Переходы
- •13. Итоговый слайд и скрытые слайды
- •Ход работы
- •Ход работы
- •Тип переменных указывается после списка переменных через двоеточие (: ).
- •Нестандартный оператор очистки экрана:
- •Ход работы
- •Ход работы
- •Оператор 1, оператор 2 – какой либо оператор, в том числе и составной оператор, т.Е. Несколько операторов, объединенных операторными скобками begin end.
- •Ход работы
- •Ход работы
- •Задача MaxMin. Программа для поиска максимального и минимального элемента массива, с указанием их номеров (maxmin.Pas).
- •Ход работы
- •Ход работы
- •Ход работы
- •Ход работы
- •Ход работы
- •Ход работы
- •Ход работы
- •Ход работы
- •Ход работы
- •Ход работы
- •Ход работы
Ход работы
Входной контроль:
Что такое массив? Что такое индекс массива?
Выполнение работы:
Создать новый проект и назвать его именем «%NAME%5»
В теле проекта набрать следующий программный код:
Program %NAME%5;
uses crt;
var
i,j,k,n:integer;
mas:array[1..100] of integer;
begin
clrscr;
i:=0;
k:=0;
while i<100 do
begin
inc(k);
n:=0;
for j:=2 to k-1 do
if k mod j <> 0 then inc(n);
if n=k-2 then
begin
inc(i);
mas[i]:=k;
write(mas[i], ' ');
end;
end;
end.
Откомпилировать проект
В случае нахождения ошибок, устранить их и перекомпилировать проект.
Запустить проект на выполнение (все варианты выполнения должны быть проработаны).
Используя меню DEBUG/OUTPUT вывести на экран результаты работы
Вывод по работе
Дополнительные вопросы
В какой среде работает ТР?
Что означает термин «запуск на исполнение»?
Как вывести на экран какой либо текст?
Методические указания и пояснения практической работы 12
В этой практической у нас стоит задача разобраться с операторами организации цикла в Pascal, и сгенерировать простейший програмный продукт на их основе – т.е. реализованный код. Для этого нам пожадобиться понимание средств программы, а также умения компилировать и запускать созданный код.
В Паскале, кроме простых типов данных (integer, real, char и т.д.), имеются и сложные типы. К ним относятся массивы.
Массив (array, от французского – сплошной) – это область памяти, в которой размещается совокупность конечного числа данных одного типа с одним именем. Каждый элемент такой совокупности обозначается именем массива с индексом (номером элемента в массиве).
Элемент массива– отдельная переменная, входящая в массив;
Индекс(index)– это числовая константа или целочисленное арифметическое выражение (частный случай - целочисленная переменная), которым снабжаются элементы массива, чтобы отличать их друг от друга.
Индекс элемента массива– номер элемента в массиве.
Особенность массивов заключается в том, что все элементы массива являются данными одного типа (возможно и структурированного). При назначении массиву имени соблюдаются те же требования, какие предъявляются к именам переменных простых типов.
|
a11 |
a12 |
… |
a1n |
|
a21 |
a22 |
… |
a2n |
|
… |
… |
… |
… |
|
am1 |
am2 |
… |
amn |
В зависимости от количества используемых индексов, массивы могут быть одномерные (строка),двухмерные(таблица),трехмерные и т.д.

Двухмерный
массив
В одномерном массиведля указания местоположения элемента достаточно одного индекса,
В двухмерноммассиве – два индекса, для строк и граф.
Размерностьмассива определяется количеством индексов.
Размер массива – диапазон изменения индексов массива.
Размер одномерного массива– количество элементов, которое содержит массив.
Размер двухмерного массива -количество элементов в сроках и графах таблицы и т.д.
Описание массивов:
|
Тип массива |
Описание массива | |
|
1 способ |
2 способ | |
|
одномерный: |
Type t=array[1..n] of тип; Var a:t; |
Var a: array[1..n] of тип; |
|
двухмерный |
Type р=array[1..n,1..m] of тип; Var a:р; |
Var а=array[1..n,1..m] of тип; |
|
трехмерный |
Type р=array[1..n,1..m,1..k] of тип; Var a:р; |
Var a=array[1..n,1..m,1..k] of |
Пример описания одномерного массива размерностью 20:
|
type mas=array[1..20] of integer; var a : mas; |
mas – имя типа, a– имя переменной типа массив. Границы изменения индексов - от 1 до 20, т.к. размерность 20 элементов |
|
const mas : array [1..7] of byte=(31,–7,4,3,25,–3,2); |
Массив, объявленный как константа, т.е. совмещается объявление массива и занесение в него констант. |
Следует помнить, что значением переменной aявляется весь массив!
Элемент массива обозначается указанием имени массива, за которым в квадратных скобках следует индекс массива. Например, a[1] – первый элемент одномерного массива; с[5] – пятый элемент одномерного массива; a[i] – i-тый элемент одномерного массива или для двухмерных массивов: с[1,5] – пятый элемент первой строки массива; a[i,j] – j-тый элемент i-й строки двухмерного массива.
В двухмерном массиве первый индекс - номер строки, второй - номер столбца.
Двухмерные массивы иногда называют матрицами. Двухмерные массивы могут быть прямоугольными (количество строк и столбцов разное) или квадратными (одинаковое количество строк и столбцов). В двухмерных массивах элементы, у которых номер строки совпадает с номером столбца, называются диагональными или элементами главной диагонали. Главная диагональ начинается с первой с роки первого столбца и заканчивается на последней строке последней графы. Кроме главной диагонали существует побочная диагональ - с последней графе первой строки до первой графы последней строки.
Базовые алгоритмы работы с одномерными массивами
Будем считать, что объявили массив из 10 элементов, тип элементов в данном случае значение не имеет:
заполнение одномерного массива:
заполнение с клавиатуры:
for i:=1 to 10 do
begin
writeln (‘Введите значение элемента’);
readln(a[i]);
end;
заполнение случайным образом:
for i:=1 to 10 do
a[i]:=random(n); {n должно быть задано заранее}
заполнение натуральными числами:
for i:=1 to 10 do
a[i]:=i;
поменять местами два заданных элемента массива:
c:=a[i]; a[i]:= a[j]; a[j]:=c;
заполнение по формуле (например, ai=sin i):
for i:=1 to 10 do
a[i]:=sin(i);
вывод массива на экран:
for i:=1 to 10 do
writeln (‘элемент ’, i, ‘ массива ’,a[i]);
нахождение суммы элементов одномерного массива:
s:=0;
for i:=1 to 10 do
s:=s+a[i];
подсчёт количества элементов, удовлетворяющих заданному условию(например, положительных элементов):
k:=0;
for i:=1 to 10 do
if a[i]>0 then k:=k+1;
поиск максимального элемента одномерного массива и его номера:
max:=a[1];
n:=1;
for i:=2 to 10 do
if a[i]>max then begin max:=a[i]; n:=i; end;
