Question

Известно что а кг груш стоит x руб. Составьте программу вычисляющую цену z кг груш. Значения переменных a, x, z ввести с клавиатуры (паскаль 7 класс) даны а, b, c. Напишите программу для вычисления значения арифметичесеого выраженияx=3c²- b³ :c²+4( паскаль, 7 класс) ​

Answer 1

Задание 1:

program prog;

var x,a,z:real;

begin

  write('Введите а кг груш и х стоимость этого количества (через пробел): '); readln(a, x);

  write('Введите z кг груш, стоимость которой надо посчитать: '); readln(z);

  write('Стоимость ', z:0:1, ' кг груш равна ', z*x/a:0:2);

end.

Задание 2:

У вас скорее всего ошибка в задании, т.к. на входе есть переменная a, а в формуле она отсутствует. Я предположил, что она на первом месте стоит.

program prog;

var a,b,c:real;

begin

  write('Введите a, b и c черезпробел: '); readln(a,b,c);

  write('3a²-b³:c²+4 = ', 3*sqr(a)-exp(3*ln(b))/sqr(c)+4:0:2);

end.

Answer 2

Для написания программы на Pascal, которая вычислит цену z кг груш, учитывая, что a кг груш стоит x рублей, вы можете использовать следующий код:

pascalCopy code
program CalculatePrice;
var
  a, x, z: real; // Используем real для работы с дробными числами

begin
  // Ввод данных с клавиатуры
  writeln('Введите количество килограмм груш (a): ');
  readln(a);
  writeln('Введите стоимость a килограмм груш (x): ');
  readln(x);
  
  // Ввод количества килограмм груш, которые вы хотите вычислить (z)
  writeln('Введите количество килограмм груш для вычисления (z): ');
  readln(z);

  // Вычисление цены z кг груш
  z := (z / a) * x;
  
  // Вывод результата
  writeln('Цена ', z:0:2, ' рублей за ', z:0:2, ' кг груш.');
end.

Что касается вашего второго вопроса, вы хотите написать программу для вычисления значения арифметического выражения x = 3c² - b³ / c² + 4. Вот как это можно сделать на Pascal:

pascalCopy code
program CalculateExpression;
var
  a, b, c, x: real;

begin
  // Ввод данных с клавиатуры
  writeln('Введите значение b: ');
  readln(b);
  writeln('Введите значение c: ');
  readln(c);
  
  // Вычисление выражения
  x := (3 * c * c - b * b) / (c * c + 4);
  
  // Вывод результата
  writeln('Результат выражения x = ', x:0:2);
end.

Обе программы предполагают, что пользователь введет необходимые значения с клавиатуры и вычислят результаты.