Найти количество сшитых костюмов - 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.

Объяснение кода листинга программы

  1. Ввод значений переменных L и m с помощью функции readln().
  2. Вычисление значения переменной next как суммы m и 0.2.
  3. Если L больше или равно нулю, то увеличиваем счетчик count на единицу.
  4. Цикл while, который выполняется до тех пор, пока значение переменной L больше нуля.
  5. Внутри цикла вычитаем из переменной L значение переменной next.
  6. Вычисляем новое значение переменной next как сумму next и 0.2.
  7. Проверяем, если L больше или равно нулю, то увеличиваем значение count на единицу.
  8. Запись значения переменной count в файл output.txt с помощью функции write(fout, 'Платьев сшито: ', count).
  9. Закрытие файла fout с помощью функции close(fout).

Оцени полезность:

7   голосов , оценка 4.143 из 5
Похожие ответы