Работа со строками и записями - Создать структуру с данными по таблице 1. Добавить и вычислить в структуре поле «Минимальный прирост». Определить количество городов с приростом в 2003 году более 2 тыс. чел. Упорядочить записи по алфавиту названия городов.

Лабораторная работа 11. Вариант 2. ЛР Работа со строками и записями Цель работы: Научиться работать с двумя типами данных — строками и записями. / задача из РК программа в Pascal Lazarus. В архиве также файл с объяснениями работы программы. Тэги: Программа на Lazarus, PascalObject, Pascal, Delphi, Turbo Delphi, Pascal ABC / Анимация, ЛР, РК, ДЗ, 2023 Условия для программы, под которые она выполнена: 2) Создать структуру с данными по таблице 1. Добавить и вычислить в структуре поле «Минимальный прирост». Определить количество городов с приростом в 2003 году более 2 тыс. чел. Упорядочить записи по алфавиту названия городов. Лабораторная работа № 11 Работа со строками и записями Цель работы: Научиться работать с двумя типами данных — строками и за-писями.

В большинстве случаев при написании программ применяются простые типы данных (числа, строки). Но часто возникает необходимость объединить в одном типе несколько разных типов данных. В Free Pascal для этого применяется структурный тип данных — запись. Запись (record) —это сложная структура данных, состоящая из фиксированного количества объектов, называемых полями записи. В отличие от массивов, поля записи могут быть разного типа. Запись состоит из фиксированного числа компонентов, называемых полями записи. Общий синтаксис объявления записи выглядит так: type имя_записи = record поле1 : тип; поле2 : тип; … полеN: тип; end; В программе переменная типа записи объявляется следующим образом: var имя_переменной : имя_записи; К каждому из компонентов записи можно получить доступ, используя со-ставное имя.

Для этого вначале пишется имя переменой, затем точка, затем имя поля. Рассмотрим следующий пример. Создадим запись — треугольник с тремя полями — сторонами треугольника. В программе произведен расчёт площади треугольника по формуле Герона. program Project1; // Консольное приложение type Triangle= record a, b, c: real ; //стороны треугольника end; var x : Triangle ; //объявление переменой типа записи Triangle р, s:real; begin write ( \' a=\' ); readln(x.a); //чтение поля a write ( \'b=\' ); readln(x.b); //чтение поля b write ( \' c=\' ); readln(x.c); //чтение поля с p: = (x.a+x.b+x.с )/2 ; //вычисление полупериметра //проверка существования треугольника - подкоренное выражение //для формулы Герона должно быть положительным if (р—х.а)*(р—х.b)*(р—х.с)>0 then begin //вычисление и вывод площади s:=sqrt(р*(р—х.а)*(р—х.b)*(р—х.с)); writeln (\'Square=\' , s:7:2); end else writeln ( \'Not triangle \' ); readln; end.

Элементами записей могут быть как простые, так и структурные типы. Никаких ограничений по уровню вложенности структур не существует. Теперь для примера создадим запись Student, которая будет состоять из полей: фамилия, имя, группа, оценки по пяти дисциплинам и прописка. В свою очередь прописку тоже сделаем записью, состоящей из полей: город, улица, дом, квартира. type adress = record city , street : string; //город, улица house, apartment: integer; //дом, квартира end; student = record surname, name : string; //фамилия, имя group : string; //группа estimation: array [1..5] of integer; //оценки residence : adress; //прописка end; При объявлении такой записи обращение к полям осуществляется так: var Ivanov : student; х: array [1..100] of student; begin Ivanov.group:= \'Ф08\'; Ivanov.residense .

