{Ввод данных в запись и сохранение записи в файле}



Program N1053_1;

Uses Crt,zap;

begin

clrscr;

vvod;

write('Нажмите Enter');

readln;

end.





{Выполнение задания}



Program N1053_2;

Uses Crt,zap;

begin

vivod;

readln;

clrscr;

reshenie;

writeln('Для выхода нажмите Enter');

readln;

end.



{Модуль}

UNIT zap;



INTERFACE

Uses crt;

Const fname='izdelia.dat';

Type lands=record

n:array [1..20] of string; {наименование}

k:array [1..20] of integer; {количество}

s:array [1..20] of real; {цена}

end;

Var t:lands;

i:integer;

h: file of lands;





procedure vvod;

procedure vivod;

procedure reshenie;



IMPLEMENTATION



procedure vvod;

begin

t.n[1]:='Предохранители автоматические ПАР-10';

t.n[2]:='Предохранители автоматические ПАР-16';

t.n[3]:='Предохранители автоматические ПАР-25';

t.n[4]:='Розетка 3-хместная РС10-401';

t.n[5]:='Розетка 3-хместная РС10-836';

t.n[6]:='Розетка 3-хместная РА10-402';

t.n[7]:='Розетка 3-хместная РА10-834';

t.n[8]:='Счетчик электроэнергии ЦЭ 2705';

t.n[9]:='Счетчик электроэнергии ЦЭ 2706';

t.n[10]:='Удлинитель У6,3-201';

t.n[11]:='Удлинитель У6,3-304';

t.n[12]:='Удлинитель У10-429';

t.n[13]:='Удлинитель У10-809';

t.n[14]:='Щиток электрический ЩК-1 и ЩК-2';

t.n[15]:='Весы напольные ВБН 130';

t.n[16]:='Весы настольные ВНБ 5';

t.n[17]:='Чаша для весов';

t.n[18]:='Весы-безмен ВБЦ 10';

t.n[19]:='Глазок дверной ГД-3, ГД-4, ГД-5';

t.n[20]:='Конструкторы для детей';





t.k[1]:=25;

t.k[2]:=10;

t.k[3]:=12;

t.k[4]:=15;

t.k[5]:=31;

t.k[6]:=2;

t.k[7]:=7;

t.k[8]:=13;

t.k[9]:=18;

t.k[10]:=30;

t.k[11]:=14;

t.k[12]:=95;

t.k[13]:=28;

t.k[14]:=36;

t.k[15]:=145;

t.k[16]:=64;

t.k[17]:=74;

t.k[18]:=43;

t.k[19]:=75;

t.k[20]:=1;





t.s[1]:=281.7;

t.s[2]:=146.7;

t.s[3]:=390.6;

t.s[4]:=432.6;

t.s[5]:=582.6;

t.s[6]:=341.5;

t.s[7]:=159.5;

t.s[8]:=587;

t.s[9]:=1240;

t.s[10]:=444;

t.s[11]:=825;

t.s[12]:=1267;

t.s[13]:=120;

t.s[14]:=945.1;

t.s[15]:=1700;

t.s[16]:=236;

t.s[17]:=1284;

t.s[18]:=1221;

t.s[19]:=1100;

t.s[20]:=350;











Assign (h,fname);

{$I-}

reset(h);

If Ioresult<>0 then rewrite(h);

{$I+}

write(h,t);



writeln('Данные занесены в файл ',fname);



end;





procedure vivod;

begin

Clrscr;

Assign (h,fname);

Reset (h);

i:=0;

Read(h,t);

Close(h);

writeln;

writeln('----------------------------------------------------------------');

writeln('| ИЗДЕЛИЕ | КОЛИЧЕСТВО | ЦЕНА |');

writeln('----------------------------------------------------------------');

for i:=1 to 20 do begin



gotoxy(1,wherey);

write('| ',t.n[i]);

gotoxy(40,wherey);

write('| ',t.k[i]:5);

gotoxy(53,wherey);

write('| ',t.s[i]:5:1);

gotoxy(64,wherey);

writeln('|');

end;

writeln('----------------------------------------------------------------');

write('Нажмите Enter');

end;



procedure reshenie;

Var f:boolean;

begin

f:=false;

writeln('СПИСОК ИЗДЕЛИЙ, ИЗГОТОВЛЕННЫХ НА СУММУ ОТ 20000 ДО 30000 РУБ.');

for i:=1 to 20 do begin

if (t.s[i]*t.k[i]>20000) and (t.s[i]*t.k[i]<30000) then f:=true;

if f=true then writeln(t.n[i]);

end;

if f=false then writeln('Изделий, удовлетворяющих данному условию нет.');

writeln;

end;





BEGIN



END.

{Разработать программу формирования файла, содержащего сведения о студентах.

Каждый элемент этого файла должен содержать следующие данные: номер группы;

номер в группе по списку; фамилию, имя, отчество; год рождения; оценки за

последнюю сессию.}



Program Pascal;

Uses crt;

Const fname='students.dat';

n=5; {количество предметов за последнию сессию}

Type st=record

n_group:integer; {номер группы}

n_sp:integer; {номер в группе по списку}

fam:string; {фамилия}

im:string; {имя}

ot:string; {отчество}

god_r:integer; {год рождения}

oc:array [1..n] of integer;{оценки за последнию сессию}



end;

Var t:array[1..30] of st;

i,ch,j:integer;

h: file of st;





begin



write('Введите количество студентов в группе: '); readln(ch);





for i:=1 to ch do begin

writeln('Сведения о ' ,i,' студенте');

write('Номер группы: '); readln(t[i].n_group);

write('Номер в группе по списку: '); readln(t[i].n_sp);

write('Фамилия: '); readln(t[i].fam);

write('Имя: '); readln(t[i].im);

write('Отчество: '); readln(t[i].ot);

write('Год рождения: '); readln(t[i].god_r);

writeln('Оценки за последнию сессию: ');

for j:=1 to n do begin

case j of

1:write('Математика: ');

2:write('Физика: ');

3:write('Химия: ');

4:write('Культурология: ');

5:write('История: ');

end;

readln(t[i].oc[j]);

if not ((t[i].oc[j]>0) and (t[i].oc[j]<=5)) then begin

writeln('Неверно введена оценка! Повторите ввод.');

j:=j-1;

end;

end;

writeln;

end;

Assign (h,fname);

{$I-}

reset(h);

If Ioresult<>0 then rewrite(h);

{$I+}

for i:=1 to ch do write(h,t[i]);



close(h);

writeln('Данные занесены в файл ',fname);

readln;



end.