Работа со строками и записями

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

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;
	x : array [ 1.. 100 ] of student;
begin
	Ivanov. group := ’Ф08 ’;
	Ivanov. residense. city := ’Киев ’;
	x [ 1 ]. estimation [ 5 ] : = 3; //у первого студента 5-я оценка =3
...

with stud do
begin
	with residence do
	begin
		city := ’Донецк ’;
		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;

unit Unit1;
{$mode objfpc}{$H+}
interface
uses
	Classes, SysUtils, LResources, Forms, Controls, Graphics,
	Dialogs, StdCtrls, Grids;
type
	{ TForm1 }
	TForm1 = class (TForm)
		Button1 : TButton;
		Button2 : TButton;
		Button3 : TButton;
		Edit1 : 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;
		StringGrid1 : TStringGrid;
		//Процедура-обработчик кнопки "Запомнить данные"
		procedure Button1Click ( 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
	Form1 : TForm1;
//массив переменных типа "студент"
	x : array [ 0.. 100 ] of student;
	//переменная для подсчета количества студентов
i : integer;
implementation
{ TForm1 }
//процедура инициализации формы
procedure TForm1. FormCreate ( Sender : TObject );
begin
	i : = 0; //количество студентов вначале равно 0
end;
//процедура работы кнопки "Запомнить данные"
procedure TForm1. Button1Click ( Sender : TObject );
var sum, j : integer;
begin
	//чтение данных с формы
		x [ i ]. surname := Edit1. Text;
		x [ i ]. name:= Edit2. Text;
		x [ i ]. group := Edit3. Text;
		x [ i ]. residence. city := Edit5. Text;
		x [ i ]. residence. street := Edit6. Text;
		x [ i ]. residence. house := StrToInt ( Edit7. Text );
		x [ i ]. residence. apartment := StrToInt ( Edit8. Text );
		x [ i ]. estimation [ 1 ] : = strToInt ( Edit4. Text );
		x [ i ]. estimation [ 2 ] : = strToInt ( Edit9. Text );
		x [ i ]. estimation [ 3 ] : = strToInt ( Edit10. Text );
		x [ i ]. estimation [ 4 ] : = strToInt ( Edit11. Text );
		x [ i ]. estimation [ 5 ] : = strToInt ( Edit12. Text );
	//расчет среднего балла студента
		sum : = 0;
		for j :=1 to 5 do
		sum:=sum +x [ i ]. 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 := ’ ’; Е
		d i t 9. Text := ’ ’; Edit10. Text := ’ ’;
		Edit11. Text := ’ ’; Edit12. Text := ’ ’;
end;
//процедура работы кнопки "Вывести данные"
procedure TForm1. Button2Click ( Sender : TObject );
var f : textfile;
	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;
		StringGrid1.Cells [ 2, j ] : = x [ j - 1 ]. name;
		StringGrid1.Cells [ 3, j ] : = x [ j - 1 ]. group;
		StringGrid1.Cells [ 4, j ] : = x [ j - 1 ]. residence.city;
		StringGrid1.Cells [ 5, j ] : = x [ j - 1 ]. residence.street;
		s := inttostr ( x [ j - 1 ]. residence. house)+ ’ / ’+
			inttostr ( x [ j - 1 ]. residence. apartment );
		StringGrid1.Cells [ 6, j ] : = s;
		StringGrid1.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 TForm1. Button3Click ( Sender : TObject );
var j, k : integer;
	temp : student;
	f : textfile; //временная переменная для сортировки
begin
	for j := 0 to i -1 do
		for k:= j +1 to i -1 do
			if x [ j ]. surname > x [ k ]. surname then
			begin
				temp:=x [ j ];
				x [ j ] : = x [ k ];
				x [ k ] : = temp;
			end;
end;
initialization
{$I unit1.lrs}
end.