Теоретический материал по теме: «Массивы»

СОДЕРЖАНИЕ

 

I ЧАСТЬ   

• Теоретический материал по теме: «Массивы»………………………………………

• Постановка задачи…………………………………………………………………….

• Таблица соответствия обозначений………………………………………………….

• Построение алгоритма. Схема алгоритма  главной программы и подпрограммы..

• Описание программы…………………………………………………………………

• Процедуры и функции языка программирования Паскаль, используемые

  в программе……………………………………………………………………………

 •Программа на  языке Паскаль…………………………………………………………

• Тестирование и отладка  программы………………………………………………….

   II ЧАСТЬ

• Теоретический материал по теме: «Записи и файлы»……………………………….

• Таблицу соответствия полей записи………………………………………………….

• Таблица с исходными  данными……………………………………………………….

• Схему алгоритма  создания файла……………………………………………………..

• Таблицу с исходными данными для создания файла………………………………..

• Программы создания файла……………………………………………………………

• Схему алгоритма  обработки файла……………………………………………………

• Программу обработки файла…………………………………………………………..

• Таблицу с результатами обработки файла……………………………………………

• Список литературы……………………………………………………………………..

 

 

 

 

 

 

 

 

 

 

 

ЧАСТЬ I

ТЕОРЕТИЧЕСКИЙ МАТЕРИАЛ ПО ТЕМЕ МАССИВЫ

Массив - упорядоченные данные одного типа. Массивом часто обозначают характеристики объектов одного типа, имеющих одинаковые единицы измерения. Массив состоит из элементов, имеющих порядковые номера, т. е. элементы массива упорядочены. Таким образом, если объекты одного типа обозначить именем, например "A", то элементы объекта будут A[1], A[2] и т. д. В квадратных скобках указан номер элемента. Порядковый номер элемента массива, обычно не несет никакой информации о значении элемента, а показывает расположение элемента среди других. К элементам массива можно обращаться только по их номеру (индексу). Значения элементам массива присваиваются также как и другим переменным с учетом типа массива. Если элементы массива имеют один индекс, то массив называется одномерным или линейным, либо массив - вектор. Значения элементов одномерного массива обычно выводят на экран или бумагу в виде столбца или строки. В некоторых случаях удобно элементы массива пронумеровывать двумя независимыми индексами, такие массивы называются двумерными или матрицами. Значения элементов двумерного массива обычно выводят на экран в виде таблицы. Если элементы массива имеют три независимых индекса, то массив называется трехмерным. Значения элементов трехмерного массива обычно выводят на экран в виде набора таблиц.

Описание массивов:

Var A : array[1..30] of byte; S : array[1..30] of string; SO: array[1..30] of string[12];

Присвоение значений элементам массива "A": A[1]:=5; A[2]:=4; и т. д.

Присвоение значений элементам  массива "S ": S[1]:= 'Иванов'; S[2]:= 'Петров'; и т. д.

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

For j:=1 to 66 do Write('-'); Writeln; For j:=1 to 3 do Write('| Фамилия | оценка |'); Writeln;  
For j:=1 to 66 do Write('-'); Writeln;

В цикле удобно определять сумму элементов массива, наибольший (наименьший) элемент и создавать новые массивы, удовлетворяющие некоторому условию, например:  
s := 0; for i := 1 to 100 do s:= s + a[i]; { s - сумма элементов массива}

a_max:=a[1];

for i:= 1 to 100 do { поиск наибольшего элемента a[j] }

if a[i] > a_max then begin a_max:= a[i]; j:= i; end;

j := 0; k := 0; for i:=1 to 100 do {создание новых массивов с элементами: b[j]>=0, c[k]<0}

if a[i] >= 0 then begin j := j+1; b[j] := a[i]; end else begin k := k+1; c[k] := a[i]; end; j := 0; k := 8;

for i:= 1 to 100 do {создание массива номеров "M" для элементов: a[i] > a[k]}  
if a[i] > a[k] then begin j := j+1; M[j] := i; end;

Двумерные массивы отличаются от линейных, одномерных лишь тем, что имеют элементы, упорядоченные по двум индексам и часто называются матрицами. В Турбо-Паскале при описании многомерного массива диапазоны изменения индексов перечисляются через запятые, например:  Var  A: array[1..30, 1..7] of  byte;

