Методические указания к выполнению лабораторных работ Фрейз И. И

p>

j:=last; { правая граница массива — последний элемент }

x:=m[ (first+last) div 2]; ( определить середину массива }

repeat

while m[i]>x do i:=i+l;

while x>m[j] do j:=j-l;

{ увеличить число итераций обмена элементов }

а:=а+1; if i<=j then

begin { обменять местами элементы }

buf:=Tti[i]; m[i]:=m[j]; m[j]:=buf;

i:=i+l; j:=j-l;

for 1:=1 to n do write (' ',in[l]);

writeln{'; итерация # ',a);

end;

until i>j;

{рекурсивый вызов процедуры quicks }

if first<j then quicks (first, j) ;

{ рекурсивный вызов процедуры quicks }

if i<last then quicks(i,last);

end; {конец сортировки }

begin { начало основной программы }

clrscr; { очистка экрана }

writeln('Исходный массив:');

for i:=l to n do write (' ',in[i]);

writeln; readln;

a:=0;

quicks (1, count) ; { вызов процедуры сортировки quicks }

writeln; writeln('Отсортированный массив:');

for i:=l to n do write (' ',m[i]);

writeln; readln;

end.

По последнему значению a определяем, что для данного массива сортировка по невозрастанию выполняется за 28 итераций.

Лабораторная работа №10. Двумерные массивы.

Цель: освоение двумерных массивов.

Итак, мы рассмотрели одномерные массивы. Элементы массива могут, в свою очередь, также быть массивами, например:

Const n=4;m=3;

Type mas = array[1..n] of integer;

Mas2 = array[1..m] of mas;

Обычно это записывается так:

Type mas2 = array[1..m,1..n] of integer;

Здесь описан тип массива, состоящего из m массивов, каждый из которых содержит n целых чисел. Иными словами, это матрица из m строк и n столбцов, или двумерный массив

.

Задача 7.1. Минимальный по модулю элемент

……………………………………………………………………………………………………

Написать программу, которая находит минимальный по модулю элемент вещественной матрицы размером 5
8 и его координаты
.

В результате выполнения этой программы должно получиться три числа: значение элемента, имеющего минимальную абсолютную величину (величина вещественного типа), а также целочисленные номера строки и столбца, на пересечении которых этот элемент расположен.

Алгоритм

1. Ввести матрицу.

2. Принять элемент, расположенный на пересечении первой строки и первого столбца, за искомый (для этого запомнить его модуль, номер строки и номер столбца).

3. Поочередно просмотреть все элементы матрицы; если модуль очередного эле­мента оказывается меньше сохраненного, принять этот элемент за искомый (то есть запомнить его модуль, номер строки и номер столбца).

4. Вывести результаты.

Программа:

program min_abs_1;

uses crt;

const m=5;n=8;

var

a:array[1..m,1..n] of real;

i,j:integer; {текущие значения индексов строки и столбца }

im,jm:integer; {значения индексов минимального элемента}

minmod:real; {буфер для хранения минимального модуля}

begin clrscr; randomize;

for i:=1 to m do

for j:=1 to n do a[i,j]:=random(101); {ввод элементов массива}

writeln;writeln('Исходный массив');

for i:=1 to m do begin

for j:=1 to n do write (a[i,j]:6:1);writeln end;writeln;

minmod:=abs(a[1,1]); {начальные установки}

im:=1;jm:=1;

for i:=1 to m do {цикл перебора всех строк}

for j:=1 to n do {цикл просмотра строки (меняется номер столбца)}

if abs(a[i,j])<minmod then begin

minmod:=abs(a[i,j]);im:=i;jm:=j; {обновление минимума} end;

writeln ('Минимальный по модулю элемент : ',minmod:6:1,' Его координаты: ',im:3,jm:3);

readln; end.

Размеры массива заданы именованными константами m и n, что позволяет легко их изменять.

Для ввода матрицы требуется организовать вложенные циклы. Порядок их следования не важен, главное, чтобы он совпадал с порядком ввода исходных данных. Для приведенной последовательности циклов элементы должны вводиться по строкам.

Задание: Измените программу так, чтобы она находила указанную величину не для всей матрицы, а для каждой ее строки.

Алгоритм ее работы будет выглядеть так:

1. Ввести матрицу.

2. Для каждой строки матрицы:

- принять элемент, расположенный на пересечении этой строки и первого столбца, за искомый (для этого запомнить его номер столбца);

- просмотреть строку матрицы; если модуль очередного элемента оказыва­ется меньше сохраненного, принять этот элемент за искомый (то есть за­помнить его номер столбца);

- вывести результаты.

Как видите, в этом случае для каждой строки матрицы повторяются одни и те же действия - присвоение начальных значений, просмотр строки и вывод результатов. Номер строки при обновлении минимума можно не запоминать, потому что он хранится в переменной цикла. Для разнообразия не будем сохранять в отдельной переменной и минимальный модуль.

Лабораторная работа №11: Подпрограммы.

Цель: Решение задач в виде отдельных подпрограмм, для упрощения отладки и возможной модификации программ.

Подпрограмма представляет собой самостоятельную программную единицу, обращение к которой осуществляется по имени.

Логически законченные части программы оформляются в виде подпрограмм. Они нужны для того, чтобы упростить структуру программы и облегчить ее отладку.

Подпрограмма —
это фрагмент кода, к которому можно обратиться по имени. Она описывается один раз, а вызываться может столько раз, сколько необходимо. Одна и та же подпрограмма может обрабатывать различные данные, переданные ей в качестве аргументов.
В Паскале имеется два вида подпрограмм: процедуры и функции. Они определяются в соответствующих разделах описания до начала блока исполняемых операторов.

Само по себе описание не приводит к выполнению подпрограммы. Для того чтобы подпрограмма выполнилась, ее надо вызвать. Вызов
записывается в том месте программы, где требуется получить результаты работы подпрограммы. Подпрограмма вызывается по имени, за которым следует список аргументов
в круглых скобках. Если аргументов нет, скобки не нужны. Список аргументов при вызове как бы накладывается на список параметров, замещая его, поэтому они должны, попарно соответствовать друг другу.

