Question

Вот программа для ввода
program zak; uses crt;
type danie=record
litri:string;
cislo:string;
end;
DanieVodi=file of danie;
var DV:DanieVodi;
D:danie;
i,n:integer;
begin clrscr;
assign(DV,'d:azaz.txt');
rewrite(DV);
for i:=1 to 32 do
begin
writeln('BBeDuTe 4ucJlo u Mec9lTc oTTDeJl9l9l To4Kou'); readln(D.cislo);
writeln('BBeDuTe KoJlu4ecTBo IIoTpa4eHou BoDbl');
readln(D.litri);
write(DV,D);
end;
close(DV);
readln;
end.


после того как ввёл все данные написал программу для считывание с файла
uses crt;
type danie=record
litri:string;
cislo:string;
end;
DannieVodi=file of danie;
var DV:DannieVodi;
D:danie;
i,n:integer;
cislo1:string;
begin clrscr;
assign(DV,'d:azaz.txt');
reset(DV);
write('BBeDuTe 4ucJlo u Mec9lTc oTTDeJl9l9l To4Kou:');
read(cislo1);
while not eof(dv) do
begin
read(DV,D);
if cislo1=D.cislo then writeln('6blJlo IIoTpa4eHo "',D.litri,'" JluTpoB BoDbi');
end;
close(DV);
readln;
end.

помогите добавить в эту программу:
1)что бы выводило максимальное и минимальное количество потраченной воды за всё время
2) можно ли добавить repeat, то есть когда запрашивает ввести число, что бы запрашивало до тех пор пока не введём слово 'stop'

Answer 1

Сами программы не проверял, если они правильные, то
2)
program zak; uses crt;
type danie=record
litri:string;
cislo:string;
end;
DanieVodi=file of danie;
var DV:DanieVodi;
D:danie;
i,n:integer;
begin clrscr;
assign(DV,'d:azaz.txt');
rewrite(DV);
repeat
  writeln('BBeDuTe 4ucJlo u Mec9lTc oTTDeJl9l9l To4Kou'); readln(D.cislo);
  writeln('BBeDuTe KoJlu4ecTBo IIoTpa4eHou BoDbl');
  readln(D.litri);
  if D<>'stop' then write(DV,D);
  until D='stop';
close(DV);
readln;
end.

1)
uses crt;
type danie=record
litri:string;
cislo:string;
max,min:real;
end;
DannieVodi=file of danie;
var DV:DannieVodi;
D:danie;
i,n:integer;
cislo1:string;
begin clrscr;
assign(DV,'d:azaz.txt');
reset(DV);
write('BBeDuTe 4ucJlo u Mec9lTc oTTDeJl9l9l To4Kou:');
read(cislo1);
while not eof(dv) do
begin
read(DV,D);

if min='0' then min:=StrToFloat(D.cislo);
if StrToFloat(D.cislo)<min then min:=StrToFloat(D.cislo);
if StrToFloat(D.cislo)>max then max:=StrToFloat(D.cislo);

if cislo1=D.cislo then
writeln('6blJlo IIoTpa4eHo "',D.litri,'" JluTpoB BoDbi');
end;

writeln('min=',min);
wtiteln('max=',max);

close(DV);
readln;
end.

Если это не учебная задача, то лучше сделать ее в Access. Там  интерфейс красивый и дружелюбный легко получить.

Answer 2

ибо тебе огромное даже не знаю как отблогодорить, ты мне очень помог

Answer 3

спасибо*

Answer 4

Ага, удачи))

Answer 5

спасибо еще раз огромное!! выручил