Задача № 24

Написать программу на языке программирования для задания: создать запись, состоящую из полей: фамилия, год рождения. Создать константный массив типа «запись» из пяти строк. Вывести в компонент TMemo фамилию и год рождения людей, которые родились позже указанного года.

Пример решения –

var

Form1: TForm1;

sr: real;

type people=record

fam:string[20];

yahr:integer;

end;

const mas:array[1..5] of people=

((fam:'Иванов'; yahr:1980),

(fam:'Иванова'; yahr:1981),

(fam:'Петров'; yahr:1985),

(fam:'Петрова'; yahr:1988),

(fam:'Сидоров';yahr:1983));

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var i,k:integer;

begin

k:=StrToInt(Edit1.Text);

for i:=1 to 5 do

if mas[i].yahr>k then

Memo1.Lines.Add(mas[i].fam+' '+IntToStr(mas[i].yahr));

end;

end.
Задача № 25

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

Пример решения –

var

Form1: TForm1;

f:file of integer;

b:integer;

a,i:word;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

a:=StrToInt(Edit1.Text);

AssignFile(f,'file.txt');

rewrite(f);

randomize;

Edit2.Text:='';

for i:=1 to a do

begin

b:=random(100)-50;

write(f,b);

Edit2.Text:=Edit2.Text+IntToStr(b)+' ';

end;

CloseFile(f);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

reset(f);

i:=0;

while not eof(f) do

begin

read(f,b);

if b>=0 then i:=i+1;

end;

Label1.Caption:=Label1.Caption+FloatToStr(i*100/a)+'%';

end;

end.
Задача № 26

Написать программу на языке программирования для следующего задания. Записать в файл f последовательного доступа N натуральных чисел. Получить в другом файле последовательного доступа все компоненты файла f, кроме тех, которые кратны К. Вывести полученный файл на экран.

Пример решения –

var

Form1: TForm1;

f1,f2:file of integer;

i,a:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var n:integer;

begin

Randomize;

n:=StrToInt(Edit1.Text);

AssignFile(f1,'file1');

rewrite(f1);

Edit3.Text:='';

for i:=1 to n do

begin

a:=random(100);

write(f1,a);

Edit3.Text:=Edit3.Text+IntToStr(a)+' ';

end;

closeFile(f1);

end;

procedure TForm1.Button2Click(Sender: TObject);

var k:integer;

begin

k:=StrToInt(Edit2.Text);

AssignFile(f1,'file1');

AssignFile(f2,'file2');

rewrite(f2);

reset(f1);

Edit4.Text:='';

while not eof(f1) do

begin

read(f1,a);

if a mod k=0 then

begin

write(f2,a);

Edit4.Text:=Edit4.Text+IntToStr(a)+' ';

end;

end;

closeFile(f1);

closeFile(f2);

end;

end.
Задача № 27

Написать программу на языке программирования для задания: найти объём текстового файла. Один символ занимает один байт. Файл необходимо создать после запуска программы. Данные в файл записываются из поля TMemo.

Пример решения –

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var f:TextFile;

s:string;

n,i:integer;

begin

AssignFile(f,'text.txt');

Rewrite(f);

for i:=0 to Memo1.Lines.Count-1 do

begin

s:=Memo1.Lines.Strings[i];

writeln(f,s);

end;

CloseFile(f);

reset(f);

n:=0;

while not eof(f) do

begin

readln(f,s);

n:=n+length(s);

end;

Label1.Caption:=Размер файла='+IntToStr(n)+' байт';

CloseFile(f);

end;

end.