Вот программа для ввода 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'
215
227
Ответы на вопрос:
Сами программы не проверял, если они правильные, то 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. там интерфейс красивый и дружелюбный легко получить.
а какой вопрос в 1?
2 задание
Утренний город - идёт в школу, говорит старт
Спортивная площадка - занимается спортом
считает забитые голы
ночной город - идёт домой, говорит досвидание
Популярно: Информатика
-
Соня234024.03.2022 09:39
-
3554660011.06.2022 22:24
-
CmauJLuk12.04.2020 12:49
-
8cvinka803.03.2023 11:05
-
Ученица5432104.01.2023 04:44
-
имилька08.08.2020 12:02
-
dimahello0717.06.2023 05:30
-
NiKaEmpty25.02.2020 20:32
-
zverok21rus26.11.2020 03:23
-
РауанУченик6класса25.03.2022 12:40