|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.02.2009, 00:13 | #1 |
Новичок
Джуниор
Регистрация: 03.02.2009
Сообщений: 1
|
помогите, пожалуйста, разобраться. record.
нужно протестировать совпадение реквезита"всего продано" и общей суммы реквезита "в том числе". Если встречаются запси, в которых указаные величины не совпадают, то они переносятся во вновь создаваемый файл с внешним именем "met_err"
program metall; type tip1=record data:string[6]; kod:string[6]; vs,ch,pr,vt,s:real; end; var f:file of tip1; d:tip1; name:string; i,max_d:integer; procedure sozd; begin write('ввидите кол-во записей'); readln(max_d); writeln; writeln('заполнение данных в файл*'); writeln; {$i-} assign(f,'metall'); reset(f); seek(f,filesize(f)); {$i+} if ioresult<>0 then rewrite (f); for i:=1 to max_d do begin writeln('-------------',i,'------------------'); write('введите дату'); readln(d.data); write('введите код покупателя'); readln(d.kod); write('введите сколько всего продано'); readln(d.vs); write('введите сколько продано чугуна*'); readln(d.ch); write('введите прокат'); readln(d.pr); write('в том числе других металлов'); readln(d.vt); write(f,d); end; close(f); writeln; writeln('данные сохранены в файл'); readln; end; |
04.02.2009, 13:00 | #2 |
Форумчанин
Регистрация: 11.11.2008
Сообщений: 161
|
как я понял если хотя бы один реквизит в записи не совпадант с ключевым, то эта запись записывается в новый файл
вот держи: Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите пожалуйста разобраться в С++. | radikayupov1710 | Общие вопросы C/C++ | 0 | 30.01.2009 21:16 |
Помогите, пожалуйста разобраться с поиском в БД (Delphi7) | KARUSHEV | Помощь студентам | 10 | 27.01.2009 19:43 |
Помогите, пожалуйста разобраться с калькулятором | KARUSHEV | Помощь студентам | 5 | 14.01.2009 18:04 |
Пожалуйста помогите разобраться) | Atij1 | Общие вопросы C/C++ | 4 | 13.04.2008 20:32 |