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

Для решения первой задачи необходимо ввести переменные, которые будут хранить максимальное и минимальное количество потраченной воды за все время, и обновлять их значения при каждом считывании записи из файла.

Для второй задачи можно использовать цикл repeat-until для повторного ввода числа, пока не будет введено слово "stop". Вот как может выглядеть измененная программа:

arduinoCopy code
uses crt;

type
  danie = record
    litri: string;
    cislo: string;
  end;
  DannieVodi = file of danie;

var
  DV: DannieVodi;
  D: danie;
  i, n: integer;
  cislo1, maxLitri, minLitri: string;

begin
  clrscr;
  assign(DV, 'd:\azaz.txt');
  reset(DV);
  
  maxLitri := '0';
  minLitri := '99999999';
  
  repeat
    write('BBeDuTe 4ucJlo u Mec9lTc oTTDeJl9l9l To4Kou (vvedite "stop" dlya vyhoda): ');
    readln(cislo1);
    while not eof(DV) do
    begin
      read(DV, D);
      if cislo1 = D.cislo then
      begin
        writeln('6blJlo IIoTpa4eHo "', D.litri, '" JluTpoB BoDbi');
        if StrToInt(D.litri) > StrToInt(maxLitri) then
          maxLitri := D.litri;
        if StrToInt(D.litri) < StrToInt(minLitri) then
          minLitri := D.litri;
      end;
    end;
    reset(DV);
  until cislo1 = 'stop';
  
  writeln('Naibolshee kolichestvo potrachennoi vody: ', maxLitri);
  writeln('Naimenshee kolichestvo potrachennoi vody: ', minLitri);

  close(DV);
  readln;
end.

Обратите внимание, что переменные maxLitri и minLitri инициализируются начальными значениями до начала цикла по чтению записей из файла. И также внутри цикла по чтению записей из файла происходит проверка на то, что количество потраченной воды в данной записи больше или меньше текущего максимального/минимального значения и, если да, то значения переменных обновляются.