Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Покраска пола

Автор: Kizza777 4.2.2007, 15:39

Вычислить кол-во краски для покрытия пола в спортзале. Для выполнения этого задания, измеряя длину пола(a), широту(b), вычислить его площадь. При покупки краски, выясняют какую площадь S1 можно покрыть содержимой одной банки, и вычисляют необходимое количество банок. В программе следует предусмотреть ввод данных с клавиатуры и исследовать различные варианты(изменение площади пола, вместимости банок)
Очень срочно надо!!!

Автор: Gava 4.2.2007, 15:56

Код


var a,b,s,s1,k:real
      kolvo:integer;
      kol, nkol:string;
begin
  s:=a*b;  //вычисляем площадь
  k:=s/s1;
  kol:=FloatToStr(k);
  nkol:=kol[1];
  kolvo:=StrToInt(nkol);
  kolvo=kolvo+1;  // нашли количество банок
end;

криво но работает smile

половину переменных можешь убить smile

Автор: VICTAR 4.2.2007, 16:04

Kizza777, тебе http://forum.vingrad.ru/Vingrad-help-center.html, читай правила

Автор: dimazu 4.2.2007, 16:07

Цитата

Код


var a,b,s,s1,k:real
      kolvo:integer;
      kol, nkol:string;
begin
  s:=a*b;  //вычисляем площадь
  k:=s/s1;
  kol:=FloatToStr(k);
  nkol:=kol[1];
  kolvo:=StrToInt(nkol);
  kolvo=kolvo+1;  // нашли количество банок
end;

криво но работает smile

половину переменных можешь убить smile

Н-да....
Код меня, надо признаться, удивил малехо... smile

Цитата

При покупки краски, выясняют какую площадь S1 можно покрыть содержимой одной банки

Можно по-подробнее, как это делают?

Автор: sergejzr 4.2.2007, 16:10

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Автор: Gava 4.2.2007, 16:12

блин весь алгоритм задачи:
- ищем площадь территории покраски
- считаем сколько банок у нас уйдет на покраску территории (когда делим исходную площадь на пощадь покраски одной банкой полюбому получится дробное - например 20,34653465. банок надо купить 21. ну и с кодом я там напотрачил... решил что кол-во банок будет не больше 9:()
вот и все

Автор: Kuvaldis 4.2.2007, 16:32

Модератор: Название темы должно отражать ее суть!

Автор: dimazu 4.2.2007, 18:04

Цитата(Gava @ 4.2.2007, 16:12

)

пощадь покраски одной банкой

В этом и есть мой вопрос: Как эту площадь вычислить?

Автор: Gava 4.2.2007, 18:06

Цитата(Kizza777 @ 4.2.2007, 15:39

)

При покупки краски, выясняют какую площадь S1 можно покрыть содержимой одной банки

ну ... эта... я так понял что она дана эта площадь

Автор: Strannik 4.2.2007, 18:20

Код


writeln(trunc((a*b)/s1)+1);

Краткость - сестра таланта.

Добавлено @ 18:24

Цитата

В этом и есть мой вопрос: Как эту площадь вычислить?

Да никак, дана она скорее всего. А то нужно будет вводить с клавиатуры вещество из которого сделана краска, его плотность, коэффициент професионанализма маляров и т.д.

Автор: Winprogrammer 4.2.2007, 19:25

Цитата(Kizza777 @ 4.2.2007, 15:39

)

широту

рассмешил

Автор: Strannik 4.2.2007, 23:11

Цитата

Краткость - сестра таланта.

Гм... а так же тупости, и никто бага не заметил. Надо так

Код


t:=(a*b)/s1;
if t=trunc(t) then
 writeln(trunc(t))
else writeln(trunc(t)+1);

Да и то не уверен, как паскаль вот это if t=trunc(t) воспримет...