Question

90 баллов Напишите программу для определения имеет ли женщина идеальный вес. Значения роста и фактического веса вводится с клавиатуры.Программа вычисляет идеальный вес женщин по формуле. Ид.вес=Рост в см-100-10%(170-100) Затем спрашивает вычисленный идеальный вес женщины с фактическим,и дает заключение является ли фактический вес человека идеальным или нет. Паскаль.

Answer 1

program MassaProg;

uses crt;

 var factmassa, heigth: integer;

 var massa: real;

begin

 writeln('Vvedite rost v santimetrah: ');

 readln(heigth);

 writeln('Vvedite ves: ');

 readln(factmassa);

 massa:=heigth-100-0.1*(170-100);

if massa = factmassa

 then writeln('Vash ves idealnii') else writeln('Vash ves ne idealnii');

end.

Answer 2

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

pascalCopy code
program IdealWeight;

var
  height, actualWeight, idealWeight: real;

begin
  writeln('Введите ваш рост в см: ');
  readln(height);

  writeln('Введите ваш фактический вес: ');
  readln(actualWeight);

  { Вычисляем идеальный вес по формуле }
  idealWeight := height - 100 - ((height - 100) * 0.1);

  writeln('Идеальный вес для вас: ', idealWeight:0:2);

  { Сравниваем фактический вес с идеальным и даём заключение }
  if actualWeight = idealWeight then
    writeln('Ваш фактический вес является идеальным!')
  else
    writeln('Ваш фактический вес не является идеальным.');

  readln;
end.

Программа вычисляет идеальный вес по формуле и затем сравнивает его с введенным фактическим весом. Затем выводит заключение о том, является ли фактический вес идеальным или нет.