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

@B@DGO · Регистрация: 14.07.2009

Студворк — интернет-сервис помощи студентам

ПЛОЩАДЬ КОМНАТЫ 40 КВАДРАТОВ ОДИН РУЛОН ОБОЕВ НА 1,5 КВАДРАТА СКОЛЬКО РУЛОНОВ обоев НАДО

Pascal
1
2
3
4
5
6
BEGIN
 VAR a,b:integer;
 a=40;
 b=1,5;
writeln(a/b);
end.

правильно ли?

@Gorev · 14.12.2009, 15:29

нет,

Pascal
1
2
3
4
5
6
7
8
program komnata;{ну можно и без этого}
var a,b:real;
begin
a:=40;
b:=1,5;
writeln(a/b);
readln;
end.

@B@DGO · 14.12.2009, 15:30 **[ТС]**

пасибо!

@Jazon_deenAlt · 14.12.2009, 15:30

нет правильно так

Pascal
1
2
3
4
5
6
7
uses crt;
VAR a,b:real;
begin
a:=40;
b:=1.5;
writeln(a/b:4:4);
end.

@кот Бегемот · 14.12.2009, 15:39

Сообщение от B@DGO

ПЛОЩАДЬ КОМНАТЫ 40 КВАДРАТОВ ОДИН РУЛОН ОБОЕВ НА 1,5 КВАДРАТА СКОЛЬКО РУЛОНОВ обоев НАДО

Pascal
1
2
3
4
5
6
BEGIN
 VAR a,b:integer;
 a=40;
 b=1,5;
writeln(a/b);
end.

правильно ли?

Нет, не правильно. Есть несколько вариантов:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
const
a=40;
b=1.5;
var
kol:integer;
s:real;
begin
repeat
s:=s+b;
inc(kol);
until s>=a;
writeln(kol);
end.

Добавлено через 1 минуту
to Jazon_deenAlt и Gorev Количество рулонов - целое число
у вас получится 26,6 рулона, это всё равно, что полторы коровы

Добавлено через 5 минут
или так

Pascal
1
2
3
4
5
6
7
8
9
const
a=40;
b=1.5;
var
kol:integer;
begin
if a mod b <>0 then kol:=a div b+1 else kol:=a div b;
writeln(kol);
end.

но так, скорее всего, работать не будет, надо заменить 40 и 1.5 на 400 и 15 или на 80 и 3

@Jazon_deenAlt · 14.12.2009, 15:40

alexevt, все в мире относительно. количиство целых рулонов - целое число, а количиство рулонов для оклейки некоторой площади, может быть и нецелое... хотя с точки зрения "скока купить" вы правы...

@B@DGO · 14.12.2009, 15:40 **[ТС]**

всем пасиб ребята еще вопрос как компилятор сделать так чтобы он программы в оперативку не сохранял а в папку какую нибудь????????????????(именно exe)?

@Helfer · 14.12.2009, 15:47

ну вроде файл-ченж директориес... и выбираеш куда сохранять, он туда и скидывает при сохранении.

Добавлено через 1 минуту
смотря какой паскаль

@Jazon_deenAlt · 14.12.2009, 15:48

B@DGO, а что за паскаль стоит? например паскаль АБЦ не делает екзех

@кот Бегемот · 14.12.2009, 15:48

Не по теме:

to
Jazon_deenAlt
если вы сможете отмерить 26,66666667 рулона, я, несомненно, с вами соглашусь

@B@DGO · 14.12.2009, 15:52 **[ТС]**

free pascal 2.2.4

Добавлено через 1 минуту
ой абц стоял ну его в боню!

@кот Бегемот · 14.12.2009, 15:53

в Турбо Паскаль это делается легко, там компилятор есть

@Jazon_deenAlt · 14.12.2009, 15:56

Не по теме:

alexevt, господи шо ж вы злой то такой? вы шо после той картошки меня кровным врагом считаете? земляк давайте я вам анекдот про обои розскажу... запарила жена мужа шо усе соседи ремонты делают а они нет, ну и сказала "как хош но обои шобы переклеил" ну мужык к соседу у которого точно такая же квартира и спрашывает:
-от ты скоко обоев куплял?
-15 рулонов.
ну мужык пошел купил, поклеил... 7 рулонов осталось... ну он к соседу:
-блин, ты говорил шо купил 15 рулонов, а у меня 7 лишних осталось...
-дык и у меня осталось...
итог? главное правильно поставлиный вопрос!

@Puporev · 14.12.2009, 15:57

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var p:real;
    r:integer;
begin
r:=0;
p:=40;
while p>0 do
 begin
  p:=p-1.5;
  r:=r+1;
 end;
write('R=',r);
readln
end.

@кот Бегемот · 14.12.2009, 16:15

