Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
no swear
143 / 123 / 71
Регистрация: 01.07.2016
Сообщений: 710
Завершенные тесты: 1
#1

Количество квадратов в прямоугольнике - Delphi

07.10.2016, 18:32. Просмотров 158. Ответов 1
Метки нет (Все метки)

Даны положительные числа A, B, C. На прямоугольнике размера AxB размещено максимально возможное количество квадратов со стороной C (без наложений). Найти количество квадратов, размещенных на прямоугольнике. Операции умножения и деления не использовать.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.10.2016, 18:32
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Количество квадратов в прямоугольнике (Delphi):

Найти количество комбинаций, в которых сумма квадратов разрядов минут равна сумме квадратов разрядов секунд
.Секундомер отмерял 6458 секунд. Найти количество комбинаций, в которых сумма...

Найти среднюю площадь квадратов и количество кубов с наибольшей площадью
Я решил эту задачу, но не знаю как сделать это: Дано N1 квадратов и N2 кубов....

Найдите количество нулей во всем массиве и определите сумму квадратов чисел, принадлежащих промежутку (A, B) и стоящих на местах, кратных 4
Найдите количество нулей во всем массиве и определите сумму квадратов чисел,...

Составить программу, опред. лежит ли точка в прямоугольнике
Задание: Прямоугольник определяется координатами вершин: (0, 0), (x1, 0), (x1,...

Определить количество пятерок, количество четверок, количество троек и количество двоек в массиве оценок
В массиве записаны оценки по иностранному языку каждого из 22 учеников...

На прямоугольнике размещено максимально возможное количество квадратов. Найти количество квадратов и площадь незанятой части прямоугольника
1.Даны целые положительные числа A,B,C. На прямоугольнике размером A х B...

1
Puporev
Модератор
54149 / 41782 / 28889
Регистрация: 18.05.2008
Сообщений: 98,331
07.10.2016, 18:52 #2
Лучший ответ Сообщение было отмечено no swear как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var a,b,c,w,h,s,k:integer;
begin
a:=10;
b:=5;
c:=2;
w:=0;
while a>=c do
 begin
  a:=a-c;
  w:=w+1;
 end;
h:=0;
while b>=c do
 begin
  b:=b-c;
  h:=h+1;
 end;
k:=0;
s:=0;
while s<h do
 begin
  k:=k+w;
  s:=s+1;
 end;
write('k=',k);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.10.2016, 18:52
Привет! Вот еще темы с решениями:

Найти количество квадратов размещенных на прямоугольнике
Народ помогите с задачами на С. 1)Даны целые положительные числа A, B, C. На...

Найти количество квадратов, размещенных на прямоугольнике
Помогите решить!! Даны положительные числа A, B, C. На прямоугольнике...

Найти количество квадратов, размещенных на прямоугольнике
Даны положительные числа A,B,C.На прямоугольнике размера AxB размещено...

как найти количество квадратов размещённых на прямоугольнике
как найти количество квадратов размещённых на прямоугольнике (операции...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru