Составьте программу, которая бы определяла, сколько кубиков с каждой возможным количеством окрашенных граней. - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Здравствуйте, помогите разобраться! Дано задача. Кубики. Кубик с ребром N см покрасили и разрезали на кубики с ребром 1 см. При этом появились такие, у которых окрашено разное количество граней. Например, если N = 3, то после разрезания будет 8 кубиков, у которых окрашено три грани, 12 с двумя гранями, 6 с одной, а один кубик будет совсем неокрашенный. Составьте программу, которая бы определяла, сколько кубиков с каждой возможным количеством окрашенных граней. Как можно создать Ввод и Вывод файл не как не могу! Задачу из интернета скачал.

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

textual
Листинг программы
var n,x1,x2,x3,x0:integer;
    f:text;
begin
assign(f,'cubes.in');//текстовый файл в папке с программой, где записано 1 число N
reset(f);
read(f,n);
close(f) ;
x3:=8;
x1:=sqr(n-2)*6;
x0:=sqr(n-2)*(n-2);
x2:=(n-2)*4*2+(n-2)*4;
assign(f,'cubes.out'); //файл результатов
rewrite(f);
writeln(f,'0/',x0,' 1/',x1,' 2/',x2,' 3/',x3);
close(f);
end.

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

Этот код написан на языке Pascal ABC и выполняет следующие действия:

  1. Объявляет переменные n, x1, x2, x3, x0 типа integer.
  2. Задает текстовому файлу cubes.in значение 1, что предположительно является количеством граней куба.
  3. Считывает значение из файла cubes.in и сохраняет его в переменной n.
  4. Вычисляет значения x1, x2, x3 и x0, которые представляют собой количество граней куба с определенным количеством окрашенных сторон.
  5. Записывает результаты в текстовый файл cubes.out.
  6. Перезаписывает файл cubes.out с результатами.
  7. Выводит результаты в консоль в формате 0/, за которым следуют значения x0, 1/, за которым следует значение x1, 2/, за которым следует значение x2, 3/, за которым следует значение x3.
  8. Закрывает файлы cubes.in и cubes.out.

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

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