city := \'Киев \' ; x[1] . estimation [5] : = 3 ; //у первого студента 5-я оценка =3 С использованием ключевого слова With к полям записи можно обращаться без указания префикса каждый раз с названием поля: with переменная do оператор Например: with stud do begin with residence do begin с i t у : = \' Донецк \' ; street :=\'Артёма\'; house : = 145; apartment : = 31; end; surname := \'Иванов \' ; name:= \'Андрей \' ; birthday := \'01.11.1990 \' ; group := \'Ф07 \' ; estimation [1]: = 3; estimation [2]: = 5; estimation [3]: = 4; estimation [4]: = 3; estimation [5]: = 5 ; end; ЗАДАЧА: Создать базу данных, содержащую сведения о студентах. В программе предусмотреть расчёт среднего балла студента, сортировку по алфавиту, вывод результатов в диалоговое окно и в текстовый файл.

Рис. 1 Пример формы Создадим новый проект. На форму (рис. 1) поместим необходимое коли-чество объектов типа TEdit для ввода исходных данных и объект StringGrid для вывода результатов. Для объекта StringGrid1 зададим свойства ColCount=8 и RowCount=l. Также создадим три кнопки:  Запомнить данные - после ввода данных они считываются, и поля ввода очищаются для дальнейшего ввода;  Сортировка по алфавиту - после нажатия этой кнопки записи сортируются по алфавиту фамилий;  Вывести данные- результаты выводятся в таблицу ниже и записываются в текстовый файл. unit Unitl ; {$mode objfpc}{$H+} Interface uses Classes , SysUtils , LResources , Forms, Controls , Graphics , Dialogs , StdCtrls , Grids; type { TForml } TForml = class (TForm) Buttonl: TButton ; Button2 : TButton; Button3 : TButton; Editl : TEdit; Edit10: TEdit; Edit11 : TEdit; Edit12: TEdit; Edit2 : TEdit; Edit3 : TEdit; Edit4 : TEdit; Edit5 : TEdit; Edit6 : TEdit; Edit7 : TEdit; Edit8 : TEdit; Edit9 : TEdit; Label1 : TLabel; Label2 : TLabel; Label3 : TLabel; Label4 : TLabel; Label5 : TLabel; Label6 : TLabel; Label7 : TLabel; Label8 : TLabel; Label9 : TLabel; StringGridl: TStringGrid; //Процедура-обработчик кнопки «Запомнить данные» procedure ButtonlClick(Sender : TObject) ; //Процедура-обработчик кнопки «Вывести данные» procedure Button2Click (Sender : TObject); //Процедура-обработчик кнопки «Сортировать по алфавиту» procedure Button3Click ( Sender : TObject ); //Процедура инициализации формы procedure FormCreate ( Sender : TObject); private { private declarations } public { public declarations } end; //объявление записи адреса студента adress = record city , street : string; //город, улица house, apartment: integer; //дом, квартира end; //объявление записи сведений о студенте student = record surname , name : string; //фамилия, имя group : string; //группа estimation: array [1..5] of integer ; //оценки residence : adress; //прописка s_ball : real; //средний балл end; var Forml : TForml ; //массив переменных типа «студент» х: array [0..100] of student; //переменная для подсчета количества студентов i: integer; implementation { TForml } //процедура инициализации формы procedure TForml.

FormCreate ( Sender : TObject); begin i : = 0; //количество студентов вначале равно 0 end; //процедура работы кнопки «Запомнить данные» procedure TForml. ButtonlClick ( Sender : TObject); var sum, j : integer ; begin //чтение данных с формы х.surname:=Editl.Text; x.name:=Edit2.Text; x.group:=Edit3.Text; x.residence.city: =Edit5.Text; x.residence.street := Edit6.Text ; x.residence.house:= StrToInt (Edit7. Text); x.istimation[1] = StrToInt (Edit4.Text); x.istimation[2]= StrToInt (Edit9 . Text) x.istimation[3]= StrToInt (Edit10. Text) x.istimation[4]= StrToInt (Edit11.Text) x.istimation[5]= StrToInt (Edit12.Text) //расчет среднего балла студента sum:= 0; for j : = 1 to 5 do sum: =sum+x.estimation [j]; x[ i ].s_ball: =sum/5; inc(i); // очищение полей ввода для следующих данных Edit1.Text:=’ ’; Edit2.Text:=’ ’; Edit3.Text:=’ ’; Edit4.Text:=’ ’; Edit5.Text:=’ ’; Edit6.Text:=’ ’; Edit7.Text:=’ ’; Edit8.Text:=’ ’; Edit9.Text:=’ ’; Edit10.Text:=’ ’; Edit11.Text:=’ ’; Edit12.Text:=’ ’; end; //процедура работы кнопки «Вывести данные» procedure TForml.

