Регистрация Спросить otvet5GPT
kris334334kris334334
13.09.2021 15:38
Информатика
Есть ответ 👍

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

183
398
Посмотреть ответы 2

Ответы на вопрос:

mahomaev
mahomaev
4,6(59 оценок)
Сами программы не проверял, если они правильные, то 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. там   интерфейс красивый и дружелюбный легко получить.
Q666Princess666Q
Q666Princess666Q
4,7(28 оценок)
Var sum,i,n : integer; begin sum : = 0; for i : = 1 to 5 do begin readln(n); if (n mod 10 = 4) and (n mod 2 = 0) then sum : = sum + i; end; writeln (sum); end.

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

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

Подпишись на наш телеграмм канал

GTP TOP NEWS