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

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

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

> Прямоугольник, макс кол-во в нем квадратов
Client
сообщение 22.12.2007 21:45
Сообщение #1


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

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


Задача: Дан прямоугольник со сторонами A и B, где а b натуральные числа.Начать отсекать от него квадраты.Сколько таких квадратов можно отсечь, если каждый раз отсекается самый большой квадрат?
(Рисунок сам нарисовал, чуть не точный)
Прогу то я сделал, чтоб она выводила ответ. Я хочу теперь это все нарисовать(чтоб с графикой хоть познакомиться), но есть глюки.
Пожауйста, подскажите где исправить, а то уже идеи кончились wacko.gif
Вот что получилось
uses
crt,graph;
var
a,b:word;
x,y,x1,y1:integer;

procedure poisk (var x,y:word);
var
c:word;
begin
if x<y then begin
c:=x;
x:=y;
y:=c
end
end;

function kol(a,b:word):word;
var
s,k:word;
l:word;
a1,b1:word;
begin
k:=0;
s:=1;
l:=0;
a1:=a;
b1:=b;
while a<>b do begin
while a>b do begin
k:=k+b;
a:=abs(a-b);
line(50+k,100+b1,50+k,100+b1-b)
end;
while b>a do begin
l:=a*s;
line(50+k,100+l,50+k+a,100+l); //<---Ошибка здесь
b:=abs(b-a);
inc(s)
end;
end;
end;

begin
initgraph(x1,y1,'');
clrscr;
outtextxy(10,10,' Vvedite: ');
readln(a,b);
a:=a*10;
b:=b*10;

line(50,100,50+a,100);
line(50,100,50,100+b);
line(50,100+b,50+a,100+b);
line(50+a,100,50+a,100+b);
kol(a,b);
readkey;
closegraph
end.


Добавлено через 15 мин.
Если ввести 5 и 17 то получается что-то страшное blink.gif

Добавлено через 9 мин.
а если 17 и 5 то норм mega_chok.gif


Эскизы прикрепленных изображений
Прикрепленное изображение
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


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

 



- Текстовая версия 22.06.2025 0:17
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"