Цикл с прямоугольником - Pascal

Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.73/11:

@Василий-Робот TECHNO 28 / 28 / 8 Регистрация: 04.11.2009 Сообщений: 366

	Цикл с прямоугольником 09.12.2009, 22:00. Показов 2199. Ответов 1 Метки нет (Все метки) Задан прямоугольник размером А*В (А и В - натуральные). От прямоугольника каждый раз отрезают квадраты максимальной площади. Найти общее количество квадратов. 0

Лучшие ответы (1)

Сообщение: #405098

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

09.12.2009, 22:00

Ответы с готовыми решениями:

Создать программу по всем 3 видам циклов...цикл с параметром,цикл с условием,цикл,и цикл с предусловием...
Найти сумму чисел 1 в квадрате до 10 c квадрате...операцию возведению в степень не использовать учесть особенности получения квадратного...

является ли прямоугольником
Написать программу, определяющую по длинам сторон треугольника, является ли он прямоугольным. Если треугольник не прямоугольный, то...

Столкновение окружности с прямоугольником
1) Как определить момент столкновения окружности с прямоугольником? 2) Как отразить направление окружности в момент столкновения с одной...

yanyk1n

4342 / 1474 / 680

Регистрация: 12.03.2009

Сообщений: 5,310

09.12.2009, 22:16

Сообщение было отмечено Василий-Робот как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program kv;
var m,n:longint;
 
function KVD(m,n:longint):longint;
begin
 if (m=0) or (n=0) then kvd:=0 else
 if m=n then kvd:=1 else
 if m>n then kvd:=(m div n)+kvd(m mod n,n) else
 kvd:=(n div m)+kvd(m,n mod m);
end;
 
begin
 readln(m,n);
 writeln(KVD(m,n));
 readln;
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

09.12.2009, 22:16

Помогаю со студенческими работами здесь

Является ли четырехугольник прямоугольником
1. Пусть даны координаты вершин четырехугольника. Составьте программу, которая определяла бы, является ли этот четырехугольник...

Подпись под прямоугольником
В цикле создаются прямоугольники (изображают гистограмму - частоту определенных букв в строке). Нужно сделать две надписи, под каждым...

Ограничить вектор прямоугольником
Здравствуйте, как можно обрезать зеленый вектор, что бы он не выходил за пределы прямоугольника, образованного красным вектором?

Описать фигуру прямоугольником
Имеется изображение с произвольной фигурой: например белый фон и красная фигура на нем. Нужно описать вокруг этой фигуры прямоугольник. Я...

Столкновение вектора с прямоугольником
У меня есть некий корабль,которым я управляю,у него есть анимация он может поворачиваться и лететь в этом направление вперёд ,сам он объект...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .

Наверх