7. Текст программы

program var13;

uses crt;

type

zap=record

nom:integer;

naim:string[11];

obozn:string[17];

T, TR, N, L, S:integer;

H:real;

end;

var nap:array[1..16] of zap;

i, n:integer;

f1,f2:text;

st:string;

begin

clrscr;

assign (f1, 'dan13.dat');

assign (f2, 'rez13.rez');

reset (f1);

rewrite (f2);

n:=15;

readln(f1,st);

writeln (f2,' ':15,'Kursovoi proekt');

writeln (f2,' ':15, 'Razrabotka baz dannih.Napilniki ploskie');

writeln (f2,' ':20, 'Variant 13');

writeln(f2);

writeln (f2,st);

for i:=1 to n do

with nap[i] do

begin

readln(f1, nom,naim,obozn,T,TR,N,L,S,H);

writeln(f2, nom:2,naim, obozn,' ':4, T,' ':3,

TR:2,' ':9,N,' ':13,L,' ':5,S,' ':5,H:1:1);

end;

writeln('Zapisano');

close(f1);

writeln(f2);

writeln(f2, ' Napilniki, nomer nasechki kotorih raven 2');

writeln(f2);

writeln(f2,st);

for i:=1 to n do

with nap[i] do

begin

if N=2 then

writeln(f2, nom:2,naim, obozn,' ':4, T,' ':3,

TR:2,' ':9,N,' ':13,L,' ':5,S,' ':5,H:1:1);

end;

writeln(f2, 'Rabota zakonchena');

close(f2);

Repeat Until Keypressed

end.

8. Результаты работы программы

Kursovoi proekt

Razrabotka baz dannih.Napilniki ploskie

Variant 13

# Naimenovanie Obozn.standarta Tip Tiporazmer Nomer_nasecki Dlina Sirina Tolscina

1 Napil'nik GOST 1465-80 2820 1 1 100 12 3.0

2 Napil'nik GOST 1465-80 2820 2 2 100 12 3.0

3 Napil'nik GOST 1465-80 2820 3 3 100 12 3.0

4 Napil'nik GOST 1465-80 2820 4 4 100 12 3.0

5 Napil'nik GOST 1465-80 2820 5 5 100 12 3.0

6 Napil'nik GOST 1465-80 2820 11 1 150 16 4.0

7 Napil'nik GOST 1465-80 2820 12 2 150 16 4.0

8 Napil'nik GOST 1465-80 2820 13 3 150 16 4.0

9 Napil'nik GOST 1465-80 2820 14 4 150 16 4.0

10 Napil'nik GOST 1465-80 2820 15 5 150 16 4.0

11 Napil'nik GOST 1465-80 2820 16 1 200 21 5.0

12 Napil'nik GOST 1465-80 2820 17 2 200 21 5.0

13 Napil'nik GOST 1465-80 2820 18 3 200 21 5.0

14 Napil'nik GOST 1465-80 2820 21 1 250 25 6.5

15 Napil'nik GOST 1465-80 2820 22 2 250 25 6.5

Napilniki, nomer nasechki kotorih raven 2

# Naimenovanie Obozn.standarta Tip Tiporazmer Nomer_nasecki Dlina Sirina Tolscina

2 Napil'nik GOST 1465-80 2820 2 2 100 12 3.0

7 Napil'nik GOST 1465-80 2820 12 2 150 16 4.0

12 Napil'nik GOST 1465-80 2820 17 2 200 21 5.0

15 Napil'nik GOST 1465-80 2820 22 2 250 25 6.5

Rabota zakonchena