Подобно тому, как можно при вычислении по одной и той же формуле получить разные результаты, подставляя разные значения аргументов, при каждом вызове подпрограммы можно передавать ей разные данные. Важно только, чтобы их количество и тип соответствовали тому, что требуется подпрограмме для работы.

Структура процедуры аналогична структуре основной программы: в ней есть заголовок, разделы описаний и операторов:

procedure
имя (список параметров): {
заголовок }

разделы описаний

begin

раздел операторов

end
;

Задача. Даны два массива целых чисел. Оформить ввод и вывод элементов в виде процедуры и найти максимальный элемент каждого массива с помощью функции.

uses crt;

type mas=array[1..35] of integer;

var a,b:mas;

maxA,maxB,i:integer;

procedure WWOD(var d:mas;n:byte);

begin for i:=1 to n do

d[i]:=random(100);

end;

procedure WIWOD(var d:mas;n:byte);

begin writeln ('Massiv');

for i:=1 to n do

write(d[i]:5);

end;

function Max(var d:mas;n:byte):integer;

var p:integer;

begin p:=d[1];

for i:=2 to n do

if d[i]>p then p:=d[i];

max:=p;

end;

begin clrscr;

randomize;

WWOD(a,20);

WWOD(b,35);

writeln;

WIWOD(a,20);

maxA:=Max(a,20);

writeln('Maksimal A=',maxA);

writeln;

WIWOD(b,35);

maxB:=Max(b,35);

writeln('Maksimal B=',maxB);

readln;

end.

В отчете по лабораторным работам написать комментарии к отдельным блокам программы.

Задачи для самостоятельного решения.

Даны два массива из 10 целых чисел каждый. Определить, в каком из них больше положительных элементов.

Дана целочисленная прямоугольная матрица. Определить:

1. количество строк, не содержащих ни одного нулевого элемента (оформить в виде функции);

2. максимальное из чисел, встречающихся в заданной матрице более одного раза (оформить в виде процедуры).

Рекомендации: Размерности массивов следует задать именованными константами. Все необходимые данные должны передаваться подпрограммам в качестве параметров; все величины, используемые только внутри подпрограмм, должны быть описаны как локальные. Использование глобальных переменных в подпрограммах не допускается. Вывод результатов работы подпрограмм должен выполняться в главной программе.

Лабораторная работа №12. Использование подпрограмм в Паскале.

Цель работы:

1) Получить необходимые навыки при использовании операторов в среде Turbo Pascal;

2) Научиться создавать, корректировать и выполнять простые программы с использованием подпрограмм.

!!! Выучите формальные и фактические параметры.

Задача 1. Составьте программу, в которой при помощи функции находится max(2x, 3x-10,max(x при заданных с терминала x,a.

uses crt;

type mas=array[1..4] of real;

function Max(d:mas;n:integer):real;

var i:integer;mx:real;

begin mx:=d[1]; for i:=2 to n do

if d[i]>mx then mx:=d[i];

max:=mx;

end;

var x,t:integer;

mx:real;

a,b,c:mas;

begin clrscr;

write('ВВедите x,t');

readln(x,t);

a[1]:=sqr(x)-x;

a[2]:=exp(3*ln(x))-sqr(x)-3*x;

c[3]:=Max(a,2);

writeln('Max(x^2-x,x^3-x^2-3x)=',c[3]:6:2);

b[1]:=t-x;

b[2]:=x-t;

c[4]:=Max(b,2);

writeln('Max(a-x,x-a)=',c[4]:6:2);

c[1]:=2*x;

c[2]:=3*x-10;

mx:=Max(c,4);

writeln('Max(2x,3x-10,max(x^2-x,x^3-x^2-3x),max(a-x,x-a))=',mx:6:2);

readln;

end.

Задача 2. Составьте программу, в которой при помощи функции находится максимальный элемент для массивов А(22), Р(12), Т(33), затем общий максимальный элемент, затем при помощи процедуры все отрицательные элементы каждого из трех массивов замените на модуль первого элемента соответствующего массива для массивов А(22), Р(12), Т(33). Предусмотреть вывод на экран исходных и измененных массивов.

uses crt;

type mas=array[1..33] of integer;

var a,p,t,m:mas;

i,maxi:integer;

procedure WWOD(var d:mas;n:byte);

begin for i:=1 to n do

d[i]:=random(101)-50;

end;

procedure WIWOD(var d:mas;n:byte);

begin

for i:=1 to n do

write(d[i]:5);

end;

function Max(var d:mas;n:byte):integer;

var mx:integer;

begin mx:=d[1];

for i:=2 to n do

if d[i]>mx then mx:=d[i];

max:=mx;

end;

procedure zamena(var d:mas;k:byte);

begin

for i:=1 to k do if d[i]<0 then d[i]:=abs(d[1])

end;

begin clrscr;

randomize;

WWOD(a,22); WWOD(p,12); WWOD(t,33);

writeln;

writeln ('Massiv A');

WIWOD(a,22);

m[1]:=Max(a,22);writeln;

writeln('Maksimal A=',m[1]);

writeln;

writeln ('Massiv P');

WIWOD(p,12);

m[2]:=Max(p,12);writeln;

writeln('Maksimal P=',m[2]);

writeln;

writeln ('Massiv T');

WIWOD(t,33);

m[3]:=Max(t,33);writeln;

writeln('Maksimal T=',m[3]);

maxi:=Max(m,3);

writeln('Max=',maxi);writeln;

zamena(a,22);

writeln('Noviy A');

WIWOD(a,22);

zamena(p,12);writeln;

writeln('Noviy P');

WIWOD(p,12);

zamena(t,33);writeln;

writeln('Noviy T');

WIWOD(t,33);

readln;

end.

Задача 3. В матрице А(4,8) определить с помощью функции разность между максимальным и минимальным элементом каждой строки и записать в дополнительный столбец в основной программе. Предусмотреть вывод начального массива и массива после дозаписи.

Лабораторная работа №13-14. Строки.

Цель: Освоить на практике новый тип данных – строка, научиться работать с текстом.

Теоретическая часть.

Понятие строки и размещение в памяти.
Описание строки.
Действия над строками. Операторы.
Примеры программ.

Определение. Строки – это структурируемый тип данных, представляющий собой последовательность из набора символов кодовой таблицы. Всего 255 символов. По устройству данный тип очень близок понятию массив.

A: string[5]

5

О

С

Е

Н

Ь

- строка

B: array[1..5] of char

О

С

Е

Н

Ь

- массив из символов

В отличие от массива первый (т.е. нулевой) байт памяти содержит информацию по количеству символов в строке. Поэтому, если строка описана длиной 10 символов, то любые символы введенные с терминала или добавляемые к строке после 10 будут игнорироваться.

I способ

Type <название типа 1> = string[10];

<название типа 2> = string;

(до 255)

Var <идентификатор>:<название типа>;

II способ

Var <идентификатор>: string[ ];

зарезерв длина

Замечание. Если две строки А и В описаны одинаково, то разрешено присвоение A:=B. Однако сравнение двух строк разрешается посимвольно. Обращение к каждому символу в строке аналогично доступу к каждому элементу в массиве.

Var A:string;

A[1] – первый символ

A[2 – второй символ

…

A[i – I – ый символ

Действия над строками.

a) Можно складывать, причем сложение строк неперестановочно: . Сложение наз-ся конкатенация. Concat – равносильно сложению нескольких строк. Результат в 1 –ой строке concat(a1,a2,a3)

b) Присвоение

c) Разрешается сравнение строк, при этом учитывается номер каждого символа из кодовой таблицы.

Пример 'кот'<'котомка'

'котт' > 'кота'

'аа' < 'ааа'

'а' < 'я'

Все символы русского и латинского алфавитов имеют коды соответствующих их порядку, т.е. 'А' < 'В'

Разрешены процедуры и функции над строками.

1) Copy (st,p,n)