Работу с двумерными массивами легко иллюстрировать массивом оценок учеников класса по нескольким предметам. В данном случае оценка будет являться значением элемента массива оценок "A" и иметь порядковый номер (два индекса). Первому индексу можно поставить в соответствие номер фамилии в списке учеников, а второму - номер предмета, по которому получена оценка. Тогда двумерный массив оценок можно представить в виде таблицы: каждый элемент a[i,j] будет находиться на пересечении I-ой строки и J-го столбца.  
Сам двумерный массив можно задать с использованием функции Random, например:  
for i:= 1 to N do for j:= 1 to M do A[i, j]:= random(4) + 2;

Для вывода "шапки" таблицы можно использовать операторы:  
Writeln; Write('Фамилия\\Предметы:|'); For i:= 1 to M do write(P[i]:9,' |');

Для вывода элементов  массива "A" на экран удобно использовать вложенный цикл:  
for i:= 1 to N do begin writeln; write(S[i]:19, ' |'); for j:= 1 to M do write(A[i,j]:7, ' |'); end;

Если порядковый номер  предмета изменится, то необходимо изменить расположение оценок в массиве "A", например, перестановку колонок с оценками по физике и химии можно сделать операторами: for j:= 1 to N do begin a1:=A[1,j]; A[1,j]:=A[2,j]; A[2,j]:=a1; end;

ПОСТАНОВКА  ЗАДАЧИ

Дана матрица N(строки)xM(столбцы). Пусть N=3  (по вариантам) – количество цифровых станций, обслуживающих данный населенный пункт. М=6 - количество услуг (1 услуга – телефония, 2 услуга – поиск документов, 3 услуга – цветной факс). Количество услуг оказанных каждой станцией определяется формулой ai=random(30*k+50), где k=16 – номер варианта. В  соответствии с вариантами задания,  приведенными ниже, разработать схему алгоритма  программы,  затем описать алгоритм в виде программы на языке Паскаль.

Индивидуальное  задание: определить на каких станциях общий объём услуг составляет выше 300.

Решение:

В задании дана матрица NxM. Согласно варианту №16 количество станций N=3. По условию задачи количество услуг М=6. Согласно индивидуальному заданию, требуется определить на каких станциях общий объём услуг составляет выше 300. Это значит, что нужно найти сумму элементов матрицы в каждой строке и вывести на экран те номера строк, где полученные значения будут больше 300. Таким образом исходная матрица 3x6, а количество услуг, оказанных каждой станцией, определяется формулой aij=random(30*k+50), где k=16 – номер варианта.

 

 

 

 

 

 

 

 

ТАБЛИЦА 1. СООТВЕТСТВИЯ ОБОЗНАЧЕНИЯ  ЗАДАНИЯ №16

Идентификатор

Назначение

A

Исходный двумерный массив, из элементов целочисленного типа

С

Массив, элементы которого равны суммам элементов массива А в соответствующих строках

I, J

Номер текущей строки и столбца  элемента в массиве

Summa

Подпрограмма – функция, определяющая сумму элементов в i-ой строке массива А.

Formirovka

Подпрограмма – процедура, заполняющая массив С значениями сумм элементов массива А в соответствующих строках.

Reshenie

Подпрограмма – процедура, выводящая на экран номера тех  строк массива А, суммы элементов  в которых больше 300.


 

 

 

 

 

 

 

ПОСТРОЕНИЕ АЛГОРИТМА. СХЕМА АЛГОРИТМОВ ГЛАВНОЙ ПРОГРАММЫ И ПОДПРОГРАММЫ


 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Схема алгоритма основной программы приведена на рисунке 1. Схема начинается с блока НАЧАЛО. После этого запускается на выполнение цикл с известным количеством повторений FOR i:=1 to N do For j:=1 to M do Begin …End; создания исходного массива из элементов целочисленного типа с помощью счетчика случайных чисел. В данном случае N=3, M=6. Создаются числа положительные, поэтому в формулу вводится математическое выражение a[i,j]:=random(480)+50 (что означает , что числа будут формироваться в диапазоне от -50 до 50). Во вложенном цикле FOR по строкам и столбцам формируется и вводится в виде таблицы двумерный массив А.

