3. Алгоритм решения задачи

Чтение исходных данных из файла dan13.txt и запись их в файл res13.res

1. Ввод (st);

2. Вывод (st);

Чтение базы данных из файла данных dan13.dat и запись её в файл res13.res

3. Для i=1, 15

3.1. Ввод (nap_i. nom ,nap_i. naim, nap_i. T, nap_i. TR, nap_i. N, nap_i. L, nap_i. S, nap_i. H);

3.2. Вывод (nap_i. nom ,nap_i. naim,nap_i. T, nap_i. TR, nap_i. N, nap_i. L, nap_i. S, nap_i. H);

4. Вывод (st);

Запись в файл результатов напильников, номер насечки которых равен 2

5. Для i=1, 15

Если nap_i. N=2, то

Вывод(nap_i. nom ,nap_i. naim, nap_i. T, nap_i. TR, nap_i. N, nap_i. L, nap_i. S, nap_i. H).

4. Схема алгоритма

Схема головной программы

Начало

Из файла dan13. txt

Из файла dan13. txt

В файл res13. res

nap_i. nom ,nap_i. naim, nap_i. T, nap_i. TR, nap_i. N, nap_i. L, nap_i. S, nap_i. H

В файл res13. res

да

nap_i. N=2

нет

nap_i. nom ,nap_i. naim, nap_i. T, nap_i. TR, nap_i. N, nap_i. L, nap_i. S, nap_i. H

В файл res13. res

5. Таблица идентификаторов

Наименование	идентификатор
Наименование	nap.nom
Тип	nap.T
Типоразмер	nap.TR
Номер насечки	nap.N
Длина	nap.L
Ширина	nap.S
Толщина	nap.H

6. Файл исходных данных

# Naimenovanie Tip Tiporazmer Nomer_nasecki Dlina Sirina Tolscina

01 Napil'nik 2820 0001 1 100 12 3.0

02 Napil'nik 2820 0002 2 100 12 3.0

03 Napil'nik 2820 0003 3 100 12 3.0

04 Napil'nik 2820 0004 4 100 12 3.0

05 Napil'nik 2820 0005 5 100 12 3.0

06 Napil'nik 2820 0011 1 150 16 4.0

07 Napil'nik 2820 0012 2 150 16 4.0

08 Napil'nik 2820 0013 3 150 16 4.0

09 Napil'nik 2820 0014 4 150 16 4.0

10 Napil'nik 2820 0015 5 150 16 4.0

11 Napil'nik 2820 0016 1 200 21 5.0

12 Napil'nik 2820 0017 2 200 21 5.0

13 Napil'nik 2820 0018 3 200 21 5.0

14 Napil'nik 2820 0021 1 250 25 6.5

15 Napil'nik 2820 0022 2 250 25 6.5

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

program var13;

uses crt;

type

zap=record

nom:integer;

naim:string[11];

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,T,TR,N,L,S,H);

writeln(f2, nom:2,naim, ' ':6, 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, ' ':6, 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.