Question

Написать программы в Паскале. 1. Средний рост 10 баскетболистов равен а см, а средний рост 6 из них составляет в см. Чему равен средний рост остальных 4 баскетболистов?2. Дима съел треть конфет, которые были в коробке, и еще a конфет. После этого в коробке осталось b конфет. Сколько конфет было в коробке. 3. За k ч напечатали a/b рукописи. За сколько часов напечатают всю рукопись?

Answer 1

Ответ:

1.

program p1;

var a,b:real;

begin

write('Введите средний рост 10 баскетболистов а = ');

readln (a);  

write('Введите средний рост 6 из них b = ');

readln (b);  

write('Cредний рост остальных 4 баскетболистов равен ',(a*10-b*6)/4);

end.

2.

program p2;

var a,b:integer;

begin

write('Введите сколько конфет, кроме трети, съел Дима а = ');

readln (a);  

write('Введите сколько конфет осталось в коробке b = ');

readln (b);  

write('В коробке было ',((b+a)/2)*3,' конфет(-ы)');

end.

3.

program p3;

var a,b:integer;

k:real;

begin

write('Введите какую часть рукописи напечатали a/b = ');

readln (a,b);  

write('Введите за сколько часов её напечатали k = ');

readln (k);

writeln('Всю рукопись напечатают за ',k*b/a,' час(-а,-ов)');

end.

Объяснение:

В 3 задаче учитываем, что, например, 4,6 часа - это 4 часа 36 минут.

Можно посчитать в минутах

write('Всю рукопись напечатают за ',k*60*b/a,' минут')

или так

write('Всю рукопись напечатают за ',trunc(k*60*b/a) div 60,' час(-а,-ов)',trunc(k*60*b/a) mod 60,' минут(-у,-ы)' )

Answer 2

Для решения данных задач можно написать программы на языке Паскаль. Вот примеры решения каждой задачи:

1. Средний рост баскетболистов:

pascalCopy code
program AverageHeight;
var
  totalBasketballPlayers, averageHeight, knownPlayers, knownAverageHeight, unknownPlayers, unknownAverageHeight: real;
begin
  totalBasketballPlayers := 10; // Всего баскетболистов
  knownPlayers := 6; // Количество баскетболистов с известным средним ростом
  knownAverageHeight := 180; // Средний рост известных баскетболистов

  // Вычисляем средний рост остальных баскетболистов
  unknownPlayers := totalBasketballPlayers - knownPlayers;
  averageHeight := (knownPlayers * knownAverageHeight) / totalBasketballPlayers;
  unknownAverageHeight := (totalBasketballPlayers * averageHeight - knownPlayers * knownAverageHeight) / unknownPlayers;

  writeln('Средний рост остальных баскетболистов: ', unknownAverageHeight:0:2, ' см');
end.

2. Количество конфет в коробке:

pascalCopy code
program CandiesInBox;
var
  initialCandies, a, b, remainingCandies: integer;
begin
  a := 1; // Количество съеденных конфет
  remainingCandies := b; // Количество оставшихся конфет после съеденных

  // Вычисляем общее количество конфет в коробке
  initialCandies := (remainingCandies + a) * 3;

  writeln('Количество конфет в коробке было: ', initialCandies);
end.

3. Время печати рукописей:

pascalCopy code
program ManuscriptPrinting;
var
  k, a, b: integer;
  totalManuscripts, hours: real;
begin
  k := 4; // Количество часов на печать a/b рукописей
  a := 5; // Числитель количества рукописей
  b := 2; // Знаменатель количества рукописей

  // Вычисляем общее количество рукописей
  totalManuscripts := k * a / b;

  // Вычисляем время печати всей рукописи
  hours := totalManuscripts / k;

  writeln('Время печати всей рукописи: ', hours:0:2, ' часов');
end.

Примечание: В программе 2 предполагается, что в коробке изначально было "b" конфет, а после того, как Дима съел треть и еще "a" конфет, осталось "b" конфет.