Puporev А что, у меня в 5 посте не такое же решение, только через repeat?

@B@DGO · 14.12.2009, 16:25 **[ТС]**

так чо не кто не шарит чо ли?

@Puporev · 14.12.2009, 16:31

B@DGO, Тебе сколько еще решений нужно?

@Jazon_deenAlt · 14.12.2009, 16:32

B@DGO, вам же написали что в АБЦ екзе не делаютса... установите себе фрипаскаль или что-то еще екзешкоделающее

@B@DGO · 14.12.2009, 18:49 **[ТС]**

я же написал по free paskal вв верху а про абц я написал что он у мя был!так как сделать чтоб он exe файлы сохронял в другу папку а не в аперативку?

@WolfCF · 14.12.2009, 18:54

Не по теме:

Сообщение от B@DGO

я же написал по free paskal вв верху а про абц я написал что он у мя был!так как сделать чтоб он exe файлы сохронял в другу папку а не в аперативку?

А чем Вас в оперативке не устраивает? жалко её?

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@B@DGO 5 / 5 / 0 Регистрация: 14.07.2009 Сообщений: 86
	14.12.2009, 15:30 [ТС]
	пасибо! 0

@Jazon_deenAlt 4117 / 999 / 191 Регистрация: 09.04.2009 Сообщений: 4,223
	14.12.2009, 15:40
	alexevt, все в мире относительно. количиство целых рулонов - целое число, а количиство рулонов для оклейки некоторой площади, может быть и нецелое... хотя с точки зрения "скока купить" вы правы... 0

@B@DGO 5 / 5 / 0 Регистрация: 14.07.2009 Сообщений: 86
	14.12.2009, 15:40 [ТС]
	всем пасиб ребята еще вопрос как компилятор сделать так чтобы он программы в оперативку не сохранял а в папку какую нибудь????????????????(именно exe)? 0

@Helfer ЙожЪ 64 / 60 / 17 Регистрация: 23.10.2009 Сообщений: 652
	14.12.2009, 15:47
	ну вроде файл-ченж директориес... и выбираеш куда сохранять, он туда и скидывает при сохранении. Добавлено через 1 минуту смотря какой паскаль 0

@Jazon_deenAlt 4117 / 999 / 191 Регистрация: 09.04.2009 Сообщений: 4,223
	14.12.2009, 15:48
	B@DGO, а что за паскаль стоит? например паскаль АБЦ не делает екзех 0

@кот Бегемот
	14.12.2009, 15:48
	Не по теме: to Jazon_deenAlt если вы сможете отмерить 26,66666667 рулона, я, несомненно, с вами соглашусь 0

@B@DGO 5 / 5 / 0 Регистрация: 14.07.2009 Сообщений: 86
	14.12.2009, 15:52 [ТС]
	free pascal 2.2.4 Добавлено через 1 минуту ой абц стоял ну его в боню! 0

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	14.12.2009, 15:53
	в Турбо Паскаль это делается легко, там компилятор есть 0

@Jazon_deenAlt
	14.12.2009, 15:56
	Не по теме: alexevt, господи шо ж вы злой то такой? вы шо после той картошки меня кровным врагом считаете? земляк давайте я вам анекдот про обои розскажу... запарила жена мужа шо усе соседи ремонты делают а они нет, ну и сказала "как хош но обои шобы переклеил" ну мужык к соседу у которого точно такая же квартира и спрашывает: -от ты скоко обоев куплял? -15 рулонов. ну мужык пошел купил, поклеил... 7 рулонов осталось... ну он к соседу: -блин, ты говорил шо купил 15 рулонов, а у меня 7 лишних осталось... -дык и у меня осталось... итог? главное правильно поставлиный вопрос! 0

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	14.12.2009, 16:15
	Puporev А что, у меня в 5 посте не такое же решение, только через repeat? 0

@B@DGO 5 / 5 / 0 Регистрация: 14.07.2009 Сообщений: 86
	14.12.2009, 16:25 [ТС]
	так чо не кто не шарит чо ли? 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	14.12.2009, 16:31
	B@DGO, Тебе сколько еще решений нужно? 0

@Jazon_deenAlt 4117 / 999 / 191 Регистрация: 09.04.2009 Сообщений: 4,223
	14.12.2009, 16:32
	B@DGO, вам же написали что в АБЦ екзе не делаютса... установите себе фрипаскаль или что-то еще екзешкоделающее 0

@B@DGO 5 / 5 / 0 Регистрация: 14.07.2009 Сообщений: 86
	14.12.2009, 18:49 [ТС]
	я же написал по free paskal вв верху а про абц я написал что он у мя был!так как сделать чтоб он exe файлы сохронял в другу папку а не в аперативку? 0