Question

Напишите программы в Паскале!!!_ 2. Расход бензина на 100 км пути в среднем составляет 9 л. Определить стоимость бензина для расстояния 200 км, 400 км, 600 км, 800 км, 1000 км, если цена одного литра равна х руб. 3. Цена 1 кг сыра К рублей. Распечатать таблицу стоимости порций сыра по 100 г, 200 г, 300 г, 400 г, 500 г, 600 г, 700 г.

Answer 1

Я думаю все правильно

Answer 2

Программа на Паскале для задачи 2:

program GasolineCost;

var
  distance, consumption, pricePerLiter: real;
  cost: real;

begin
  consumption := 9; // расход бензина на 100 км
  pricePerLiter := 45; // цена одного литра бензина в рублях
  
  // Вычисляем стоимость бензина для различных расстояний
  for distance := 200 to 1000 step 200 do
  begin
    cost := (distance / 100) * consumption * pricePerLiter;
    writeln('Стоимость бензина для расстояния ', distance:4:0, ' км составляет ', cost:4:2, ' руб.');
  end;
end.

Программа на Паскале для задачи 3:

program CheeseCost;

var
  weight, pricePerKg: real;
  cost: real;

begin
  pricePerKg := 300; // цена 1 кг сыра в рублях
  
  // Вычисляем стоимость порций сыра по 100 г, 200 г, ..., 700 г
  for weight := 100 to 700 step 100 do
  begin
    cost := (weight / 1000) * pricePerKg;
    writeln('Стоимость порции сыра весом ', weight:3:0, ' г составляет ', cost:4:2, ' руб.');
  end;
end.

Эти программы решают задачи по вычислению стоимости бензина для различных расстояний и стоимости порций сыра по разным весам.

Answer 3

Программа для расчета стоимости бензина на разные расстояния

Для решения данной задачи, напишем программу на языке Паскаль. В программе мы будем использовать переменные для хранения данных о расходе бензина на 100 км пути и цене одного литра бензина. Затем, с помощью цикла, будем расчитывать стоимость бензина для заданных расстояний.

program CalculateFuelCost;

var
  fuelConsumption: real; // Расход бензина на 100 км
  pricePerLiter: real; // Цена одного литра бензина
  distance: array[1..5] of integer; // Массив расстояний
  i: integer; // Счетчик цикла

begin
  // Ввод данных
  writeln('Введите расход бензина на 100 км:');
  readln(fuelConsumption);
  
  writeln('Введите цену одного литра бензина:');
  readln(pricePerLiter);
  
  // Заполнение массива расстояний
  distance[1] := 200;
  distance[2] := 400;
  distance[3] := 600;
  distance[4] := 800;
  distance[5] := 1000;
  
  // Расчет стоимости бензина для каждого расстояния
  for i := 1 to 5 do
  begin
    writeln('Для расстояния ', distance[i], ' км стоимость бензина составит ', (fuelConsumption / 100) * distance[i] * pricePerLiter, ' руб.');
  end;
  
  readln;
end.

Программа для расчета стоимости порций сыра

Для решения данной задачи, напишем программу на языке Паскаль. В программе мы будем использовать переменные для хранения данных о цене 1 кг сыра. Затем, с помощью цикла, будем расчитывать стоимость порций сыра для заданных весов.

program CalculateCheeseCost;

var
  cheesePricePerKg: real; // Цена 1 кг сыра
  weight: array[1..7] of integer; // Массив весов порций
  i: integer; // Счетчик цикла

begin
  // Ввод данных
  writeln('Введите цену 1 кг сыра:');
  readln(cheesePricePerKg);
  
  // Заполнение массива весов порций
  weight[1] := 100;
  weight[2] := 200;
  weight[3] := 300;
  weight[4] := 400;
  weight[5] := 500;
  weight[6] := 600;
  weight[7] := 700;
  
  // Расчет стоимости порций сыра для каждого веса
  for i := 1 to 7 do
  begin
    writeln('Для порции сыра весом ', weight[i], ' г стоимость составит ', (weight[i] / 1000) * cheesePricePerKg, ' руб.');
  end;
  
  readln;
end.

Примечание: В обоих программах предполагается, что пользователь будет вводить данные с клавиатуры. Если необходимо, можно добавить дополнительные проверки на корректность введенных данных.