В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История

Вот программа для ввода 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'

Показать ответ
Ответ:
rishanaHD
rishanaHD
07.07.2020 08:45
Сами программы не проверял, если они правильные, то
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. Там  интерфейс красивый и дружелюбный легко получить.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота