|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
09.04.2011, 16:41 | #1 (permalink) |
Новичок
Регистрация: 22.03.2011
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Паскаль. Как создать процедуру с БЗ?
• Сведений о приборах, год выпуска которых меньше заданного; • Информации о количестве приборов одного типа. Начало сделал, вроде верно, а теперь нужно вот написать процедуру для получения Сведений о приборах, год выпуска которых меньше заданного и Информации о количестве приборов одного типа. Помогите с чем сможете Заранее большое спасибо П.с. там меню ещё должно быть, но это не важно, мне самое главное создать эти процедуры...меню уж написать смогу)) ----------------------------- 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; ................ |
09.04.2011, 16:41 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Скорее всего информация которая содержится по данным ссылкам будет вам полезна Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл Двумерные массивы через процедуру Паскаль. создать объект,в кот.одна функция рисует рисунок в заданной координате Создать вирус |
10.04.2011, 00:15 | #2 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
А дальше аналогичным методом читаем записи из файла, и проверяем значение поля датаприема на равенство определенной дате. Это проще, попытайтесь реализовать.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|