Question

Сделать в Паскале с условным оператором. Определить температуру и вес вашего тела( вес тела любой брать) в фунтах и по шкале Фаренгейта.1 фунт=400 граммпереводить температуру из градусов Цельсия по формуле:Т по фаренгейту =1,8*температура по Цельсию+32

Answer 1

Program z1;
var t,v:real;
begin
writeln('введите вес(в фунтах)');
readln(v);
v:=(v*400) mod 1000;
writeln('введите температуру(по Фаренгейту');
readln(t);
t:=(t-32)/1.8;
writeln('Вес=',v,'кг; температура=',t);
end.

Answer 2

Для решения этой задачи на Паскале, вам потребуется использовать условный оператор if-else и выполнить несколько математических операций.

Вот пример кода на Паскале, который решает вашу задачу:

program ConvertTemperatureAndWeight;
var
  temperatureCelsius, temperatureFahrenheit: real;
  weightKilograms, weightPounds: real;
begin
  writeln('Введите температуру в градусах Цельсия:');
  readln(temperatureCelsius);

writeln('Введите вес в килограммах:');
  readln(weightKilograms);

temperatureFahrenheit := 1.8 * temperatureCelsius + 32;
  weightPounds := weightKilograms * 2.20462;

writeln('Температура по Фаренгейту: ', temperatureFahrenheit:0:2);
  writeln('Вес в фунтах: ', weightPounds:0:2);
end.

В этом коде мы сначала объявляем переменные `temperatureCelsius` и `temperatureFahrenheit` для хранения температуры в градусах Цельсия и Фаренгейта соответственно. Затем объявляем переменные `weightKilograms` и `weightPounds` для хранения веса в килограммах и фунтах соответственно.

Далее мы запрашиваем у пользователя ввод значения температуры в градусах Цельсия и веса в килограммах с помощью функции `readln`.

Затем мы используем формулу для преобразования температуры из градусов Цельсия в градусы Фаренгейта: `Т по фаренгейту = 1.8 * температура по Цельсию + 32`. Результат сохраняется в переменную `temperatureFahrenheit`.

Также мы используем формулу для преобразования веса из килограммов в фунты: `1 фунт = 2.20462 килограмма`. Результат сохраняется в переменную `weightPounds`.

Наконец, мы выводим результаты на экран с помощью функции `writeln`. Температура по Фаренгейту выводится с точностью до 2 знаков после запятой, используя форматирование `:0:2`.

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