1. Напишите программу на языке Pascal, которая определяет, какое из двух расстояний (S1 или S2) больше, учитывая

Дек 16, 2023

1. Напишите программу на языке Pascal, которая определяет, какое из двух расстояний (S1 или S2) больше, учитывая, что первое введено в метрах, а второе — в саженях. Для справки: 1 сажень = 2,134 метра.
2. Напишите программу на языке Pascal, которая определит, который из двух мешков тяжелее, учитывая, что масса первого мешка (m1) введена в килограммах, а второго (m2) — в пудах. Для справки: 1 пуд = 16,38 килограмма.

Vladimirovna

Конечно! Вот решение вашей задачи:

1. Чтобы решить эту задачу на языке Pascal, нам нужно сравнить два расстояния: S1 в метрах и S2 в саженях. Для начала, нам нужно запросить значения S1 и S2 от пользователя.

pascal

program DistanceComparison;

var

  S1, S2, S2InMeters: real;

begin

  // Запрос значения S1 в метрах

  writeln("Введите значение S1 в метрах: ");

  readln(S1);



  // Запрос значения S2 в саженях

  writeln("Введите значение S2 в саженях: ");

  readln(S2);



  // Переводим значение S2 из саженей в метры

  S2InMeters := S2 * 2.134;



  // Сравниваем значения S1 и S2InMeters и выводим результат

  if S1 > S2InMeters then

    writeln("Расстояние S1 больше, чем S2.")

  else if S1 < S2InMeters then

    writeln("Расстояние S2 больше, чем S1.")

  else

    writeln("Расстояния S1 и S2 равны.");

end.

В этой программе пользователь будет запрашиваться ввести значения S1 в метрах и S2 в саженях. Затем программа переведет значение S2 из саженей в метры, используя соотношение 1 сажень = 2,134 метра. После этого она сравнит значения S1 и S2InMeters и выведет соответствующее сообщение о том, какое из расстояний больше.

2. Чтобы написать программу на языке Pascal, которая определит, который из двух мешков тяжелее, нам нужно учитывать, что масса первого мешка (m1) введена в килограммах, а масса второго мешка (m2) в пудах. Вот решение:

pascal

program WeightComparison;

var

  m1, m2, m2InKilograms: real;

begin

  // Запрос значения m1 в килограммах

  writeln("Введите значение m1 в килограммах: ");

  readln(m1);



  // Запрос значения m2 в пудах

  writeln("Введите значение m2 в пудах: ");

  readln(m2);



  // Переводим значение m2 из пудов в килограммы

  m2InKilograms := m2 * 16.38;



  // Сравниваем значения m1 и m2InKilograms и выводим результат

  if m1 > m2InKilograms then

    writeln("Мешок m1 тяжелее, чем m2.")

  else if m1 < m2InKilograms then

    writeln("Мешок m2 тяжелее, чем m1.")

  else

    writeln("Массы мешков m1 и m2 равны.");

end.

В этой программе пользователь будет запрашиваться ввести значения m1 в килограммах и m2 в пудах. Затем программа переведет значение m2 из пудов в килограммы, используя соотношение 1 пуд = 16.38 кг. После этого она сравнит значения m1 и m2InKilograms и выведет соответствующее сообщение о том, который из мешков тяжелее.

Знаешь ответ?

Информатика

Пожалуйста, напишите программу, которая будет повторять введенное слово...

Ноя 28, 2023

Информатика

Какой вид спорта занимается каждый мальчик? На каком иностранном языке он говорит и как можно...

Ноя 28, 2023

1. Напишите программу на языке Pascal, которая определяет, какое из двух расстояний (S1 или S2) больше, учитывая

Vladimirovna

О проекте

Предметы

Задать вопрос

Привет!