|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.04.2008, 15:08 | #1 |
Регистрация: 14.04.2008
Сообщений: 6
|
[Pascal]типизированный файл+записи
Имеется типизированный файл, состоящий из записей следующей структуры: ФАМИЛИЯ, ГОД РОЖДЕНИЯ.
Создать новый файл и поместить в него записи о людях, возраст которых не попадает в указанный диапазон. Определить средний возраст людей, записи которых помещены во второй файл. Продублировать вывод на консоли. |
14.04.2008, 19:13 | #2 |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,239
|
Вот моё решение:
Код:
++Me |
14.04.2008, 19:37 | #3 |
Регистрация: 14.04.2008
Сообщений: 6
|
а как нить без этого можно обойтись а то слишком навороченный код...
begin Ext := False; While Ext<>True DO Begin ClrScr; WriteLn('Viberite rezhim!'); WriteLn('1 - Sozdat` fail bazi,'); WriteLn('2 - Sozdat` fail otchet bazi,'); WriteLn('3 - Vihod.'); CASE ReadKey OF '1': CreatFile; '2': ExtractMan; '3',#27: Ext := True; END; |
14.04.2008, 22:53 | #4 |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,239
|
Скажите мне что вас неустраивает в коде. Что именно вы хотите оставить?
То что вы хотите убрать, обычное меню. Если вам надо вызвать ТОЛЬКО запись во второй файл выходных данных, то можно так: Код:
|
30.11.2008, 14:01 | #5 |
Новичок
Джуниор
Регистрация: 30.11.2008
Сообщений: 1
|
Помогите, пожалуйста. Написала прогу, работает не так как надо. Вот сама задача.
Информация о продаже автомобилей содержит следующие данные: марка, цвет, год выпуска, объем двигателя, цену. Написать программу, в которой: обеспечен ввод данных с клавиатуры и сохранение их в типизированном файле; организовать выборку из типизированного файла информации об автомобилях заданной марки и ценой ниже средней, вывод данных о них на экран и сохранение в текстовом файле. моя прога: Program Z5; type{struktura dannix} t_avto=record marka,color:string; val:integer; gv,price:real; end; var marka:t_avto; f:file of t_avto; ft:text; ans:char; n:integer; zm:string; s:real; begin assign(f,'avto.dat'); rewrite(f); repeat {} with marka do begin write('marka ');readln(marka); write('color ');readln(color); write('gv');readln(gv); write('val');readln(val); write('price');read(price); end; write(f,marka); write('vvod okon4en?'); readln(ans); until(ans='Y')or(ans='y'); close(f); write('zadannaya marka ');readln(zm); n:=0;s:=0; reset(f); while not eof(f) do begin read(f,marka); if(marka.marka=zm) then begin n:=n+1; s:=s+marka.price; end; end; s:=s/n; assign(ft,'avto.txt'); rewrite(ft); reset(f); while not eof(f) do begin read(f,marka); with marka do if (marka=zm)and(price<s)then begin writeln(marka,color,gv,val,price); writeln(ft,marka,color,gv,val,price ); end; end; close(ft); end. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Pascal.Записи и файл!!! | W_P | Помощь студентам | 2 | 20.05.2008 22:01 |
задача на записи Pascal | kitty | Помощь студентам | 9 | 18.04.2008 18:14 |
Экспорт записи в *.dbf файл | Galgi | БД в Delphi | 2 | 20.02.2008 07:02 |
Как создать типизированный файл | Kosya4ok | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 16.12.2007 09:29 |
Ошибка при записи в файл txt | Alex_Ku | Помощь студентам | 2 | 28.04.2007 12:15 |