М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Neder
Neder
13.07.2022 20:53 •  Информатика

Написати программу на С++ яка буде виконувати задачу. У певному році (назвемо його умовно першим) на ділянці в 100 гектарів середня врожайність ячменю склала 20 центнерів з гектару. Після цього щороку площа ділянки збільшувалася на 5%, а середня врожайність - на 2%.
визначити:
а) врожайність на другий, третій, ..., восьмий роки;
б) площа ділянки в четвертий, п'ятий, ..., сьомий роки;
в) сумарний врожай за перші шість років

👇
Ответ:
irinaa10
irinaa10
13.07.2022

Відповідь:

C++ code:

#include <iostream>

int main(){

setlocale(LC_ALL,"Ukrainian");

double gekt = 100,cent = 20,temp;

for(int i = 1; i <= 8; i++){

 std::cout << i << "-ий рiк" << std::endl;

 std::cout << "Дiлянка " << gekt << " гектарiв" << std::endl;

 std::cout << "Середня врожайнiсть " << cent << " центнерiв" << std::endl;

 temp = (gekt * 5)/ 100;

 gekt += temp;

 temp = (cent * 2) / 100;

 cent += temp;

 

}

return 0;

}

4,8(18 оценок)
Открыть все ответы
Ответ:
MrKemik
MrKemik
13.07.2022
Unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 if OpenDialog1.Execute then
 begin
  Image1.Picture.LoadFromFile(OpenDialog1.FileName);
  Image1.Stretch:=true;
  Image1.Left:=form1.Width div 2-image1.Width div 2;
  Image1.top:=form1.Height div 2-image1.Height div 2;
 end
end;

end.
4,4(7 оценок)
Ответ:
mariya191215
mariya191215
13.07.2022
// PascalABC.NET 3.3, сборка 1542 от 05.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var c1:=ReadlnChar('Введите первый символ:');
  var c2:=ReadlnChar('Введите второй символ:');
  Print(c1);
  if c1>c2 then Print('>')
  else
    if c1=c2 then Print('=')
    else print('<');
  Println(c2)
end.

Примеры
Введите первый символ: a
Введите второй символ: b
a < b

Введите первый символ: d
Введите второй символ: d
d = d

Введите первый символ: z
Введите второй символ: m
z > m

Введите первый символ: q
Введите второй символ: Q
q > Q
4,4(77 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