Question

Помогите пожалуйста Информатика 9 класс. Напишите Задачу на языке Паскаль, и если можно графическими схемами 1.Даны объемы и массы двух тел изготовленных из разных материалов. Материал какого из тел имеет МЕНЬШУЮ плотность? 2.Даны 3 вещественных числа. Определить сумму тех чисел, которые больше 5.

Answer 1

1) var

v1,v2,m1,m2:integer;

begin

readln(m1,v1,m2,v2);

if (m1/v1)>(m2/m2) then writeln('Первое')

else if (m1/v1)<(m2/m2) then writeln('Второе')

else writeln('Плотности равны')

end.

2) var

a,b,c,s:real;

begin

readln(a,b,c);

s:=0;

if a>5 then s:=s+a;

if b>5 then s:=s+b;

if c>5 then s:=s+c;

writeln(s)

end.

Answer 2

Для решения задач на языке Паскаль, можно воспользоваться интегрированной средой разработки (IDE) для этого языка, например, Free Pascal, и написать программы для каждой задачи.

1. Определение материала с меньшей плотностью:

pascalCopy code
program DensityComparison;

var
  volume1, mass1, density1: real;
  volume2, mass2, density2: real;
  material1, material2: string;

begin
  writeln('Введите объем первого тела:');
  readln(volume1);
  writeln('Введите массу первого тела:');
  readln(mass1);
  
  writeln('Введите объем второго тела:');
  readln(volume2);
  writeln('Введите массу второго тела:');
  readln(mass2);

  density1 := mass1 / volume1;
  density2 := mass2 / volume2;

  if density1 < density2 then
    material1 := 'первого тела'
  else
    material1 := 'второго тела';

  writeln('Материал с меньшей плотностью: ', material1);
end.

2. Вычисление суммы чисел больше 5:

pascalCopy code
program SumNumbersAboveFive;

var
  num1, num2, num3: real;
  sum: real;

begin
  writeln('Введите первое число:');
  readln(num1);
  writeln('Введите второе число:');
  readln(num2);
  writeln('Введите третье число:');
  readln(num3);

  sum := 0;
  
  if num1 > 5 then
    sum := sum + num1;
  if num2 > 5 then
    sum := sum + num2;
  if num3 > 5 then
    sum := sum + num3;

  writeln('Сумма чисел больше 5: ', sum);
end.

Обе программы простые и понятные. Первая программа сравнивает плотности двух материалов, представленных в виде пар объем-масса, и выводит информацию о материале с меньшей плотностью. Вторая программа вычисляет сумму только тех чисел, которые больше 5, вводимых пользователем. Обратите внимание, что во второй программе можно добавить проверки на то, что введенные значения действительно являются числами, но для простоты я их опустил.