Про квартиры и подъезды, а так же If и Else |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Про квартиры и подъезды, а так же If и Else |
kep |
15.09.2005 13:26
Сообщение
#1
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Репутация: 0 |
Тут кто то недавно спрашивал как сделать так чтобы по номеру квартиры был подъезд и этаж http://forum.pascalnet.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 13:40 |
Shura |
15.09.2005 13:47
Сообщение
#2
|
Пионер Группа: Пользователи Сообщений: 136 Пол: Мужской Реальное имя: Александр Репутация: -2 |
Надеюсь, это шутка? Ну кто ж так делает?.. А если бы квартир было 10000 - ты бы тоже так решал?
-------------------- Старайтесь восполнять пробелы в области незнания! ;-D
|
kep |
15.09.2005 13:51
Сообщение
#3
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Репутация: 0 |
нет, не думаю, скорее всего бы я ещё пару дней к той паре что есть язык учил. На данный момент это всё что я знал Поэтому и просьба была поправить, но как видимо давать советы не в тему проще :nono:
|
Shura |
15.09.2005 13:56
Сообщение
#4
|
Пионер Группа: Пользователи Сообщений: 136 Пол: Мужской Реальное имя: Александр Репутация: -2 |
Пожалуйста...
Код 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 14:10 -------------------- Старайтесь восполнять пробелы в области незнания! ;-D
|
kep |
15.09.2005 14:02
Сообщение
#5
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Репутация: 0 |
Да, работает, но как быть с номерами большими или меньшими чем существует квартир?
|
Shura |
15.09.2005 14:11
Сообщение
#6
|
Пионер Группа: Пользователи Сообщений: 136 Пол: Мужской Реальное имя: Александр Репутация: -2 |
Исправил...
-------------------- Старайтесь восполнять пробелы в области незнания! ;-D
|
kep |
15.09.2005 14:16
Сообщение
#7
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Репутация: 0 |
Мда, всё просто, спасибо за подсказку!
|
klem4 |
15.09.2005 14:33
Сообщение
#8
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
а я вот так решил :
uses crt; ;) Сообщение отредактировано: klem4 - 15.09.2005 14:34 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
volvo |
15.09.2005 14:37
Сообщение
#9
|
Гость |
klem4, а так слабо? Без Case?
uses crt; |
Текстовая версия | 26.04.2024 15:48 |