Срочно нужна помощь. - Программирование - Delphi/Pascal/Object Pascal

Срочно нужна помощь.

max1m97

Дата: Четверг, 25 Октября 2012, 16:02 | Сообщение # 1

участник

Сообщений: 174

Сейчас нет на сайте

Здраствуйте, друзья! надо написать прогу , мучаемся с 7 утра, вот условие

Quote

У Деда Мороза есть волшебный мешок. Если его тряхнуть, когда в нем лежит один подарок, то там окажется три подарка. Если его тряхнуть, когда в нем лежит два подарка, то там окажется четыре подарка. Если тряхнуть, когда в нем 2008 подарков, их там станет 2009. Если его тряхнуть, когда в нем не 1, не 2, и не 2008 подарков, то количество подарков не изменится.
Подарки можно доставать из мешка и класть рядом с мешком, а также помещать обратно в мешок в любой момент. Изначально у Деда Мороза A подарков. Может ли он получить ровно B подарков? Если да, то за какое минимальное количество встряхиваний мешка?
Входные данные. В первой строке содержатся два целых A и B (1<=A, B<=10 9)
Выходные данные. Выведите единственное число - минимальное количество встряхиваний, которое должен сделать Дед Мороз, чтобы получить из A подарков B подарков. Если это сделать невозможно, вывести -1.

буду рад ЛЮБОЙ вашей помощи, заранее благодарю

даже 50 р на вебмани кину кто поможет, надо в течение часа написать а то умру с голода( у нас уже 18-00) еще уроки делать...буду очень рад, плюсы награды обеспечены любому кто поможет

Feraset

Дата: Пятница, 26 Октября 2012, 23:51 | Сообщение # 2

Издание игр

Сообщений: 737

Сейчас нет на сайте

ЛОВИ Moroz.rar

Фух - муторно, но вроде разобрался. Примерно так:

Code

implementation

{$R *.dfm}
var k:Integer;

procedure TForm1.btn1Click(Sender: TObject);     //Нужно 27 раз использовать2-ку и положить рядом, а затем вбить 1-цу и положить рядом.
begin

Inc(k);
edt3.Text:=IntToStr(k);
if edt1.Text = '1' then
begin
edt1.Text:='3';
end;

if edt1.Text = '2' then
edt1.Text:='4';

if edt1.Text = '2008' then
edt1.text:='2009';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   k:=0;
   if edt2.Text='' then
   edt2.Text:='0';
end;

procedure TForm1.btn2Click(Sender: TObject);
var a,b,c:integer;
begin
a:=StrToInt(edt2.text);
b:=StrToInt(edt1.text);
c:=a+b;
edt2.Text:=IntToStr(c);
edt1.text:='';
end;

procedure TForm1.btn3Click(Sender: TObject);
var a:Integer;
begin
   a:=StrToInt(edt2.text);
   edt1.Text:=IntToStr(a);
end;

end.

Нужны коменты? happy

Спасибо пользователю TimCruz, за то что научил меня спокойствию, терпимости и вере в цели.

Сообщение отредактировал Feraset - Пятница, 26 Октября 2012, 23:54