IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Прямоугольник - колличество квадратов в нем
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 7
Пол: Мужской

Репутация: -  0  +


Помогите пожалуйста с решением:
1)Заданы размеры прямоугольника (вводятся 2 целых числа), Найти и напечатать покрытие этого прямоугольника наименьшим колличеством квадратов(список длинн сторон)

Задается целое число(вводится с клавиатуры), вывести по одной цифре(с повторами), из которых состоит это число

Сообщение отредактировано: darkdrive -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 705
Пол: Мужской

Репутация: -  20  +


1 - такая реализация пойдет ? smile.gif
procedure kw (x,y:integer);
begin
if x=y then writeln (x,'x',x) else
begin
if x<y then begin
writeln (x,'x',x); kw (x,y-x);
end else begin
writeln (y,'x',y); kw (x-y,y);
end;
end;
end;

2- задача на div и mod, в факе есть куча примеров наверняка.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 7
Пол: Мужской

Репутация: -  0  +


Можно по подробнее, дело в том что я в паскале никогда не работал, пишу на php,vb. С синтаксисом слабо знаком, попросили помочь с задачами, запустить эту так и не смог. Можно полноценно работающую программу, с вводом сторон с клавиатуры??
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Профи
****

Группа: Пользователи
Сообщений: 705
Пол: Мужской

Репутация: -  20  +


Цитата(darkdrive @ 19.12.2007 0:08) *

Можно по подробнее, дело в том что я в паскале никогда не работал, пишу на php,vb. С синтаксисом слабо знаком, попросили помочь с задачами, запустить эту так и не смог. Можно полноценно работающую программу, с вводом сторон с клавиатуры??

То, что было +:
var x,y:integer;
begin
write ('X='); readln (x);
write ('Y='); readln (y);
kw(x,y);
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5





Группа: Пользователи
Сообщений: 7
Пол: Мужской

Репутация: -  0  +


угу, пасиб, работает, а если добавить условие - заполнить квадратами одинакого размера? smile.gif)))
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(darkdrive @ 19.12.2007 1:34) *

угу, пасиб, работает, а если добавить условие - заполнить квадратами одинакого размера? smile.gif)))

Тогда просто ищешь наибольший общий делитель - это и есть сторона крадрата.


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
darkdrive   Прямоугольник - колличество квадратов в нем   19.12.2007 2:56
Malice   1 - такая реализация пойдет ? :) procedure kw (x…   19.12.2007 3:49
darkdrive   Можно по подробнее, дело в том что я в паскале ник…   19.12.2007 4:08
Malice   Можно по подробнее, дело в том что я в паскале ни…   19.12.2007 4:16
darkdrive   угу, пасиб, работает, а если добавить условие - за…   19.12.2007 5:34
Lapp   угу, пасиб, работает, а если добавить условие - з…   19.12.2007 5:45
darkdrive   а реализацию на паскале можно?? )   19.12.2007 20:37
Michael_Rybak   конечно можно. не стесняйся, пиши.   20.12.2007 1:30
darkdrive   ну я серьезно, надо решить задачу, помогите плизз,…   21.12.2007 3:29
Lapp   хотяб формулу математическую... Тут, мне кажется…   21.12.2007 12:03
darkdrive   Да, но ведь квадраты не обезательно должны быть це…   21.12.2007 17:05
andriano   Пока ничего серьезного с твоей стороны не вижу. ПО…   21.12.2007 3:40
klem4   ты бы хоть читал что пишешь ... 1)Заданы размеры …   21.12.2007 20:00
darkdrive   мда, пардон.... просто изначально задача была с це…   22.12.2007 3:11
Malice   Все равно перебором, примерно так: .... e:=false;…   22.12.2007 4:26


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 23:15
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name