Автор работы: Пользователь скрыл имя, 14 Октября 2009 в 19:07, Не определен
курсовоя работа
МИНИСТЕРСТВО ОБРАЗОВАНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ
ОРЛОВСКИЙ
ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ
ФИЛИАЛ
В г. БРАТСКЕ
Информатика
и программирование
Курсовая
работа
Выполнил:
Студент гр. ПИ-03-Дн
Научный руководитель:
С.т. преподаватель
Братск
2004
Введение
Паскаль
– язык профессионального
Впоследствии появились
Турбо
Паскаль – это система
Систему программирования Турбо Паскаль называют интегрированной (integration – объединение отдельных элементов в единое целое) средой программирования, т.к. она включает в себя редактор, компилятор, отладчик, имеет сервисные возможности.
Первое
упоминание о нем содержалось
в рекламе опубликованной в журнале
Byte, а сам пакет предназначен для
операционной системы CP/M. В начале 1984 года
он был перенесен в среду MS-DOS и приобрел
огромную популярность. С тех пор появилось
несколько версий Турбо Паскаля, последняя-
седьмая.
Массив – это совокупность объектов, состоящая из фиксированного упорядоченного числа элементов, имеющих один и тот же тип.
Массивы могут быть одномерными и многомерными (двух-, трехмерными и т. д.). Примером одномерных массивов может быть список фамилий учеников класса, многомерных - таблица умножения, классный журнал, аттестат зрелости.
Элементы, образующие массив, упорядочены таким образом, что каждому элементу соответствует номер (индекс), определяющий его местоположение в общей последовательности. Доступ к каждому элементу осуществляется путём индексирования.
Для описания массива используется словосочетание array of (массив из) и имеет вид:
array [тип индекса] of <тип>
Тип индекса – любой порядковый номер, определяющий границы изменения значений индекса.
Описание массива задается следующим образом:
<имя типа> = array [тип индекса] of <тип данных>;
mas=array [1..m] of integer; {массив из m целых чисел}
digit = array [0 .. 9] of char; {массив десяти символов, имеющих порядковые номера от 0 до 9}
matrix = array [byte] of string; {массив 256 строк, пронумерованных с 0 до 255}
Тип данных – это числа среди которых бывают константы и переменные. Они могут быть различных типов:
. Количество
элементов называется размером
массива. Тип элементов
Но часто данные могут быть организованы в виде таблицы (матрицы), где расположение каждой переменной определяется номером строки и номером столбца. Например, место в зрительном зале задается указанием номера ряда и номером места в этом ряду. Такие данные удобно описать как двумерный массив. В отличие от одномерного массива каждому элементу двумерного массива соответствует пара индексов. Первый индекс – это номер строки, а второй – номер столбца, где расположен элемент массива.
Размер двумерного массива задается парой чисел: M*N, где M – число строк, а N – число столбцов в таблице.
Пусть задан двумерный массив Matr, имеющий размер 10*20. Этот массив на языке Паскаль может быть описан следующим образом:
Var
Matr : array [1..10,1..20] of integer;
тогда
Matr[5,7] – элемент, расположенный в 5-ой строке и в 7-ом столбце.
Любая константа, переменная, значение функции или выражения в Турбо Паскале характеризуется своим типом. Тип любого из этих объектов определяет множество допустимых значений, которые может иметь объект, а также множество допустимых операций, которые применимы к объекту. Кроме того, тип определяет и формат внутреннего представления значения объекта.
Отличительной особенностью массивов является то обстоятельство, что все их компоненты суть данные одного типа (возможно, структурированного); эти компоненты можно легко упорядочить и обеспечить доступ к любому из них простым указанием его порядкового номера
Цель задания:
Даны целочисленная матрица размера nx3, целые числа k, l (1<=k<=n, 1<=l<=n, k ≠1). Преобразовать матрицу так , чтобы строка с исходным номером k непосредственно следовала за строкой с исходным номером l, сохранив порядок следования остальных строк.
Блок схема:
Решение:
Program perestanovka;
Uses Crt;
Var a: array[1..5,1..3] of integer;
i,j,k,l,n,t:integer;
Begin
writeln('Введите число');
readln(n);
ClrScr;
for i:=1 to n do
Begin
for j:=1 to 3 do
Begin
writeln('Введите число:');
readln(a[i,j]);
End;
End;
writeln('Исходный массив');
for i:=1 to n do
Begin
for j:=1 to 3 do
write(a[i,j]:4);
writeln;
End;
writeln;
write('k=');
readln(k);
write('l=');
readln(l);
if k<l then
Begin
for i:=k to l-1 do
Begin
for j:=1 to 3 do
Begin
t:=a[i,j];
a[i,j]:=a[i+1,j];
a[i+1,j]:=t;
End;
End;
End
else
Begin
for i:=k downto l+2 do
Begin
for j:=1 to 3 do
Begin
t:=a[i,j];
a[i,j]:=a[i-1,j];
a[i-1,j]:=t;
End;
End;
End;
writeln('Перестановленный массив');
for i:=1 to n do
Begin
for j:=1 to 3 do
write (a[i,j]:4);
writeln;
End;
End.
Цель задания:
1.1ДАННЫЕ - информация,
представленная в
Программы на языке Паскаль имеют блочную структуру:
1)
Блок типа PROGRAM – имеет имя,
состоящее только из латинских
букв и цифр. Его присутствие
не обязательно, но
2) Программный блок, состоящий в общем случае из 7 разделов:
•раздел описания модулей (uses);
•раздел описания меток (label);
•раздел описания констант (const);
•раздел описания типов данных (type);
•раздел описания переменных (var);
•раздел описания процедур и функций;
•раздел описания операторов.
Общая структура программы на языке Паскаль следующая:
Рrogram ИМЯ..; {заголовок программы}
Uses ...; {раздел описания модулей}
Var ..; {раздел объявления переменных}
...
Begin {начало исполнительной части программы}
... {последовательность
... операторов}
End. {конец программы}
2.1 Постановка
задания:
Составить список учебной группы, включающей 25 человек. Для каждого студента указать дату рождения, год поступления в институт, курс, группу, оценки каждого года обучения. Информацию о каждом учащемся оформить в программе в виде записи. Совокупность записей объединить в массив.
Составить программу,
которая обеспечивает ввод полученной
информации, распечатку её в виде таблицы,
а также распечатку информации согласно
конкретному варианту.
Вариант: Упорядочить
список студентов по среднему балу и распечатать
его.
Решение:
Program spisok_grupp;
Uses Crt ;
Const kurs=3;
Const kol=5;
Type
sved=record
famil:string[25];
datar:string[8];
god: integer;
gruppa: integer;
ocenki:array[1..3,1..5] of integer;
srball:array[1..25] of real;
End;
Информация о работе Паскаль – язык профессионального программирования