Найти количество сшитых костюмов - Pascal
Формулировка задачи:
Из L метров ткани сшили костюмы разного размера. На 1-ый костюм ушло m метров ткани, на каждый последующий – на 0,2 м больше, чем на предыдущий. Сколько всего сшили костюмов?Результат записать в файл output.txt
Решение задачи: «Найти количество сшитых костюмов»
textual
Листинг программы
var fout: text; L, m, next: real; count: integer; begin write('L = '); readln(L); write('m = '); readln(m); L := L - m; next := m + 0.2; if L >= 0 then count := 1; while L > 0 do begin L := L - next; next := next + 0.2; if L >= 0 then inc(count); end; assign(fout, 'output.txt'); rewrite(fout); write(fout, 'Платьев сшито: ', count); close(fout); end.
Объяснение кода листинга программы
- Ввод значений переменных L и m с помощью функции readln().
- Вычисление значения переменной next как суммы m и 0.2.
- Если L больше или равно нулю, то увеличиваем счетчик count на единицу.
- Цикл while, который выполняется до тех пор, пока значение переменной L больше нуля.
- Внутри цикла вычитаем из переменной L значение переменной next.
- Вычисляем новое значение переменной next как сумму next и 0.2.
- Проверяем, если L больше или равно нулю, то увеличиваем значение count на единицу.
- Запись значения переменной count в файл output.txt с помощью функции write(fout, 'Платьев сшито: ', count).
- Закрытие файла fout с помощью функции close(fout).