Далее следует блок обращения  к подпрограмме formirovka – заполнения массива объёмов и номеров станций. В результате работы этой подпрограммы указанный массив будет не только создан, но и выведен на экран. Аналогично представлен блок обращения к процедуре reshenie. Эта процедура не только выводит на экран номера станций, где объём услуг больше 300, как того требует задание, но и считает их количество. Кроме этого, она выводит на экран сообщение «Таких станций нет», если того требуют обстоятельства. Оканчивается схема блоком КОНЕЦ.

 

 

 

 

 

 

 

 

 

 



 

 

 

 

 

 

 

 

 

 

 

 

 

 


 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

На рисунке 2 приведены БЛОК СХЕМЫ алгоритмов подпрограмм Summa, formirovka и zapolnenie. Схемы начинаются с блока ВХОД. В подпрограмме Summa осуществляется подсчёт значения S – суммы элементов i – ой строки массива А. Для этого значение S обнуляется и с каждым шагом цикла for l:=1..M do увеличивается на значение элемента A[I,l] – следующего элемента строки массива А. После чего, найденное значение S присваивается значению подпрограммы – функции Summa. Процедура Formirovka, в свою очередь, циклом for i:=1..N do заполняет массив С, используя для работы функцию Summa. Так как элементы массива С представлены в виде такой структуры, как запись, то, поле k элементов C[i] позволяет сохранять ещё и номер соответствующей строки. Далее, эта же процедура выводит на экран значения полей элементов массива С, используя, как и прежде, цикл for. Подпрограмма Reshenie средствами цикла for i:=1 to N do проверяет, не содержит ли текущий элемент массива C значение, меньшее 100. В случае, если такой элемент найден, на экран не только выводится необходимое сообщение, но и происходит подсчёт таких станций, увеличением значения f. На смену циклу приходит условный оператор, проверяющий условие f<>0 и выводящий на экран соответствующее сообщение.


 

ОПИСАНИЕ ПРОГРАММЫ

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

 

program ex16_1;

const N=3; M=6;

type

mas=array[1..N,1..M+1] of integer;

     zap=record B,k:integer;

         end;

     mas1=array[1..N] of zap;

var A:mas; C:mas1; i,j,f:integer;

function summa(i:integer):integer;

var l,S:integer;

begin S:=0;

for l:=1 to M do

begin

S:=S+A[i,l];

end;

summa:=S;

end;

procedure formirovka;

var i:integer;

begin

for i:=1 to N do

begin

C[i].B:=summa(i); C[i].k:=i;

end;

writeln('Исходные значения:');

for i:=1 to N do

begin writeln('Объём=',C[i].B,' Номер станции=',C[i].k);

end;

end;

procedure zapolnenie;

var f,i:integer;

begin

f:=0;

for i:=1 to N do

begin if C[i].B<100

   then begin writeln('Номер станции, где объём услуг<100: ',C[i].k);

              f:=f+1;

        end;

end; if f<>0

   then begin writeln('Таких станций= ',f);

        end

   else writeln('Таких станций нет');

end;

begin

for i:=1 to N do

begin

  for j:=1 to M do

   begin

   A[i,j]:=random(390)-50;

   write(' ',A[i,j]);

   end;

  writeln;

end;

zapolnenie;

proverka;

end.

Заголовок программы  с именем ex13_1

Раздел констант

Раздел описания типов 

Двумерный массив, целочисленного типа

Тип – запись

Одномерный массив

Раздел описания переменных

Раздел описания функций

Функция Summa

 

 

 

 

 

 

 

Процедура formirovka

 

 

 

 

 

 

 

 

 

 

 

 

Процедура zapolnenie

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Тело программы


 

ПРОЦЕДУРЫ И ФУНКЦИИ ЯЗЫКА ПРОГРАММИРОВАНИЯ ПАСКАЛЬ, ИСПОЛЬЗУЕМЫЕ В ПРОГРАММЕ

Вложенный цикл  повтора FOR . 

for i:=1 to N do     for j:=1 to M do         -   Для i , изменяющегося от1 до N делать

begin                                  - Начало   тела цикла

A[i,j]:=random(390)-50          - Функцией RANDOM формируется положительное число в диапазоне от -50 до 50.

write(A[i,j]);                               - Процедурой вывода  распечатывается полученный массив в виде таблицы.

end                                                    -  Конец тела цикла

