3 / 3 / 6
Регистрация: 24.03.2014
Сообщений: 65
1

В выходной файл выведите одно целое число – минимальное количество банок краски, необходимых для покраски

05.06.2014, 20:12. Показов 3968. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Здравствуйте, белые рыцари программирования.
Сегодня вопрос по задаче. Она очень легкая, но у меня , почему-то, фейлится на первом же тесте, хотя считаю всё правильно
В чем суть? (Полную версию можно найти на a c m p)
Кликните здесь для просмотра всего текста
Ваш любимый дядя – директор фирмы, которая делает евроремонты в офисах. В связи с финансово-экономическим кризисом, дядюшка решил оптимизировать свое предприятие.

Давно ходят слухи, что бригадир в дядюшкиной фирме покупает лишнее количество стройматериалов, а остатки использует для отделки своей новой дачи. Ваш дядя заинтересовался, сколько в действительности банок краски необходимо для покраски стены в офисе длиной L метров, шириной – W и высотой – H, если одной банки хватает на 16м2, а размерами дверей и окон можно пренебречь? Заказов много, поэтому дядя попросил написать программу, которая будет все это считать.

Входные данные

Входной файл INPUT.TXT содержит три натуральных числа L, W, H – длину, ширину и высоту офиса в метрах соответственно, каждое из которых не превышает 1000.

Выходные данные

В выходной файл OUTPUT.TXT выведите одно целое число – минимальное количество банок краски, необходимых для покраски офиса.

Решается просто - выясняем площадь 4 стен (тобишь 2*(L*H) + 2*(L*W) ) и делим её на 16. Если получается число с запятым - пишем в выходном целую часть числа +1, а если без запятой, то число.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Program zadacha;
var f,g:text; 
    l,w,h:integer;
    total:integer;
begin
assign(f,'INPUT.TXT'); reset(f);
assign(g,'OUTPUT.TXT'); rewrite(g);
read(f,l,w,h);
if frac(((2*(l*h) ) + (2*(w*h)))/16)=0 then begin write(g,((2*(l*h) ) + (2*(w*h)))/16); end else write(g,int(((2*(l*h) ) + (2*(w*h)))/16)+1);
close(f);
close(g);
end.
Вот мой код. Фейлится на первом же тесте. Пробовал и с real и с integer значениями - ничего.

Добавлено через 1 час 37 минут
Бамп
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.06.2014, 20:12
Ответы с готовыми решениями:

Определить минимальное количество банок краски для покраски стен и пола комнаты
Для покраски стен и пола комнаты шириной a метров, длиной b метров и высотой c метров (a, b и с –...

Во входном файле записано целое число .В выходной файл выведите одно число – количество кругляшей в числе N
Однажды в просторах рунета появился следующий ребус: 157892 = 3 203516 = 2 ...

Определить количество банок краски для покраски забора
Том Сойеру необходимо покрасить забор с двух сторон, который содержит N досок. Размеры каждой доски...

Определить количество банок краски, которые ему потребуются для покраски забора
Том Сойеру необходимо покрасить забор с двух сторон, который содержит N досок. Размеры каждой доски...

1
6 / 6 / 4
Регистрация: 11.11.2014
Сообщений: 6
12.11.2014, 02:49 2
в ответ нужно написать целое число поэтому или trunc-ом пользуйся или форматом вывода ..

Pascal
1
2
3
4
5
6
7
8
9
var
l,w,h,s:word;
begin
readln(l,w,h,s);
if frac((2*l+2*w)*h/s)<>0 then
write(trunc((2*l+2*w)*h/s)+1)
else
write(trunc((2*l+2*w)*h/s));
end.
у меня фейлится на 8-м из 11 автотестов .... не знаю в чём ньюанс задачи/решения ..
1
12.11.2014, 02:49
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.11.2014, 02:49
Помогаю со студенческими работами здесь

Сколько в действительности банок краски необходимо для покраски стен в офисе
сколько в действительности банок краски необходимо для покраски стен в офисе длиной L метров,...

Сколько в действительности банок краски необходимо для покраски стены в офисе
Ваш любимый дядя – директор фирмы, которая делает евроремонты в офисах. В связи с...

Сколько в действительности банок краски необходимо для покраски стен в офисе
Ремонт Ваш любимый дядя – директор фирмы, которая делает евроремонты в офисах. В связи с...

Рассчитать количество краски для покраски прямоугольника
Доброе время суток! Ребята, подскажите в чем загвостка! Первую задачу решил правильно, на второй...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru