Работа с файлами

[coreyfox]

Помогите,пожалуйста. С пунктом а проблем не возникло, а вот b.c.d.e даже предположения нет как сделать.
Тем, кто отзовется и поможет, большое спасибо.
1. Сведения о деталях, хранящихся на складе, содержат следующие атрибуты: название, количество, стоимость одной детали. Составить программы, решающие следующие задачи:
a) Заполнить файл с информацией о деталях на складе:
b) Вычислить общую стоимость деталей:
c) Выяснить, какие детали имеются в наибольшем количестве, а какие – в наименьшем:
d) Вывести информацию о наличии на складе деталей данного типа и их количестве:
e) Внести изменения в файл после выдачи со склада определенного количества данного вида деталей. Если какой – то тип деталей выбран со склада, то уничтожить запись о нем в файле

[Stilet]

И как же выглядит код, решающий "а"?

[coreyfox]

Type Stud=Record
		Nz: String [30];
		Kl,Zn:integer;
	      End;
Var 	Fstud: File Of stud;
	S: Stud;
	N,I: Byte;
Begin
	Assign(Fstud, 'FM.DAT'); Rewrite(Fstud);
	Write('Количество деталей на складе ');
	Readln(N);
For I:=1 To N Do
	Begin
	    	Write(I, ' деталь. Название:'); Readln(S.Nz);
		Write('Количество:'); Readln(S.Kl);
		Write('Цена: '); Readln(S.Zn);
		Write(Fstud,S);
	End;
	Writeln('Формирование файла закончено !');
	Close(Fstud);
End.

[Stilet]

Ага.
Ладно:

b) Вычислить общую стоимость деталей:

function price:integer;;
begin
	Assign(Fstud, 'FM.DAT'); Reset(Fstud);price:=0;
while not eof(FStud) Do
	Begin
		read(Fstud,S); price:=price+s.zn;
	End;
	Close(Fstud);
end;

c) Выяснить, какие детали имеются в наибольшем количестве, а какие – в наименьшем:

procedure dets; var min,max:integer; smin,smax:string;
begin
	Assign(Fstud, 'FM.DAT'); Reset(Fstud);
min:=999999;max:=0;
while not eof(FStud) Do
	Begin
 read(Fstud,S); 
 if(min>s.kl) then begin min:=s.kl; smin:=s.nz; end;
 if(max<s.kl) then begin max:=s.kl; smax:=s.nz; end;
	End;
	Close(Fstud);
writeln('Минимум: ',smin);
writeln('Максимум: ',smax);
end;

d) Вывести информацию о наличии на складе деталей данного типа и их количестве:

procedure detsfind(det:string); 
begin
	Assign(Fstud, 'FM.DAT'); Reset(Fstud);
while not eof(FStud) Do
	Begin
 read(Fstud,S); 
 if(det=s.nz) then writeln('Кол-во: ',s.kl,' цена: ', s.zn);
	End;
	Close(Fstud);
end;

Ну? Понятно как делать?

[ViktorR]

b) Вычислить общую стоимость деталей:

var Sum : integer; {при большом кол-ве деталей и их большой цене может быть переполнение}

...
Sum := 0;
while NOT Eof(Fstud) do begin
   read(Fstud, S);
   Sum := Sum + S.Kl * S.Zn;
end;

c) Выяснить, какие детали имеются в наибольшем количестве, а какие – в наименьшем:
В цикле выше или в аналогичном цикле ищем max и min.

read(Fstud, S);
min := S.Kl; {первый элемент записи содержит нач. значение max}
max := S.Kl; {и min}
while NOT Eof(Fstud) do begin
   read(Fstud, S);
   If max < S.Kl then max := S.Kl;
   If min > S.Kl then min := S.Kl;
end;

...
И так далее ...


Как-то так, ...

Stilet
а)

 ... price:=price+s.zn;...

Простите. но там требуется "Вычислить общую стоимость деталей:".
А S.Zn - цена одной детали.

б) Для поиска мин и мак все же лучше использовать готовые данные.


Ну это так ...


Как-то так, ...

[Stilet]

Простите. но там требуется

Справедливо. Согласен.
Посмотрим поймет ли это автор темы.

б) Для поиска мин и мак все же лучше использовать готовые данные.

Всмысле?

[ViktorR]

Там, в моем примере ...

Если уже есть инициированный массив, то первый его элемент и max и min.
Далее все просматривается в цикле. А цикл инициируется со следующего элемента.
Если чтение из файла, то читаем первую запись и ее значения используем как max и min и далее в цикле ...
Все равно читать все записи надо.


Как-то так, ...