Про квартиры и подъезды, а так же If и Else Опции

[kep]

Тут кто то недавно спрашивал как сделать так чтобы по номеру квартиры был подъезд и этаж http://forum.pascal.net.ru/index.php?showtopic=6158 . У меня такое решение. Проверил работает, но если что не так(например,можно проще написать), поправьте.
:low:

Код

program dom;
Uses CRT;
var nomer,podezd,etaz:integer;
begin clrscr;
writeln('Vvedite nomer kvartiri: ');
readln(nomer);
if (nomer>72) or (nomer<1 ) then
writeln('V nashem dome net kvartiri s takim nomerom');
if (nomer>=1) and (nomer<=36) then podezd:=1;
if (nomer>=37) and (nomer<=72) then podezd:=2;
writeln('Nomer neobhodimovo vam podezda  ', podezd );
if (nomer>=1) and (nomer<=4) then etaz:=1;
if (nomer>=5) and (nomer<=8) then etaz:=2;
if (nomer>=9) and (nomer<=12) then etaz:=3;
if (nomer>=13) and (nomer<=16) then etaz:=4;
if (nomer>=17) and (nomer<=20) then etaz:=5;
if (nomer>=21) and (nomer<=24) then etaz:=6;
if (nomer>=25) and (nomer<=28) then etaz:=7;
if (nomer>=29) and (nomer<=32) then etaz:=8;
if (nomer>=33) and (nomer<=36) then etaz:=9;
if (nomer>=37) and (nomer<=40) then etaz:=1;
if (nomer>=41) and (nomer<=44) then etaz:=2;
if (nomer>=45) and (nomer<=48) then etaz:=3;
if (nomer>=49) and (nomer<=52) then etaz:=4;
if (nomer>=53) and (nomer<=56) then etaz:=5;
if (nomer>=57) and (nomer<=60) then etaz:=6;
if (nomer>=61) and (nomer<=64) then etaz:=7;
if (nomer>=65) and (nomer<=68) then etaz:=8;
if (nomer>=69) and (nomer<=72) then etaz:=9;
writeln('Nomer neobhodimovo vam etaza  ', etaz );
end.

Сообщение отредактировано: kep - 15.09.2005 17:40

[Shura]

Надеюсь, это шутка? Ну кто ж так делает?.. А если бы квартир было 10000 - ты бы тоже так решал?

[kep]

нет, не думаю, скорее всего бы я ещё пару дней к той паре что есть язык учил. На данный момент это всё что я знал Поэтому и просьба была поправить, но как видимо давать советы не в тему проще :nono:

[Shura]

Пожалуйста...

Код

Var
p, k, e: Byte;
Begin
repeat
 Write('Введите номер квартиры: ');
 ReadLn(k);
 WriteLn;
  if (k < 1)or(k > 72)
  then WriteLn('Квартир нумеруются от 1 до 76! Вводите корректно!')
until (k >=1)and(k <= 72);

if k > 36
then begin
      p:=2;
      k:=k-36
     end
else p:=1;

e:=((k-1) div 4)+1;

Write(p, ' подъезд, ', e, ' этаж.');
ReadLn
End.

Сообщение отредактировано: Shura - 15.09.2005 18:10

[kep]

Да, работает, но как быть с номерами большими или меньшими чем существует квартир?

[Shura]

Исправил...

[kep]

Мда, всё просто, спасибо за подсказку!

[klem4]

а я вот так решил :

uses crt;
var
   n : integer;

Begin

   clrscr;

   write('n='); readln(n);

   writeln(' Подъезд : ', n div 37 + 1 );
   write(' Этаж : ');
   case n <= 36 of
      True : write( (n-1) div 4 + 1);
      false: write( (n-37) div 4 + 1);
   end;

   readln;

end.

;)

Сообщение отредактировано: klem4 - 15.09.2005 18:34

[volvo]

klem4, а так слабо? Без Case?

uses crt;
var
   k, p : integer;

Begin
   clrscr;
   write('k='); readln(k);

   p := (k div 37) + 1;
   k := (k mod 37) + pred(p);

   writeln(' Подъезд : ', p );
   write(' Этаж : ', (pred(k) div 4) + 1);
   readln;
end.