Button2Click ( Sender : TObject); var f : text file ; j : integer; s : string ; begin //количество строк в таблице StringGrid будет на 1 больше, //чем количество студентов (плюс 1 строка для шапки) StringGrid1.RowCount: = i +1; //вывод шапки таблицы StringGrid1.Cells [1 ,0]: = \'Фамилия\'; StringGrid1.Cells [2 ,0]: = \'Имя\' ; StringGrid1.Cells [3 ,0]: = \'Группа\'; StringGrid1.Cells [4 ,0]: = \'Город\'; StringGrid1.Cells [5 ,0]: = \' Улица\'; StringGrid1.Cells [6 ,0]: = \' Дом/кв.\'; StringGrid1.Cells [7 ,0]: = \'Средний балл\'; //вывод сведений о студентах в j-ю строку for j : = 1 to i do begin StringGrid1.Cells [1 ,j]: = x[j -1]. surname ; StringGridl.Cells [2 ,j]: = x[j -1].

name ; StringGridl . Cells [3 ,j ]: = x[j - 1]. group ; StringGridl . Cells [4 , j ]: = x [ j - 1]. residence . city ; StringGridl . Cells [5 , j ]: = x [ j - 1]. residence . street ; s:=inttostr(x[j-1].residence.house)+\' / \'+inttostr(x[j-1].residence.apartment ) ; StringGridl.Cells [6, j ]:=s ; StringGridl.Cells [7 , j ]: = floattostr (x [ j - 1]. s_ball ); end //вывод результатов в текстовый файл assignfile(f, \'g:\\student.txt \'); rewrite ( f ); for j : = 1 to i do begin writeln(f,x[j -1]. surname: 20, x [ j - 1]. name : 15 , x[ j -1].residence.city:15, \' , \' , x [ j -1]. residence . street : 15 , x [ j -1].residence.house:4 , \' / \' , x [ j -1].residence .

apartment , \' Sr_ball =\' ,x[j - 1].s \\ _ball :4:1); end; closefile ( f ); end; //процедура работы кнопки «Сортировать по алфавиту» procedure TForml. Button3Click ( Sender : TObject) ; var j , к :integer; temp : student ; f : text file ; //временная переменная для сортировки begin for j := 0 to i -1 do for k:=j+l to I -1 do if x [ j ]. surname > x [к], surname then begin temp: = x [ j ]; x[j]: = x[k]; x[k]: = temp ; end; end; initialization {$\'1 unitl.lrs} end. При запуске программы и вводе сведений окно формы выглядит, как на рис.2. Когда запись введена, следует щёлкнуть по кнопке Запомнить данные, при этом поля ввода очищаются для ввода следующей записи.

После щелчка по кнопке Вывести данные таблица заполняется введёнными сведениями (рис. 3). Рис. 2 Окно формы ввода сведений о студенте Рис. 3. Окно формы вывода сведений о студентах Рис. 4. Окно формы после сортировки записей по алфавиту фамилии После щелчка по кнопке Сортировать по алфавиту нужно повторно щелкнуть по кнопке Вывести данные, чтобы увидеть отсортированный список (рисунок 4). Задания Все таблицы должны содержать не менее десяти записей. 1) Создать структуру с данными по таблице 1: Таблица1. Прирост населения в городах Добавить и вычислить в структуре поле «Средний прирост». Определить количест....