Написать программу которая поможет определить в какой подъезд, на какой этаж, и в какую квартиру нужно идти почтальону

[qpuTuJlb]

Мне задали написать программу по задаче:
Есть почтальон, ему известно:
1)сколько подъездов в доме;
2)сколько этажей в доме;
3)сколько квартир на одном этаже.
Написать программу которая поможет определить в какой подъезд, на какой этаж, и в какую квартиру нужно идти если нужна квартира x, предусмотреть случай если такой квартиры не существует.
Edit1-количество квартир на 1 этаже
Edit2-количество этажей в подъезде
Edit3-количество подъездов в доме
Edit4-номер квартиры которую нужно найти
P.S. мне решенный код не нужен, кто может просто объясните последовательность действий и что нужно делать.

[СтёпышЪ]

находим количество квартир в подъезде(KOL)
затем через деление нацело (N div KOL)+1 найдем номер подъезда(+1 потому что если номер квартиры допустим 5 а в подъезде 10 квартир тогда при делении на цело получим 0 а должно быть 1 т.е. перый подъезд)
подъезд нашли...
что бы узнать на какой этаж ему идти нужно ((N mod KOL) div K)+1

N-номер квартиры
KOL-количество квартир в подъезде
K-количество квартир на этаже


как то так если есть вопросы спрашивай )

[qpuTuJlb]

проблема с домом на этаже, вот я ввёл например кол. квартир 4, этажей 5, подъездов 5 и например хочу найти квартиру 1, то оно показывает не 1 по щёту квартиру а 2, т.к. ((N mod KOL) div K)+1. Как сделать условие чтобы оно на 1 этаж не шло?

[СтёпышЪ]

не понял слегка ошибки...
но если подставить значения то должно показывать 1 подъезд 1 этаж...

Как сделать условие чтобы оно на 1 этаж не шло?

всмысле не шло на первый этаж?

можешь показать код который ты написал?

[qpuTuJlb]

на 1 этаж шло, но когда мне нада узнать какая квартира по щёту тоесть если мне нужна квартира на первом этаже, например 2 то программа показывает что это 3 квартира по щёту а не 2

var
p,kol,k,n:integer;
begin
k:=strtoint(Edit1.Text);
kol:=strtoint(Edit2.Text);
p:=strtoint(Edit3.Text);
n:=strtoint(Edit4.Text);
k:=(n div kol)+1;
kol:=((n mod kol)div k)+1;
Showmessage(inttostr(k)+(' этаж, ')+(inttostr(kol)+(' квартира, ')));
end;

[СтёпышЪ]

N mod K
будет говорить какая по счету на лестничной площадке)

var
p,h,kol,k,n,Nh:integer;
begin
k:=strtoint(Edit1.Text);
h:=strtoint(Edit2.Text);
p:=strtoint(Edit3.Text);
n:=strtoint(Edit4.Text);
kol:=k*h  { под kol я имел ввиду сколько всего квартир в подъезде, т.е. если 5 этажей по 4 квартиры то kol=20}
k:=(n div kol)+1;
Nh:=((n mod kol)div k)+1;
p:=n mod k;
Showmessage(inttostr(k)+(' Подъезд, ')+(inttostr(Nh)+(' этаж, ')+(inttostr(p)+(' квартира, ')));
end;

вот так должно работать)

[BDA]

СтёпышЪ, опять что-то не то
Ввожу 3 квартиры на этаже, 10 этажей, 10 подъездов. Программа "говорит", что 3 квартира в 1 подъезде на 4 этаже и имеет номер 0 на этаже.

Вот такой топорненький вариант:

var
k,h,p,n,p1,h1,k1:integer;
begin
k:=strtoint(Edit1.Text);
h:=strtoint(Edit2.Text);
p:=strtoint(Edit3.Text);
n:=strtoint(Edit4.Text);
p1:=n div (k*h);
if n mod (k*h)<>0 then
  inc(p1);
n:=n-(p1-1)*k*h;
h1:=n div k;
if n mod k<>0 then
  inc(h1);
k1:=n-(h1-1)*k;
Showmessage(inttostr(p1)+' Подъезд, '+inttostr(h1)+' этаж, '+inttostr(k1)+' квартира');
end;

Вариант чуть получше:

var
  k, h, p, n, p1, h1, k1: integer;
begin
  k := strtoint(Edit1.Text);
  h := strtoint(Edit2.Text);
  p := strtoint(Edit3.Text);
  n := strtoint(Edit4.Text);
  p1 := n div (k * h) + 1 mod (1 + n mod (k * h));
  n := n - (p1 - 1) * k * h;
  h1 := n div k + 1 mod (1 + n mod k);
  k1 := n - (h1 - 1) * k;
  Showmessage(inttostr(p1) + ' Подъезд, ' + inttostr(h1) + ' этаж, ' + inttostr(k1) + ' квартира');
end;

Перед showmessage достаточно проверять, что p1<=p, чтобы этот подъезд существовал, и n>0, чтобы существовала эта квартира.

[qpuTuJlb]

спасибо вам обоим, BDA отзыв добавить немогу( пишет уже оставлял тебе