Написать программу, которая выводит на экран таблицу стоимости, например, яблок в диапазоне от 100г до 1кг с шагом 100 паскаль

Конечно! Давайте напишем программу на Pascal, которая будет выводить таблицу стоимости яблок в диапазоне от 100 грамм до 1 килограмма с шагом 100 грамм. Предположим, что стоимость 1 кг яблок составляет 30 рублей. Тогда программа будет выглядеть следующим образом:

program ApplePriceTable;

uses crt;

var
  weight: Integer;
  pricePer100g: Real;

begin
  pricePer100g := 30 / 10; // Стоимость 100 грамм (30 рублей за 1 кг)
  writeln('Таблица стоимости яблок:');
  writeln('Вес (г)   | Стоимость (руб.)');
  writeln('----------------------------');

  for weight := 100 to 1000 do
  begin
    writeln(weight:5, '  | ', (weight div 100) * pricePer100g:10:2);
  end;

  readln; // Ожидаем нажатия клавиши для завершения программы
end.

Объяснение программы:

1. Объявление переменных: Мы объявляем переменные weight для учета веса и pricePer100g для расчета стоимости 100 грамм яблок.
2. Цикл for: Используем цикл от 100 до 1000 с шагом 1 (мы будем считать вес в граммах), чтобы рассматривать все значения.
3. Расчет стоимости: Для каждого веса вычисляется стоимость, умножая цену за 100 г на количество сотен граммов (с помощью weight div 100).
4. Форматированный вывод: Форматированный вывод результатов с выравниванием.

Таким образом, программа выводит таблицу стоимости яблок от 100 г до 1 кг. Надеюсь, это поможет вам в вашем обучении программированию на Паскале!