Задание:

Решить задачи на языке Pascal

1. Напишите программу, вычисляющую идеальный вес человека по формуле (рост-110)*1,15 .
Результат вывести в виде: Для человека ростом ___ см, идеальный вес = ____ кг.

2. Из поселка в город выехал мотоциклист со скоростью V1 км/ч. В то же время ему на встречу выехал велосипедист со скоростью V2 км/ч. Они встретились через t часов. Составьте программу, которая выводит расстояние от города до поселка.

 

Ответ на задание:

Задача 1.

Написать программу, которая принимает рост человека в сантиметрах и вычисляет его идеальный вес по заданной формуле. Результат должен быть выведен в удобном для чтения формате.

program IdealWeight;
var
  height, weight: real;

begin
  writeln('Введите рост человека в сантиметрах:');
  readln(height);

  // Расчет идеального веса по формуле
  weight := (height - 110) * 1.15;

  // Вывод результата
  writeln('Для человека ростом ', height:4:1, ' см, идеальный вес = ', weight:4:1, ' кг.');
end.

 

Пояснение кода:

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

   • height (рост): вещественная переменная для хранения роста человека.
   • weight (вес): вещественная переменная для хранения рассчитанного идеального веса.

2. Ввод данных:

   • writeln('Введите рост человека в сантиметрах:') – выводит сообщение для пользователя с просьбой ввести рост.
   • readln(height) – считывает введенное значение роста и сохраняет его в переменной height.

3. Расчет идеального веса:

   • weight := (height - 110) * 1.15; – выполняется расчет идеального веса по заданной формуле и результат сохраняется в переменной weight.

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

   • writeln('Для человека ростом ', height:4:1, ' см, идеальный вес = ', weight:4:1, ' кг.'); – выводит результат в удобочитаемом формате. Форматирование :4:1 указывает, что число должно занимать 4 позиции, а после десятичной точки – 1 позиция.

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

1. Сохранить код: Сохраните приведенный код в текстовый файл с расширением .pas (например, ideal_weight.pas).
2. Компилятор: Используйте компилятор Pascal (например, Free Pascal) для компиляции этого файла в исполняемый файл. Команда для компиляции может отличаться в зависимости от используемого компилятора.
3. Запуск: Запустите полученный исполняемый файл. Программа запросит у вас ввести рост, а затем выведет рассчитанный идеальный вес.

 

Задача 2.

• Дано:
  • V1 – скорость мотоциклиста
  • V2 – скорость велосипедиста
  • t – время до встречи
• Найти:
  • S – расстояние от города до поселка

Анализ задачи

• Задача сводится к решению следующего уравнения:
  • S = (V1 + V2) * t
  • Объяснение: за время t мотоциклист и велосипедист вместе проехали расстояние, равное расстоянию между городом и поселком.

 

program Distance;
var
  V1, V2, t, S: real; // Объявление переменных для скоростей, времени и расстояния
begin
  writeln('Введите скорость мотоциклиста (км/ч):');
  readln(V1);
  writeln('Введите скорость велосипедиста (км/ч):');
  readln(V2);
  writeln('Введите время встречи (часы):');
  readln(t);

  // Расчет расстояния
  S := (V1 + V2) * t;

  writeln('Расстояние от города до поселка:', S:0:2, ' км');
end.

 

Пояснение кода

1. Объявление переменных:
   • V1, V2, t, S – вещественные переменные для хранения скоростей, времени и расстояния. Вещественные числа используются, так как скорость и расстояние могут быть дробными.
2. Ввод данных:
   • Пользователь последовательно вводит значения скоростей мотоциклиста и велосипедиста, а также время встречи.
3. Расчет расстояния:
   • По формуле S = (V1 + V2) * t вычисляется расстояние и присваивается переменной S.
4. Вывод результата:
   • Выводится сообщение с рассчитанным расстоянием. Формат вывода :0:2 означает, что число будет выведено с двумя знаками после запятой.

Компиляция и выполнение

• Для выполнения этой программы необходимо использовать компилятор Pascal. Популярными вариантами являются Free Pascal, Turbo Pascal и другие.
• Сохраните код в файле с расширением .pas (например, distance.pas).
• Запустите компилятор и укажите путь к сохраненному файлу.
• После успешной компиляции запустите полученный исполняемый файл.