Есть ответ 👍

Написать программу вычисления стоимости покупки 5-ти товаров

ниже таблица значений и начало решения, нужно доделать до конца!

, кто шарит в информатике!

169
414
Посмотреть ответы 1

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


Код ужасно кривой, но рабочий (надеюсь, принцип понятен): 1. бензин type   benzin=class       public       money: double;       m: integer;           end;   var       b: benzin; begin   b: =new benzin;   b.m: =0;   b.money: =20;   while b.money< 22.0 do   begin   b.money: =b.money*1.02;   b.m: =b.m+1;   writeln('сейчас бензин стоит: ',b.money);   writeln('сейчас месяц прошел: ',b.m);   end;   end. 2. вклад type   biznes=class       public       money: double;       m: integer;       time: integer;           end;   var       b: biznes; begin   b: =new biznes;   writeln('напишите сумму рублей: ');   read(b.money);   writeln('напишите кол-во месяцев: ');   read(b.m);   b.time: =0;   while b.time< b.m do   begin   b.money: =b.money*1.03;   b.time: =b.time+1;   writeln('сейчас сумма: ',b.money);   writeln('прошел месяц: ',b.time); end;       end. 3. тренировки type   sport=class       public       first: double;       day: integer;       first2: double;       first3: double;       first4: double;       first5: double;       first6: double;       first7: double;       answer: double;           end;   var       s: sport; begin   s: =new sport;   s.first: =5;   s.day: =1;     while s.day=1 do   begin   s.first2: =s.first*1.20;   s.day: =s.day+1;   writeln('сейчас бегает: ',s.first2);   writeln('день: ',s.day);   end;   while s.day=2 do   begin   s.first3: =s.first2*1.20;   s.day: =s.day+1;   writeln('сейчас бегает: ',s.first3);   writeln('день: ',s.day);   end;   while s.day=3 do   begin   s.first4: =s.first3*1.20;   s.day: =s.day+1;   writeln('сейчас бегает: ',s.first4);   writeln('день: ',s.day);   end;   while s.day=4 do   begin   s.first5: =s.first4*1.20;   s.day: =s.day+1;   writeln('сейчас бегает: ',s.first5);   writeln('день: ',s.day);   end;   while s.day=5 do   begin   s.first6: =s.first5*1.20;   s.day: =s.day+1;   writeln('сейчас бегает: ',s.first6);   writeln('день: ',s.day);   end;   while s.day=6 do   begin   s.first7: =s.first6*1.20;   s.day: =s.day+1;   writeln('сейчас бегает: ',s.first7);   writeln('день: ',s.day);   end;   while s.day=7 do   begin   s.answer: =s.first+s.first2+s.first3+s.first4+s.first5+s.first6+s.first7;   s.day: =s.day+1;   writeln('ответ: ',s.answer);   end;       end.

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

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

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

Caktus Image

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

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

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

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

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

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

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

GTP TOP NEWS