justify"> Читання вихідних даних з файлу dan14.txt і запис їх у файл res14.res
Введення (st);
Висновок (st);
Читання бази даних з файлу даних dan14.dat і запис її в файл res14.res
3. Для i = 1, 15
.1. Введення (napi. naim, napi. Nom, napi. D, napi. S, napi. T);
.2. Висновок (napi. naim, napi. Nom, napi. D, napi. S, napi. T);
4. Висновок (st);
Запис у файл результатів напилків, номер насічки яких дорівнює 2
. Для i = 1, 15
Якщо napi. nom = 2, то
Висновок (napi. naim, napi. nom, napi. d, napi. s, napi. t).
4. СХЕМА АЛГОРИТМУ
Схема головний програми
5. ТАБЛИЦЯ ідентифікатор
Наіменованіефізіческій смислідентіфікаторНомер насечкиNap.nomNap.nomДлинаNap.dNap.dШиринаNap.sNap.sТолщинаNap.tNap.t
6. Фото ВИХІДНИХ ДАНИХ
№ Найменування Обозн.стандарта Тип Типорозмір Номер насічки Довжина Ширина Товщина
Напилок ГОСТ 1465-80 2820 0001 1 100 12 3
Напилок ГОСТ 1465-80 2820 0002 2 100 12 3
Напилок ГОСТ 1465-80 2820 0003 3 100 12 3
Напилок ГОСТ 1465-80 2820 0004 4 100 12 3
Напилок ГОСТ 1465-80 2820 0005 5 100 12 3
Напилок ГОСТ 1465-80 2820 0011 1 150 16 4
Напилок ГОСТ 1465-80 2820 0012 2 150 16 4
Напилок ГОСТ 1465-80 2820 0013 3 150 16 4
Напилок ГОСТ 1465-80 2820 0014 4 150 16 4
Напилок ГОСТ 1465-80 2820 0015 5 150 16 4
Напилок ГОСТ 1465-80 2820 0016 1 200 21 5
Напилок ГОСТ 1465-80 2820 0017 2 200 21 5
Напилок ГОСТ 1465-80 2820 0018 3 200 21 5
Напилок ГОСТ 1465-80 2820 0021 1250 25 6.5
Напилок ГОСТ 1465-80 2820 0022 2250 25 6.5
7. ТЕКСТ ПРОГРАМИ
kyr14; crt; zap = record: string [45];, d, s, t: real;; nap: array [1 .. 20] of Kyrsovoi proekt '); (f2,' Razrabotka bazi dannix.Napilniki ploskie '); (f2,' Variant 14 '); (f2,' Isxodnaia baza dannix '); (f2, st); i: = 1 to 15 donap [i] do begin (f1, naim, nom, d, s, t); (f2, naim, '', nom: 1:0, '': 9, d: 3:0, '', s: 4 : 1, '', t: 3:1);; (f2, 'Napilniki, nomer nase4ki kotorix raven 2'); (f2, st); i: = 1 to 15 donap [i] donom = 2 then w...