Из строки st копируется n символов в память, начиная с позиции p.

2) Delete (st,p,n)

Из строки st удаляется n символов, начиная с p.

3) Insert(st1,st2,p)

Вставить строку st1 в st2, начиная с позиции p.

4) Length (st)

Вычисляет длину строки st.

5) Pos (st1,st2)

Находит позицию первого появления строки st1 в строке st2.

6) Str(n,st)

Процедура перевода цел. Переменной n в строку st.

7) Val(st,n,m)

Процедура переводит содержимое строки st в целочисленную переменную n, причем m – номер ошибочного символа.

Составить программу, позволяющую сформировать массив из слов данного предложения. Подсчитать количество слов, начинающихся с буквы Т.

uses crt;

var

s:string;

x:char;

n,i,m:byte;

mas:array[1..10] of string;

begin clrscr;

s:='Уж небо осенью дышало';

n:=length(s);m:=1; mas[m]:=' '; {Обнуление нового слова}

for i:=1 to n do

if s[i]=' ' then begin

m:=m+1;

mas[m]:=' ';

end

else mas[m]:=mas[m]+s[i];

n:=0;

for i:=1 to m do

begin

writeln(mas[i]);

if mas[i,1] in ['T','t'] then inc(n)

end;

writeln('Количество слов, начин-ся с c T=',n);

readln;

end.

Индивидуальное задание:

1) Записать все слова строки T в одномерный массив. Подсчитать количество слов, количество букв в которых нечетно.

uses crt;

const raz=[' ',',','.',';','-',':','!','?'];

var t:string;

mas:array[1..15] of string;

i,n,m:byte;

begin clrscr;

writeln('Vvedite stroku');

readln(t);

n:=length(t); m:=1;

mas[m]:='';

for i:=1 to n do

if t[i] in raz then begin

while(t[i] in raz) do inc(i);

inc(m);mas[m]:=t[i];

end

else mas[m]:=mas[m]+t[i];

writeln;

writeln;

writeln('Massiv:');

for i:=1 to m do writeln(mas[i],' ',length(mas[i]));

n:=0;

for i:=1 to m do

if odd(length(mas[i])) then inc(n);

writeln('Kol-vo netetn slov=',n);

readln;

end.

2) Ввести строку A: string с клавиатуры. Заменить все встретившиеся строчные буквы на такие же прописные и вывести строку А после изменения.

3) Написать программу, определяющую, сколько раз встретилось заданное слово в текстовом файле, длина строки в котором не превышает 80 символов. Текст не содержит переносов слов.

Лабораторная работа № 15. Исследовательско - практическая работа.

Цель:
закрепление знаний, развитие навыков само­стоятельной работы.

Ход урока.

На данном уроке закрепляются знания, полученные на предыдущем уроке, и проводится самостоятельная иссле­довательская работа.

Для закрепления знаний можно воспользоваться про­граммой, предлагаемой в качестве поддержки урока

program А8; {Строковые переменные}

uses crt;

var i,m:integer;

c,ch:char; s,s1: string;

begin

ClrScr;

GotoXY(10,3);

Writeln ('Вы работаете с программой демонстрации

строковых переменных'); Writeln; Writeln(‘ Введите 7-10 символов.');

GotoXY(5,8);

Readln(s);

Writeln;