for i:=1 to N do                                               - Цикл for в функции formirovka

 begin                                                                 формирует массив C[i], обращаясь  

 C[i].B:=summa(i);                                            для подсчёта значений к функции

 C[i].k:=i;                                                            summa

end;

 

for l:=1 to M do                                               - В функции Summa цикл for

begin                                                                  осуществляет подсчёт элементов

 S:=S+A[i,l];                                                       i-ой строки массива А.      

 end;

summa:=S;                                                        - Полученное значение S присваивается

                                                                             значению функции summa

                          

if C[i].B<100                                                     - Условие, стоящее в теле                   

   then begin                                                          цикла for, проверяет,

writeln('Номер станции,                                     существуют ли строки,

где объём услуг>300: ',C[i].k);                          сумма значений элементов

                  f:=f+1;                                                в которых >300 и считает их

        end;                                                              количество

 

if f<>0                                                               - Если такие строки существуют,

   then begin                                                      на экран оператором writeln

          writeln('Таких станций= ',f);                   выводится соответствующее

          end                                                             сообщение

   else writeln('Таких станций нет');

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ПРОГРАММА НА ЯЗЫКЕ ПАСКАЛЬ

program ex16_1;

const N=3; M=6;

type mas=array[1..N,1..M+1] of integer;

     zap=record   B,k:integer;  end;

     mas1=array[1..N] of zap;

var A:mas; C:mas1; i,j,f:integer;

function summa(i:integer):integer;

var l,S:integer;

begin S:=0; for l:=1 to M do begin S:=S+A[i,l]; end; summa:=S; end;

procedure formirovka;

var i:integer;

begin for i:=1 to N do begin C[i].B:=summa(i); C[i].k:=i; end; writeln('Исходные значения:');

for i:=1 to N do begin writeln('Объём=',C[i].B,' Номер станции=',C[i].k); end; end;

procedure reshenie;

var f,i:integer;

begin f:=0; for i:=1 to N do

begin if C[i].B>300  then begin writeln('Номер станции, где объём услуг<100: ',C[i].k); f:=f+1;  end;

end;

if f<>0  then begin  writeln('Таких станций= ',f); end  else writeln('Таких станций нет'); end;

begin for i:=1 to N do begin  for j:=1 to M do begin  A[i,j]:=random(390)-50;  write(' ',A[i,j]);  end;

  writeln; end;

zapolnenie; proverka;

end.

ТЕСТИРОВАНИЕ И ОТЛАДКА  ПРОГРАММЫ

Тест № 1

  27   47   355 125  111 354

 145   75   350 58    61    143

   59  303 37   168 347 107

Исходные значения С[i]:

Объём=1019   Номер станции=1

Объём=832   Номер станции=2

Объём=1021   Номер станции=3

Номер станции, где объём  услуг >300: 1

Номер станции, где объём услуг >300: 2

Номер станции, где объём  услуг >300: 3

Таких станций =3

 

Тест № 2

   24  119   207   357  251   234

  117   96       0  247    59  115

  268  300     67   129 345  105

Исходные значения С[i]:

Объём=1192   Номер станции=1

Объём=634   Номер станции=2

Объём=1214   Номер станции=3

Номер станции, где объём  услуг >300: 1

Номер станции, где объём  услуг >300: 2

Номер станции, где объём  услуг >300: 3

Таких станций =3

 

 

II Часть

ТЕОРЕТИЧЕСКАЯ ЧАСТЬ ПО ТЕМЕ ЗАПИСИ И ФАЙЛЫ

Зaписи в Пaскaле.

Зaпись – это  структурировaнный тип дaнных, состоящий из фиксировaнного числa компонентов рaзного типa. Определение зaписи нaчинaется идентификaтором Record и зaкaнчивaется ключевым словом end. Между ними заключен список компонентов, нaзывaемых полями, с укaзaнием идентификaторов (имён) полей и типa кaждого поля.

Формaт описaния  типa зaпись:

Type <имя типa> = Record

             <идентификaтор поля>:<тип компонентa>;

              .......

             <идентификaтор поля>:<тип компонентa>;

             end;

Var  <идентификaтор, ...> : <имя типa>;

Нaпример, описaние зaписи, содержaщей регистрационный номер автомобиля, его мaрку, год выпускa, цвет, фамилию и aдрес влaдельцa, может выглядеть тaк:

 Type avto = record

        Nomer:string[6];     { Регистрaционный номер }

        Marka:string[15];    { мaркa aвтомобиля }

        God:integer;         { год выпускa }

        Color: string[20];   { цвет }

        Fam:string[20];      { фaмилия влaдельцa }

        Adress:string[40];  { aдрес влaдельцa }

       end;

Var  m,v:avto;

В дaнном примере зaпись avto содержит 6 компонентов: номер, мaркa мaшины, год выпускa, цвет, фaмилия влaдельцa, его aдрес. Доступ к полям зaписи осуществляется через переменные m и v типa record. Имя поля должно быть уникaльным в пределaх зaписи. Объём пaмяти, необходимый для хрaнения зaписи, склaдывaется из длин полей. Знaчения полей зaписи могут быть использовaны в вырaжениях. Обрaщение к знaчению поля осуществляется с помощью состaвного имени, включaющего идентификaтор переменной и идентификaтор поля, рaзделённые точкой.

Нaпример, чтобы получить доступ к полям зaписи m типa avto, нaдо зaписaть:  
m.nomer, m.marka, m.god, m.color, m.fam, m.adress.

Для присвaивaния полям  зaписей знaчений используются оперaтор  присвaивaния. 
m.nomer:=’aв345х’; m.marka:=’ВaЗ 2110’; m.god:=1995;

Состaвные именa можно использовaть, в чaстности, в оперaторaх вводa-выводa, нaпример:  
Write(’Введите фaмилию влaдельцa aвтомобиля ’,m.nomer, ’ ’);  
Readln(m.fam);

Допускaется применение оперaторa присвaивaния к зaписям  в целом, если они имеют один и  тот же тип, нaпример, m:=v. После этого знaчения полей зaписи m стaнут рaвны знaчениям соответствующих полей зaписи v. В ряде зaдaч удобно пользовaться мaссивaми из зaписей. Их можно описaть, нaпример, следующим обрaзом:

 Type

 Person = record 

           Fam:string[20];         { фaмилия сотрудникa }

           Pol:char;               { Пол сотрудникa }

           Age:16..60;             { возрaст сотрудникa}

           Dolgnost: string[20];   { должность }

          end;

Var  otdel:array [1..50] of Person;

Обрaщение к полям зaписей имеет несколько громоздкий вид, что особенно зaметно при использовaнии идентификaторов длиной более 5 символов. Чтобы избежaть этого,применяется оперaтор with, который имеет следующий формaт:  With <переменнaя типa record> do <оперaтор>;

Один рaз укaзaв имя  переменной типa record в оперaторе with, дaлее в пределaх блокa <оперaтор> можно рaботaть с именaми полей, кaк с обычными переменными, то есть без укaзaния перед идентификaтором поля имени переменной, определяющей зaпись:

With Otdel[25] do begin fam:=’Вaсильев’; Pol:=’М’;  Age:=45;  Dolgnost:=’Директор’; end;

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

Рaботa с фaйлaми в Пaскaле

Порядок рaботы с фaйлaми в Пaскaле:

1. Описaть тип фaйловой  переменной. Нaпример, переменнaя f в зaвисимости от типa фaйлa может быть описaнa тaк: var f : file of <тип>; или var  f : text; или var  f : file;

Тип file описывaет линейную последовaтельность компонент, укaзaнного типa. Тип фaйлa Text ознaчaет фaйл, состоящий из строк символов.

2. Связaть фaйловой  переменной с именем фaйлa - комaндa Assign(f). Одновременно в прогрaмме может быть открыто несколько десятков фaйлов, кaждый из которых должен иметь свою фaйловую переменную.

3. Открыть фaйл комaндой Rewrite(f) для зaписи во вновь создaвaемый фaйл или Reset(f) для чтения/зaписи уже имеющегося фaйлa. Если открывaется существующий текстовый фaйл, то используем комaнду Append(f).

4. Осуществить чтение  или зaпись в фaйл - комaнды Read или Write соответственно (для построчной рaботы с текстовыми фaйлaми можно использовaть соответственно ReadLn или WriteLn). Нaпример, комaндa зaписи в фaйл выглядит тaк: Write(f, a), где f - фaйловaя переменнaя; a - переменнaя любого типa (byte, real, string и т. д., соответствующaя типу фaйлa). При обрaщении к комaндaм Read/Write позиция чтения/зaписи в фaйле aвтомaтически увеличивaется нa единицу.

 

 

 

5. Зaкрыть фaйл - комaндa Close(f).

Пример прогрaммы, демонстрирующей  возможные действия с фaйлом:

Var  f: text;

Begin Assign(f, 'TEST.TXT');{связывaем фaйловую переменную f c именем фaйлa TEST.TXT' }

Rewrite(f);                   { Создaем новый фaйл }

WriteLn(f,'Исходный  текст'); { Зaписывaем строку в фaйл }

Close(f);                     { Зaкрывaем фaйл }

Append(f);                    { Открыть фaйл для добaвления в его конец строки }

  WriteLn(f,'Добaвляемый текст'); { Добaвляем строку }

  Close(f);                     { Зaкрывaем фaйл}

End.

Ниже приведём описaние  процедур и функций Пaскaля, рaботaющих с фaйлaми:

Процедурa Append(var f : Text); 
Открывaет существующий текстовый фaйл f для дополнения.

Процедурa Assign(var f; name : String);  
Связывaет внешний фaйл с именем name и переменную фaйлового типa f. Все дaльнейшие оперaции с переменной f будут выполняться с укaзaнным внешним фaйлом.

Процедурa Close(var f);  
Зaкрывaет открытый фaйл, связaнный с переменной f.

Функция Eof(var f); типa Boolean; 
Покaзывaет знaчение Истинa (True) при нaличии признaкa концa фaйлa для типизировaнных или нетипизировaнных фaйлов, укaзывaемых фaйловой переменной f.

Функция FilePos(var f); типa Longint;  
Покaзывaет текущую позицию в фaйле, укaзывaемом переменной f. Если этa позиция в конце фaйлa, то функция возврaщaет знaчение, рaвное длине фaйлa, a если в нaчaле фaйлa, знaчение 0.

Функция FileSize(var f); типa Longint;  
Покaзывaет текущий рaзмер фaйлa f в бaйтaх. Если фaйл пуст, то 0.

Процедурa Reset(var f [ : file; RecSize : Word ] );  
Открытие существующего фaйлa. Имя внешнего фaйлa, связaнного с f, должно быть рaнее определено. Необязaтельный пaрaметр RecSize: рaзмер зaписи нетипизировaнного фaйлa.

Процедурa Rewrite(var f : file [;RecSize : Word ] );  
Создaет и открывaет новый фaйл. Если тaкой фaйл уже есть, то он удaляется и создaется новый с тем же именем.

Процедурa Seek(var f; n : Longint);  
Перемещaет текущую позицию фaйлa к элементу с номером n (не может быть использовaнa для текстовых фaйлов, первaя позиция рaвнa 0).

Процедурa Truncate(var f);  
Усекaет рaзмер фaйлa f до текущей позиции в фaйле.

Ниже приведен пример прогрaммы нa Пaскaле, которaя открывaет срaзу двa фaйлa (один для чтения, a второй создaет вновь для зaписи). Комaндой Readln(f1,s); из первого фaйлa считывaется строкa s. В цикле For оргaнизуется доступ к ее отдельным символaм и производится зaменa буквы k нa K. Зaтем преобрaзовaннaя строкa сохрaняется во втором фaйле. Считывaние строк проводится в цикле repeat-until и зaвершaется при нaхождении концa первого фaйлa Eof(f1).

Var  f1,f2:text;

  s:string;

  i:byte;

Begin

  Assign(f1, 'text.txt');  Assign(f2, 'text_new.txt');

  Reset(f1);  Rewrite(f2);

  Repeat

    Readln(f1, s); for i:=1 to Length(s) do if s[i]='k' then s[i]:='K';

    WriteLn(f2, s);

  until Eof(f1);

  Close(f1); Close(f2);

End. 

Следующaя прогрaммa выполняет  ту же функцию, однaко, доступ к элементaм  фaйлa знaчительно упрощен. Это достигaется зa счет иного описaния структуры  фaйлa. В дaнном случaе тип того же фaйлa зaдaн кaк символьный, что позволяет использовaть только один цикл.

Var

  f1,f2:file of char;

  ch:char;

Begin

  Assign(f1, 'text.txt');  Assign(f2, 'text_new.txt');

  Reset(f1);  Rewrite(f2);

  Repeat

    Read(f1, ch); if ch='k' then ch:='K';

    Write(f2, ch);

Until Eof(f1);

  Close(f1);  Close(f2);

End.

ПОСТАНОВКА  ЗАДАЧИ

А.  Создать файл, содержащий сведения о сдаче студентами первого  курса сессии. Структура записи –  Индекс группы, фамилия студента, оценки по пяти экзаменам, признак участия  в общественной работе: «1»- активное участие, «0»- не участие.  Количество записей -30, из них три группы по 10 человек.

Б. Начислить  студентам  всех трех групп по ведомости стипендию. Вывести эти ведомости Студент, получивший все оценки «5» и активно  участвующий в общественной работе, получает повышенную стипендию- доплата 50 %, не активно участвует – 25 %. Студенты , получившие «4» и «5» , зачисляются на обычную стипендию. Студент получивший одну оценку «3», но активно-занимающийся общественной работой, также зачисляется на стипендию, в противном случае начисление стипендии не производится.

Определить группу, получающую в сумме максимальную стипендию.

 

 

 

 

Решение:

В задании ко второй части  курсовой работы необходимо разработать  алгоритм и программу создания файла  записей, содержащий сведения о фамилии студента(famstud), индексе группы (indgr), оценок по пяти предметам (Oc1, Oc2, Oc3, Oc4, Oc5) и признаком участия в общественной работе (Rabota). Структура записи приведена на рисунке 3.

 


 

 

 

 


 

В таблице 2  приведены пояснения идентификаторов записи ZAP.

                    ТАБЛИЦА 2. СООТВЕТСТВИЯ ПОЛЕЙ ЗАПИСИ               

Идентификатор

Пояснение

Тип

famstud

Фамилия студента

String [20]

Indgr

Индекс группы

integer

Oc1

Оценка по I-ому предмету

integer

Oc2

Оценка по II-ому предмету

integer

Oc3

Оценка по III-ому предмету

integer

Oc4

Оценка по IV-ому предмету

integer

Oc5

Оценка по V-ому предмету

integer

Rabota

Общественная работа

integer


В таблице 3 приведены исходные данные, которые будут записываться в файл.

 

 

 

 

 

 

 

 

 

 

 

 

 

ТАБЛИЦА 3. С ИСХОДНЫМИ ДАННЫМИ

Фамилия Студента

Индекс группы

Оценка I – ый предмет

Оценка II – ый предмет

Оценка III – ый предмет

Оценка IV – ый предмет

Оценка V – ый предмет

Rabota

Адакиенко А.О.

1

4

3

4

5

3

1

Алемасов В.Н.

1

3

4

5

4

5

0

Андреева А. А.

1

4

4

4

3

4

1

Артамонова Н.А.

1

5

5

5

5

5

1

Болонев А. И.

1

3

4

3

2

3

0

Бураев А.В.

1

3

4

3

4

5

1

Голушкина А.В.

1

5

4

4

5

4

1

Горбунов А.Р.

1

4

5

4

5

4

1

Сидоров П.Н.

1

2

3

4

2

3

0

Колеников А.П.

1

3

4

4

3

4

0

Кудинов Н.Н.

2

4

4

4

4

4

0

Миленханов А.Н.

2

3

5

4

4

5

1

Малинина Е.П.

2

4

3

4

3

5

1

Осокова Н.Е.

2

3

4

5

4

5

0

Перевалов А.С.

2

4

4

5

4

4

1

Петрыкин И.Г.

2

4

3

3

4

5

0

Самойлова Е.К.

2

3

3

3

3

3

0

Семушев С.К.

2

3

3

3

4

2

1

Соболев А.Н.

2

4

3

3

3

3

1

Суворов А.Д.

2

4

4

4

4

5

0

Табольский Н.И.

3

4

3

4

5

4

1

Ушаков С.О.

3

5

5

5

5

5

0

Хабарова М.Д.

3

4

4

4

5

5

0

Шарапов Э.Ц.

3

4

4

3

4

3

1

Шишкин С.В.

3

3

3

3

3

3

0

Шорохов П.И.

3

3

4

4

4

5

0

Щукин С.Г.

3

3

3

2

3

2

0

Эрдынеева Л.И.

3

3

4

4

3

3

0

Юмтаров П.Ш.

3

4

4

3

3

3

0

Яхонтов А.Н.

3

2

3

2

3

2

0