Написать программу через паскаль: известна масса каждого предмета загружаемого в автомобиль определить...

Вот пример программы на языке Pascal, которая позволяет определить общую массу груза, загружаемого в автомобиль. В этой программе предполагается, что пользователь вводит массу каждого предмета, и программа подсчитывает их общую массу.

program TotalWeight;

uses crt;

var
  n, i: integer;         // n - количество предметов, i - счетчик
  weight, total: real;   // weight - масса текущего предмета, total - общая масса

begin
  clrscr;
  total := 0; // Инициализируем общую массу как 0
  
  // Запрашиваем у пользователя количество предметов
  write('Введите количество предметов: ');
  readln(n);
  
  // Проверяем, что количество предметов больше нуля
  if n 

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

Вот пример программы на Pascal:

program TotalCargoWeight;

uses crt;

var
  numItems, i: Integer;
  weight, totalWeight: Real;

begin
  clrscr; // Очистка экрана

  // Запрашиваем количество предметов
  Write('Введите количество предметов: ');
  ReadLn(numItems);

  totalWeight := 0; // Инициализация переменной для общей массы

  // Цикл для ввода масс каждого предмета
  for i := 1 to numItems do
  begin
    Write('Введите массу предмета ', i, ': ');
    ReadLn(weight);
    
    // Проверка на положительность массы
    if weight < 0 then
    begin
      WriteLn('Масса не может быть отрицательной. Попробуйте снова.');
      Dec(i); // Уменьшаем индекс, чтобы повторить ввод для этого предмета
      Continue; // Переход к следующей итерации цикла
    end;

    totalWeight := totalWeight + weight; // Суммируем массу
  end;

  // Вывод общей массы груза
  WriteLn('Общая масса груза составляет: ', totalWeight:0:2, ' кг');
  
  ReadLn; // Ожидание ввода перед завершением
end.

Объяснение кода:

1. Объявление переменных:

   • numItems: количество предметов, которые будут загружены в автомобиль.
   • i: счетчик цикла.
   • weight: масса текущего предмета.
   • totalWeight: переменная для хранения общей массы груза.

2. Очистка экрана:

   • clrscr: очищает экран, чтобы пользователь мог видеть только актуальную информацию.

3. Ввод количества предметов:

   • Пользователь вводит количество предметов, которые нужно учесть.

4. Цикл для ввода масс:

   • Используется цикл for, чтобы пройтись по каждому предмету.
   • Внутри цикла происходит ввод массы и проверка на отрицательные значения. Если масса отрицательная, программа сообщает об ошибке и запрашивает ввод снова для этого предмета, не увеличивая счетчик.

5. Суммирование масс:

   • Каждая введенная масса добавляется к переменной totalWeight.

6. Вывод результата:

   • В конце программа выводит общую массу груза с форматированием до двух знаков после запятой.

Как использовать программу:

1. Скопируйте код в среду разработки Pascal (например, Free Pascal или Turbo Pascal).
2. Скомпилируйте и запустите программу.
3. Введите количество предметов и их массы, следуя указаниям на экране.
4. После завершения ввода программа выведет общую массу груза.

Этот пример демонстрирует основные принципы работы с переменными, циклами и вводом/выводом в Pascal.