|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.06.2011, 21:17 | #1 |
Пользователь
Регистрация: 12.12.2010
Сообщений: 12
|
файлы
1)Обновить содержимое поля "ФИО водителя" в заданных записях
2)Напечатать две записи, в которых поле "расход топлива" имеет минимальное значение, а "выручка в руб. "-максимальное значение. Помогите пожалуйста со вторым заданием процедура min1 . program ggg; uses crt; Type r=record tpark,fio:string[30]; rashod,lave: integer; nomer:string[8]; end; var f1:file of r; p:r; n,i,q:integer; a:array [1..3] of r; procedure work; var num: integer; begin write('Сколько фамилий вам нужно обновить '); read(n); reset ( f1); for i:=1 to n do begin write ('номер= '); readln (num); seek (f1, num-1); read (f1,a[i]); write ('fio='); writeln (a[i].fio); seek (f1,filepos(f1)-1); writeln (' Введите новую фамилию' ); readln (a[i].fio); write (f1,a[i]); end; close (f1); reset(f1); for i:=1 to 3 do begin read (f1,a[i]); with a[i] do begin writeln(fio); end; end; close (f1); readkey; end; procedure min1; var min:integer; begin reset(f1); begin for i:=1 to 3 do begin if a[i].rashod < a[min].rashod then begin min:=min ; writeln(min); end; end; end; close (f1); end; begin textcolor(lightgreen); clrscr; Assign(f1,'D:\myfile.txt'); rewrite(f1); n:=0; gotoxy(2,2); Write('Таксопарк'); gotoxy(14,2); write('номер авто'); gotoxy(26,2); write('Ф.И.О водителя'); gotoxy(46,2); write('расход топлива'); gotoxy(62,2); write('прибыль'); for i:=1 to 3 do begin with a[i] do begin n:=n+1; gotoxy(3,4*n+1); readln(tpark); gotoxy(15,4*n+1); readln(nomer); gotoxy(26,4*n+1); readln(fio); gotoxy(46,4*n+1); readln(rashod); gotoxy(62,4*n+1); readln(lave); end; write(f1,a[i]); end; close(f1); reset(f1); for i:=1 to 3 do begin read (f1,a[i]); with a[i] do begin writeln(fio); end; end; close (f1); work; min1; readkey; end. Последний раз редактировалось Александр16; 13.06.2011 в 21:19. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Файлы (текстовые файлы) | Finn4ik | Помощь студентам | 0 | 25.04.2011 21:42 |
Не сохраняет файлы (Создает файлы пустышки) | Rock231 | Помощь студентам | 2 | 25.12.2010 12:31 |
C#Файлы | Vegas | Общие вопросы C/C++ | 0 | 02.06.2010 22:40 |
Файлы данных.Типизированные файлы. | вылка | Помощь студентам | 6 | 17.05.2010 15:42 |
два вредных вопроса:про асю и прикриплёные файлы файлы | steck | Свободное общение | 3 | 17.06.2007 14:53 |