Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 09.04.2011, 16:41   #1 (permalink)
Fusion
Новичок
 
Регистрация: 22.03.2011
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Паскаль. Как создать процедуру с БЗ?

Мне нужно: В файле типа 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;
................
Fusion вне форума   Ответить с цитированием

Старый 09.04.2011, 16:41
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Скорее всего информация которая содержится по данным ссылкам будет вам полезна

Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл
Двумерные массивы через процедуру
Паскаль. создать объект,в кот.одна функция рисует рисунок в заданной координате
Создать вирус

Старый 10.04.2011, 00:15   #2 (permalink)
MrSTEP
一步一步地会到目的
 
Аватар для MrSTEP
 
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,920
Записей в дневнике: 10
Сказал(а) спасибо: 139
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28107
По умолчанию

А дальше аналогичным методом читаем записи из файла, и проверяем значение поля датаприема на равенство определенной дате. Это проще, попытайтесь реализовать.
MrSTEP вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 11:51.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.