Writeln(‘ Вы ввели строку символов: ',s);

Writeln;

i:=length(s);

m:=Round(i/2);

if m<>0 then c:=s[m];>

Writeln(‘ Количество символов в строке: ',i);

Writeln;

Writeln(‘ В середине строки есть символ: ',с);

Writeln;

Writeln(‘ Последний символ строки:

',copy(s,length(s),l));

Writeln;

Write(‘ А вот ваша строка "задом наперед":'); ".
for m:=i downto 1 do write(s[m]);

Writeln; si :="; Writeln;

for m:=0 to i do

begin if (ord(s[m])>127) and (ord(s[m])<176) then

1sl:=sl+s[m];

if (ord(s[m])>223) and (ord(s[m])<240) then

sl:=sl+s[m];

end;

if length(s1)<>O then Writeln(‘ В строке есть русские буквы: ',s1);

Writeln;

sl:=";

for m:=0 to i do if (ord(s[m])>47) and (ord(s[m])<58) thensl:=sl+'s[m];

if length(sl)oO then WritelnC В строке есть цифры: ',sl);

sl:=";

for m:=0 to i do

begin if (ord(s[m])>64) and (ord(s[m])<91) then sl:=sl+s[m]; if (ord(s[m])>96) and (ord(s[m])<123) then

sl:=sl+s[m];

end;

Writeln;

if length(sl)oO then Writeln(' В строке есть латинские

буквы: ',sl);

if (ord(s[lJ)>128) and (ord(s[l])<159) then Writeln('Привет,',s+'!'); ch:=ReadKey end.

Необходимо решить задачи:

1. Вызовите программу А8, исполните ее. Обратите внимание, как в программе проводится формирование строки из отдельных символов, как из строковой перемен­ной выделяются отдельные символы и как работают ос­новные функции и процедуры.

2. Придумайте свои варианты обработки информации в форме строк символов.

3. Составьте программу, преобразующую число в строку символов и строку символов-цифр в число.

После этого даем студентам задание:

1. В процедуре Val(s,x,Gode) используется переменная code типа word. Она принимает значение О, если преобра­зование строки в число проведено успешно. Определите назначение этой переменной в случае, если при преобра­зовании строки в число обнаружен символ, который не яв­ляется атрибутом числа.

2. При записи идентификаторов и операторов пропис­ные и строчные буквы не различаются. Выясните, разли­чаются ли прописные и строчные буквы в значениях стро­ковых переменных, в частности, при операциях сравнения.

3. При нажатии клавиши Enter в файл записывается символ конца строки, не имеющий изображения на экране дисплея. Найдите информацию об использовании стан­дартной функции eoln, распознающей этот символ.

Домашнее задание:

повторить [1] п. 14.4., 14.3; подготовиться к контрольной работе. Выполнить решение задач:

Составить алгоритм, подсчитывающий количество тех слов в строке из N букв, в которых третьей является заданная буква Ь. Слова разделены пробелами. Других зна­ков препинания нет.

Лабораторная работа №16. Решение задач.

Цель:
закрепление знаний, подготовка к контрольной работе.

Ход урока;

Проверка домашнего задания с анализом выполненных ими программ. Студенты, успешно справившиеся с домашним заданием, предлагаем перейти к решению задач.

Примерные тексты задач.

Задана строка, содержащая буквы и числа. Найти произведение всех чисел заданной строки (использовать тип данных long, int для вывода произведения).
Составить алгоритм, подсчитывающий количество тех слов в строке из N букв, в которых третьей является заданная буква ь. Слова разделены пробелами. Других знаков препинания нет.
Написать программу, которая по введенному коду выдает на экран символ.
Написать программу, которая выведет следующую конструкцию из символов:

а

аб

абс

абсд

…

аб...я.

Домашнее задание:

повторить процедуры работы со строковыми величинами и приемы обработки массивов, просмотреть решение задач на строковые величины и двумерные массивы, подготовиться к контрольной работе.

Лабораторная работа №17. Контрольная работа «Строковые величины и двумерные массивы».

Цель:
проверка знаний студентов, навыков самостоятельного решения задач и умения применять полученные знания на практике.

Студентам предлагаем несколько вариантов работы, в каждом из которых две задачи.

Вариант 1.

1. Имеется двумерный массив целых положительных чисел. Найти номер строки, для которой среднеарифмети­ческое значение ее элементов максимально.

2. Составить алгоритм, подсчитывающий для заданного текста частоту вхождения всех букв русского алфавита.

Вариант 2.

1. Найти номер строки и столбца двумерного массива для максимального элемента этого массива.

2. Написать программу, которая введенное с клавиатуры слово напечатает следующим образом:

школа

к л

о о

л л

алокш

Вариант 3.

1. Найти сумму элементов двумерного массива вещест­венных чисел с(15,15), расположенных на главной диаго­нали.

. 2. Написать программу, которая перевернет введенное с клавиатуры слово или фразу.

Домашнее задание на данном уроке не задается.

Лабораторная работа №17. Анализ самостоятельной работы. Работа над ошибками.

Цель:
проанализировать наиболее характерные ошиб­ки, развивать навыки самостоятельного анализа проблем и выбора метода их решения.

Ход урока:

На данном уроке необходимо проанализировать ошибки, допущенные студентами в ходе выполнения самостоятельной работы, разобрать причины, вызвавшие эти ошиб­ки. Провести работу по исправлению допущенных ошибок. В том случае, если с какой-либо из задач не справилось большинство учащихся, ее выполнявших, то целесообразно привести решение этой задачи на доске с подробным ана­лизом решения.'

После исправления ошибок предлагаем учащимся про­верить работу их программ на компьютере (провести тес­тирование программ).

Примерные варианты решения задач:

Вариант 1.

1. program vll; uses crt;

var a:array[1..50,1..50] of integer; i,j,n,m,s,k:integer; sr:real; begin clrscr;

write('ввeдитe количество строк и столбцов'); readln (m,n); randomize; for i:=l to m do for j:=l to n do a[i,j]:=random(50); clrscr;

writeln ('исходный массив'); for i:=l to m do

begin forj:=l to ndo write(a[ij]:4); writeln; end; sr:=-5; {так как массив
положительных чисел}

writeln; for i:=l to mdo
begin .^' s:=0; ' forj:=l to ndo

J s:=s-i-a[i,j]; writeln(s/n:6:2); {распечатка средних арифметических для контроля} ifs/n>sr then begin

sr:=s/n; k:=i; end; end;

writeln;

writeln('иcкoмaя строка-' ,k); repeat until keypressed; end.

2.
program vl 2;

uses crt;

var fr,bukv,z:string; a:array[l..32] of integer;

i,k: integer;

{определение номера буквы}

procedure por(var znach: integer;x:string;bukv:string); • var i: integer;

begin

znach:=0

i:=l;

while (i<=32) and (znach=0) do

if x=copy(bukv,i, 1) then znach:=i

else i:=i+l; end;

{исполняемая часть} begin clrscr;

wгiteln('ввeдитe фразу'); readln(fr);

Ьику:='абвгдежзийклмнопрстуфхцчшщъыьэюя'; for i:=l to 32 do a[i]:=0; for i:=l to length(fr) do begin por(k,copy(fr,i,l),bukv); {просмотр фразы и определение вхождения}

ifk>Othena[k]-a[k]+l;

end; writeln;

write ('абвгдежзийклмнопрстуфхцчшщъэюя'); writeln;

for i:=l to 32 do write(a[i]:2); repeat until keypressed; end.

Вариант
2.

1. program v21; uses crt;

vara:array[1..50,1..50] of real; i,j,n,m,k,l:integer; max:real;

begin : clrscr;

write('ввeдитe размер массива m,n'); readln(m,n); randomize; I
for i:=l to mdo r forj:-l to n do ' a[ij]:=random(50); ' clrscr;

; writpln ('исходный массив'); 1; for i:=l to mdo •:■ begin

for j:=l ton do

write(a[ij]:6:2);

writeln;

end; max:=a[l,ll;

for i:=l to m do

forj.-l ton do

if max<a[i,j] then begin

max:=a[i,j];k:=i;l:=j; end;

writeln('мaкcимaльный элемент равен ',max:6:2,');

writeln( 'oh находится в ', к,'строке ', 1 'столбце');

repeat until keypressed;

end.

2.

program v22; uses crt;

yar fr:string;i,n,k:integer; begin clrscr

writeln('ввeдитe слово'); ; read(fr); gotoxy(4,12); write(fr);

for i:=2 to length(fr) do begin gotoxy (4,11 +i); write(copy(fr,i, 1)) gotoxy(4+length(fr)-l ,11+i); write(copy(fr,length(fi-)-i+1,1)); end; for i:=2 to length(fr)-l do begin

gotoxy(3+i,l l+length(fr)); write(copy(fr,length(fr)-i+l,l)); end; repeat until keypressed; end.

Вариант
3.

1. program v31;

uses crt; ,

var c:array[1..15,1..15] ofreal; ij:integer; s:real; begin clrscr; randomize; for i:=l to 15 do forj:=l to 15 do c[i,j]:=random(50); clrscr;

writeln ('исходный массив'); for i:=l to 15 do begin

forj:=l to 15 do

write(c[i,j]:6:2);

writeln; end; s:=0; fori:=l to 15 dp

s:=s+c[i,i]; '

writeln('Искомая сумма-,s: 10:2); repeat until keypressed; end.

2.

programv32 uses crt;

var fr:string;i: integer; begin

clrscr; .

vvrite('BBeflHTe слово или фразу'); readln(fr); writeln;

for i:=l to length(fr) do write(copy (fr,length(fr)-i+1,1)); repeat until keypressed; end.

Домашнее задание:
повторить основные типы данных, строковые, массивы.

Лабораторная работа18. Использование множеств для решения задач в Паскале.

Цель работы:

Получить первые необходимые навыки при использовании операторов в среде Турбо-Паскаль.
Научиться создавать, корректировать и выполнять простые программы с использованием названных структурных типов.

Ход выполнения лабораторной работы.

1) Прочитайте теорию по данной теме (см. лекции или учебник). Отметьте в отчете для лабораторных все, что считаете важным.

2) Загрузите язык Паскаль. Наберите в разных окнах программы, приведенные ниже. Запустите разобранные программы, поэкспериментируйте над ними…

3) Запишите в отчет выполненные индивидуальные задания.

4) Защитите лабораторную работу.

!!! Повторите материал по теме «Множества».

Задача 1. В произвольном тексте А: string определить, какие цифры встречаются, вывести их.

Подсказка: Пусть DI – тип множества всех встретившихся символов – цифр. Сначала DI=[]. Затем, просматривая текст, все цифры добавляются во множество DI. Они будут встречаться там в одном экземпляре, сколько бы одинаковых цифр не встретилось бы в тексте ( по свойствам множества).(Наберите программу и объясните приведенное решение).

Type XX=set of ‘0’..’9’;

Var s:char ; a:string; DI:XX; n,i:byte;

Begin write(‘Введите текст’);

Readln(A);

DI:=[]; n:=length(a);

For i:=1 to n do

If a[i] in [‘0’..’9’] then DI:=DI+[a[i]];

If DI=[] then writeln (‘В тексте цифр нет’) else writeln (‘В тексте следующие цифры’);

For s:=’0’ to ‘9’ do

If s in DI then write(s:3);

End.

Задача 2. Сформировать множества А и В, базовый тип которых 0..50, по заданному числу элементов для каждого множества. Найти число и сумму элементов, принадлежащих одновременно и А и В; выведите на экран все элементы множества А, не принадлежащие В.

Подсказка.
Допустим
n – количество элементов для множества А. Тогда при формировании А можно использовать цикл
k:=0;
Repeat…
until
k>=
n, где
k – это счетчик для множества.

Задача 3. Решить Задачу 2, если известно, что рассматриваются множества А и В, базовый тип которых – буквы русского и латинского алфавитов.

Подсказка. Для формирования множества из букв воспользуемся кодовой таблицей и все необходимые диапазоны кодов букв поместим в дополнительное множество М. Тогда при формировании В (или А) можно использовать тот же способ, что и в предыдущей задаче, например:

type mnog=set of char;

var a,b:mnog;

m:set of 0..255;

y,x,k,n:byte;

begin

m:=[65..90,97..122,128..175,224..239];

writeln;

writeln('Vvedite kol-vo elementov mn-va B);

readln(n); b:=[];

repeat

k:=0;

x:=random(255);

if x in M then B:=B+[chr(x)];

for y:=0 to 255 do

if chr(y) in b then k:=k+1;

until k>=n;

writeln ('Mn-vo B');

for x:=0 to 255 do

if chr(x) in B then write (chr(x):5);

writeln;

…

Лабораторная работа №19. Множества . (Продолжение)

Цель: показать практическое использование этого типа данных при решении задач.

Множества можно описать в разделе описания типов:

type
имя множества = set of
тип элементов;

var
идентификатор переменной : имя множества;

или же в разделе переменных:

var
идентификатор переменной : set of
имя типа элементов;

Тип элементов задается диапазоном или перечислением идентификаторов (в последнем случае обязательны круглые скобки), например:

type den = set of 1..5;

этим мы определили множество с именем den, значениями которого могут быть наборы целых чисел в диапазоне от 1 до 5: [], [1], [2], [3], [4], [5], [1,2], [2,3], [1,3], [2,3] ,[1,2,3], [1,2,3,4,5] и другие сочетания (в данном случае упорядоченные по возрастанию). Для экономии времени можно взять меньший диапазон значений.

var а: den; описана переменная типа множества den.

Описание в разделе переменных может выглядеть так:

Var s: set of'А'..'В';

Описана переменная s как множество, значениями которого могут быть: [], ['А'],['В'] и ['А','В'].

Или

var kinder : set of (inna,ivan);

Описана переменная kinder как множество, значениями которого могут быть: [], [inna],[ ivan] и [inna, ivan].

Множество можно описать в разделе констант:

const p=[3,7,9]; (простая константа)

типизированная константа так:

const m:set=[‘a’..’z’];

или так: const mn0:set of char=[‘a’..’z’];

Всe элементы множества должны иметь одинаковый тип (char, boolean, ограниченный, перечисляемый). Элементами множества могут быть выражения. Число элементов множества называют мощностью множества (число элементов до 255, поэтому в описании множества нельзя указать типы integer и real). Порядок следования элементов и способ их записи не играет роли: одинаковы множества [1,2,3], [3,2,1], [3,1,2], [1+2,1,2], [1..3], [3,3,3,1,2,3], но, если множество обозначается как диапазон, важно, чтобы начальный элемент был меньше, чем конечный, иначе множество будет считаться пустым. Например, ['z'..'а'] - пустое множество.

[ ] - также пустое множество.

При работе с множествами можно использовать следующие правила или операции:

* - пересечение множеств; с:=a*b, где а и b - переменные типа множество.

+ - объединение множеств; с:= а+ b ;

- - разность множеств; с:=а- b ;

=, <>, >=, <= - проверки на равенство, неравенство и т.д.

а> b и т.д.

in - проверка на принадлежность; d in а.

Практическая работа.

label 1;

type mn=set of char;

var ml,m2,m3,m4:mn;

a,b,m:integer;

c:char;

u:boolean;

bs:string[5];

begin

l:ClrScr;

GotoXY(10,4); ,

Writeln('Bы работаете с программой демонстрации операций с множествами');

Writeln;

WritelnC Создадим два множества, в каждом из которых по 5-10 символов:');

т1:=П; ,

т2:=[];

тЗ:=[];

т4:=['д';Д'Д','и];

Writeln; ;

WriteC Введите мощность (число элементов) множества ml:');

repeat

GotoXY(55,8);

ClrEol;

Readln(bs);

val(bs,b,a);

until (a=0) and ((b>l) and (b<20));

WritelnC При вводе элементов множества клавишу Enter использовать не надо');

WriteC Вводите множество ml из ',Ь,' символов:');

for m:=l to b do WriteC Проверка вхождения: ml >= m2 ');

u:=(ml >= m2);

Writeln(u);

Writein; ,

WriteC Введите какой-либо символ:');

c:=ReadKey;

Write(c);

Writein;

WriteC Проверка вхождения:',c,'inml ');

u:=c in ml;

Writeln(u);

WriteC Проверка вхождения:',c,'in m2 ');

u:~c in m2;

Writeln(u);

Writein;

Writein;

WriteC Еще будете работать с программой? (д/н)');

c:=ReadKey;

if с in m4 then Goto 1;

end.

После загрузки предлагаем им познакомиться с описанием программы, но не заостряем внимание на самой структуре, так как нас интересует работа операций.

Предлагаем учащимся запустить программу и в дальнейшем следовать указаниям программы.

После выполнения этой работы предлагаем учащимся выполнить еще одну работу, предварительно объяснив им условие задачи:

Задано множество целых положительных чисел от J до п . Создать из элементов этого множества такие подмножества, элементы которых удовлетворяют следующим условиям:

элементы подмножества не больше 10;

элементы подмножества кратны 8;

Лабораторная работа №20. Тип данных
Record (запись).

Цель: познакомить студентов со структурированным типом данных record, подготовиться к изучению файловых переменных.

И.Ф.О.	Год рождения	Стаж	Пол Мужской	Номер отдела
Иванов Петр Иванович	1980	3,5	Да	2
Сидорова Светлана Анатольевна	1975	8	Нет	5

Для описания данных, когда с одним значением связывается набор данных разного типа, используется понятие запись. В ряде языков программирования аналогичное понятие называется структура.

Запись

– это структура данных, состоящая из фиксированного числа компонентов, называемых полями записи.

В отличие от массивов компоненты (поля записи) могут быть разного типа. В качестве компонентов можно использовать данные простого и сложного типа.

2. I способ

Type <название типа> = record

Один или несколько идентификаторов, которые называются полями записи

<имя компонента 1>:<тип компонента 1 >;

<имя компонента 2>:<тип компонента 2 >;

…

<имя компонента n>:<тип компонента n >;

end;

var

< идентификатор >: <тип>;

II способ

var < идентификатор>: record

…

end;

Замечание
В качестве поля (компоненты) записи может использоваться другая запись. В этом случае ее описание либо указывается сразу после двоеточия либо описана выше в разделе type.

Пример type Data=record

Day:byte;

Month:byte;

Year:word;

End;

Type Rabotnic=record

Dr:Data;

Fio:string;

Pol:booleon;

Otd:integer

End;

Var x,y:rabotnic;

3. Обращение к конкретным полям записи производится при помощи уточнения через точку.

Например

x.fio

y.otd

x.dr.day

y.dr.year

Для упрощения работы с записью в Паскале используется оператор with .. do. Он позволяет указать переменную типа запись, а затем напрямую использовать название полей записи.

Пример with x, dr do …fio…

Begin … otd…

…year…

End

Варианты

With x do

With x.dr do

4. В массиве GRUP(24), описывающих данные на студентов

Имя Фамилия

Дата рождения

Адрес

Телефон

Составить программу, позволяющую вывести данные на всех студентов, затем данные на студентов 1980 года рождения и проживающих по пр.Ленина.

uses crt;

type STUDENT=record

ifa:string;

data:record

day:byte;

month:byte;

year:word;

end;

adres:string;

tel:word

end;

var GRUP:array[1..24] of student;

i:byte;

x:STUDENT;

begin clrscr;

writeln('Создание массива данных');

for i:=1 to 3 do

begin

writeln('Имя,Фамилия');

readln(x.ifa);

writeln('День рождения');

readln(x.data.day);

writeln('Месяц рождения');

readln(x.data.month);

writeln('Год рождения');

readln(x.data.year);

writeln('Адрес');

readln(x.adres);

writeln('Телефон');

readln(x.tel);

GRUP[i]:=x;

end;

writeln('Имя Фамилия':15,'День Месяц Год Адрес':20,'Телефон');

for i:=1 to 3 do with GRUP[i] do

writeln(ifa:15,data.day:4,data.month:4,data.year:6,adres:15,tel:7);

writeln;writeln('Данные студентов, рожденные после 1980 г. и

проживающие на пр.Ленина');

for i:=1 to 3 do

with GRUP[i] do

if(data.year>1980) and(copy(adres,1,9)='пр.Ленина') then

writeln(ifa:15,data.day:4,data.month:4,data.year:6,adres:15,tel:7);

readln;

end.

Лабораторная работа №21. Решение задач на типизированные файлы.

Цель: Рассмотреть цикл задач, связанных с типизированным типом файлом, в том числе задачу на создание простейшей базы данных.

Задача 1. Создать простейшую базу данных на основе типизированных файлов записей. Требуется - создать файл записей с заданным именем, поместив в него сведения о студентах потока (номер группы, фамилия, имя и три отметки за семестр). На основе файла выяснить процент успеваемости на "4" и "5" (количество студентов без "3", отнесенное к общему числу учащихся). Требуется также создать файл записей с заданным именем, поместив в него сведения о плохо успевающих студентах потока (с оценками "2" и "3") — номер группы, фамилия, имя, средний балл семестра, и вывести его записи на экран.

uses crt;

type stud=record

group:byte;

surname:string[20];

name:string[20];

{массив оценок: за семестр ставятся 3 оценки (от 2 до 5 баллов)}

oc:array[1..3] of 2..5;

end;

foolstud=record

group:byte;

surname:string[20];

name:string[20];

srarif:real;

end;

file_typ1=file of stud; file_typ2=file of foolstud;

var f1:file_typ1;f2:file_typ2;

namefile1,namefile2:string[12];

s:stud;

fs:foolstud;

i,nomrec:integer;

procedure read_data(var s:stud);

{Ввод записи по студенту}

begin

clrscr;

with s do

begin

writeln('Окончание ввода -0, как n группы');

write('N группы: '); readln(group);

if group <>0 then

begin

write('Фамилия:');readln(surname);

write('Имя:');readln(name);

writeln('Оценки:');for i:=1 to 3 do read(oc[i]);

end;

end;

end;

procedure copy_data(s:stud;var fs:foolstud);

{Копирование записи по студенту - задолжнику}

begin

with fs do

begin

group:=s.group; surname:=s.surname; name:=s.name;

{вычисление среднего арифметического элеиентов массива оценок}

srarif:=(s.oc[1]+s.oc[2]+s.oc[3])/3;

end;

end;

procedure write_list(var f:file_typ2);

{вывод записей по плохо успевающим студентам на экран}

begin

reset(f); seek(f,0);

writeln('Плохо успевающие:');

writeln('Группа ','Фамилия':16,'Имя':8,'Средний балл':18);

while not eof(f) do

begin

{чтение текущей записи из файла }

read(f,fs);

{вывод текущей записи на экран}

with fs do writeln(group:4,surname:15,name:10,srarif:16:2);

end;

end;

procedure create_file(var f:file_typ1; var n:integer);

{ввод записей по всем студентам в файл}

begin

n:=0; rewrite(f); read_data(s);

while s.group<>0 do

begin

{вывод текущей записи в файл}

write(f,s); inc(n);

{ввод записи по новому студенту}

read_data(s);

end;

close(f);

end;

procedure write_data(var f1:file_typ1;var f2:file_typ2;n:integer);

{вывод записей по плохо успевающим студентам в файл}

{подсчет % успевающих студентов}

var priz:char; k:integer;

begin

reset(f1); rewrite(f2); k:=0;

while not eof(f1) do

begin

read(f1,s);

{ПРИЗНАК УЧЕБЫ СТУДЕНТА}

PRIZ:='n';

for i:=1 to 3 do if (s.oc[i]>=2) then priz:='y';

if priz='y' then

begin

copy_data(s,fs);write(f2,fs) end

else inc(k);

end;

close(f1);close(f2);

clrscr;writeln('На "4" и "5" учатся',k/n*100:3:0,'%студентов');

end;

begin

clrscr;

write('Введите имя файла общей ведомости:');readln(namefile1);

assign(f1,namefile1);

create_file(f1,nomrec);

write('Введите имя файла ведомости задолжников:');readln(namefile2);

assign(f2,namefile2);

write_data(f1,f2,nomrec);

write_list(f2);

end.

Комментарии

Для каждого студента данные о номере его группы, фамилии, имени и отметках содержатся в полях записи stud: переменных group, surname, name и массиве ос соответственно. Для плохо успевающего студента данные о номере его группы, фамилии, имени и среднем балле содержатся в полях записи foolstud: переменных group, surname, name и sredarif соответственно. Создание типизированного файла базы данных на студентов потока выполняется процедурой create_file, а заполнение полей записи по отдельному студенту - процедурой read_data. Формирование типизированного файла базы данных на плохо успевающих студентов потока выполняется процедурой write_data, которая также подсчитывает процент обучающихся на "4" и "5". Процедура copy_data выполняет вспомогательную роль, копируя поля записи студента в соответствующие поля записи задолжника и вычисляя средний балл по оценкам семестра. Данные из файла задолжников выводятся процедурой write_list.

Лабораторная работа №22. Графика Турбо – Паскаля.

Цель: Рассмотреть основные операторы модуля
GRAPH, реализовать их в конкретных программах

Выполнение работы.

1. Набрать программу и описать действие операторов в виде комментариев.

Program Animacia;

Uses crt,graph;

const

osn:array[1..14] of integer =(485,355,605,355,605,375,385,375,385,365,485,365,485,355);

kab:array[1..14] of integer=(485,365,485,305,455,305,445,335,395,345,395,365,485,365);

ok1:array[1..10] of integer=(480,335,467,335,467,308,480,308,480,335);

ok2:array[1..10] of integer=(463,335,448,335,457,308,463,308,463,335);

var dr,md,kod,i:integer;

size:word;

p:pointer;

Procedure Fillcolor (a,b:byte);

begin

setcolor(a);

setfillstyle(1,b);

end;

begin

dr:=Detect;

initGraph(dr,md,'C:bp.7bgi');

kod:=graphresult;

if kod=0 then

begin

fillcolor(0,11);bar(0,0,639,399);

fillcolor(0,10);bar(0,400,639,479);

fillcolor(14,14);pieslice(590,50,0,359,40);

fillcolor(15,15);pieslice(50,50,0,359,30);

pieslice(160,50,0,359,50);

pieslice(150,50,0,359,40);

fillcolor(6,6);bar(495,325,625,355);

fillcolor(8,8);

fillpoly(7,kab);

fillcolor(9,9);

fillpoly(5,ok1);

fillpoly(5,ok2);

fillcolor(0,0);

circle(425,375,25);

circle(565,375,25);

floodfill(425,375,0);

floodfill(565,375,0);

fillcolor(7,7);

circle(425,375,10);

circle(565,375,10);

floodfill(425,375,7);

floodfill(565,375,7);end;

repeat until keypressed;

end.

Лабораторная работа №23. Программирование в графическом режиме.

Цель: практическое знакомство с операторами графического режима в Паскале.

Программа изображает график функции. Для того чтобы можно было быстро настроить программу на любой вид функциональной зависимости, используем отдельную функцию для задания функциональной зависимости, в которой легко можно изменить одну строку. Сам график строим в виде отрезков прямых. Для многих функций такой график получается лучше, чем при прорисовке по отдельным точкам, к тому же это прекрасная возможность продемонстрировать действие процедур moveto и lineto, которые работают с текущим графическим указателем. Использование масштабных коэффициентов придает универсальность процедуре построения графика. При этом считаем, что график занимает все экранное пространство (ровно 640 точек) вне зависимости от введенного интервала изменения аргумента.

Программа для построения графиков функций.

uses graph;

var gd,gm:integer;

function f(x:real):real; {задание функции}

begin

f:=x*x; {здесь может быть любая функция}

end;

procedure drawgrafik(a,b:real); {a,b – начальное и конечное значения x}

var x,dx,max,min,koef:real;

k,x0,y0:integer; {x0,y0 – положение осей координат}

begin

dx:=(b-a)/639; {определили шаг изменения х (640 точек на графике, а интервалов 639)}

x:=a; max:=f(a); min:=f(a);

for k:=1 to 640 do {определяем область значений f(x)}

begin

if f(x)>max then max:=f(x);

if f(x)<min then min:=f(x);

x:=x+dx;

end;

koef:=479/(max-min); {коэффициент по оси х}

x:=a;

moveto(0,round(479-koef*(f(a)-min))); {начальное значение указателя}

for k:=1 to 639 do {строим график}

begin

x:=x+dx;

lineto(k,round(479-koef*(f(x)-min)));

end;

x0:=round(639*a/(a-b));

line(x0,0,x0,479); {ось y}

y0:=round(479-479*(min/(min-max)));

line(0,y0,639,y0); {ось х}

end;

begin

gd:=detect; initgraph(gd,gm,'');

drawgrafik(-4,4);

readln;closegraph

end.

Содержание

Рапаков Г.Г., Ржеуцкая С.Ю. Turbo Pascal для студентов и школьников. - СПб.:БХВ -Петербург, 2005. - 352 с.:ил.
Павловская Т.А. Паскаль. Программирование на языке высокого уровня: Учебник для вузов. - СПб.:Питер,2003. -393 с.
Павловская Т.А. Паскаль. Программирование на языке высокого уровня: Практикум. - СПб.:Питер,2006. -317 с.:ил.
Фаронов В.В. Delphi. Программирование на языке высокого уровня: Учебник для вузов. - СПб.: Питер, 2003.-640 с.
Немнюгин С.А. Turbo Pascal: Учеб. - СПб.: Питре,2000. - 496 с.
Немнюгин С.А. Turbo Pascal: Практикум - СПб.: Питре,2002. - 256 с.