Паскаль. Как создать процедуру с БЗ?
Мне нужно: В файле типа RECORD хранится информация о поступивших в ремонт бытовых приборах: ФИО клиента, тип бытового прибора, год выпуска, страховая стоимость прибора, наименование дефекта, дата приемки в ремонт. Составить программу для получения:
• Сведений о приборах, год выпуска которых меньше заданного; • Информации о количестве приборов одного типа. Начало сделал, вроде верно, а теперь нужно вот написать процедуру для получения Сведений о приборах, год выпуска которых меньше заданного и Информации о количестве приборов одного типа. Помогите с чем сможете Заранее большое спасибо П.с. там меню ещё должно быть, но это не важно, мне самое главное создать эти процедуры...меню уж написать смогу)) ----------------------------- PROGRAM MENU; USES CRT; CONST M:ARRAY[1..3] OF STRING=('ПУНКТ1','ПУНКТ2','ПУНКТ3'); ad:string='my.dat'; k=3; type zap= record fio:string[45]; tippribora:string; godvupyska:string; straxovayastoimoist:integer; deffect:string; datapriema:real; end; spis=array[1..k] of zap; VAR st:spis; fil:file of zap; b:byte; I,A,n:INTEGER; Procedure za(var st:spis); VAR i: byte; BEGIN CLRScr; assign(fil,ad); rewrite(fil); for i:=1 to k do begin with st[i] do begin writeln('Vvedite FIO: '); Readln(fio); Write('tip pribora: '); readln(tippribora); Write('Vvedite god vupiska '); readln(godvupyska); Write('Straxovayz stoimost pribora: '); readln(straxovayastoimoist); writeln('Vvedite deffect'); readln(deffect); writeln('Data priema:'); readln(datapriema) end; write(fil,st[i]); close(fil); Reset(fil); readln; end; END; ................ |
А дальше аналогичным методом читаем записи из файла, и проверяем значение поля датаприема на равенство определенной дате. Это проще, попытайтесь реализовать.
|
Часовой пояс GMT +4, время: 19:43. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.