Question

Создать программу "общий вес" на языке Паскаль. Определить общий вес учащихся в 8В классе.

Answer 1

var

x,s:real;

i:integer;

begin

writeln('Программа "Общий вес"');

writeln('После окончания ввода всех данных учащихся, введите число 0');

write('Введите вес ученика: ');

readln(x);

i:=0;

while x<>0 do begin

 s:=s+x;

 i:=i+1;

 write('Введите вес ученика: ');

 readln(x);

 end;

writeln();

writeln('Количество учеников: ', i);

writeln('Общий вес учеников равен: ', s:0:2);

end.

Answer 2

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

pascalCopy code
program TotalWeight;

const
  NumStudents = 30; // Количество учащихся

var
  Names: array[1..NumStudents] of string;
  Weights: array[1..NumStudents] of real;
  TotalWeight: real;
  i: integer;

begin
  // Заполните массивы имен и весов учащихся
  for i := 1 to NumStudents do
  begin
    write('Введите имя ученика ', i, ': ');
    readln(Names[i]);
    write('Введите вес ученика ', i, ': ');
    readln(Weights[i]);
  end;

  // Инициализируем общий вес
  TotalWeight := 0;

  // Считаем общий вес
  for i := 1 to NumStudents do
  begin
    TotalWeight := TotalWeight + Weights[i];
  end;

  // Выводим общий вес
  writeln('Общий вес учащихся в 8В классе: ', TotalWeight:0:2);
  
  // Завершаем программу
  readln;
end.

Этот код позволит вам ввести имена и веса учащихся в 8В классе, а затем вычислить и вывести общий вес всех учеников. Помимо этого, вы можете настроить количество учащихся (в данном случае 30) и размеры массивов с именами и весами, если вам нужно больше или меньше места для данных.