Форум «Всё о Паскале» _ Задачи _ Про квартиры и подъезды, а так же If и Else
Автор: kep 15.09.2005 17:26
Тут кто то недавно спрашивал как сделать так чтобы по номеру квартиры был подъезд и этаж 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.
Автор: Shura 15.09.2005 17:47
Надеюсь, это шутка? Ну кто ж так делает?.. А если бы квартир было 10000 - ты бы тоже так решал?
Автор: kep 15.09.2005 17:51
нет, не думаю, скорее всего бы я ещё пару дней к той паре что есть язык учил. На данный момент это всё что я знал Поэтому и просьба была поправить, но как видимо давать советы не в тему проще :nono:
Автор: Shura 15.09.2005 17:56
Пожалуйста...
Код
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.
Автор: kep 15.09.2005 18:02
Да, работает, но как быть с номерами большими или меньшими чем существует квартир?
Автор: Shura 15.09.2005 18:11
Исправил...
Автор: kep 15.09.2005 18:16
Мда, всё просто, спасибо за подсказку!
Автор: klem4 15.09.2005 18:33
а я вот так решил :
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.
;)
Автор: volvo 15.09.2005 18:37
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.