Algofil
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата: for i:=1 to 15 do
begin
if odd(dec) then bin:="1"+bin
else bin:="0"+bin;
shr(dec);
end; |
Цитата:| тут несколько ошибок и один недочёт, сам найдёшь? |
Цитата:| ты что там, на листочке компилируешь? |
ты как в воду глядел, нету у мну компилятора, точнее не запускается и некогда разбираться почему, да и не приветствуется у нас ковыряние в казенных тачках, выдали с залитым клоном и пользуйся...
ошибок нашел 1 штук, считал сдвиг процедурой (есть такой подход в синтаксисах, все считать процедурами и/или функциями) если написать dec:=dec shr 1; вместо shr(dec); должно работать, недочеты:
1. до входа в цикл проверять dec: равно 0 - печатай 0, меньше 0 - печатай внутреннее представление или че хошь, больше 0 - цикл пока dec больше 0.
намана? что скажешь про мое решение версус решение akaGM?
Цитата:| кстати, Algofil -- от ЛюбительАлгоритмов, т.е. Алгоритмист? |
да, это старая история, нику лет 15, в разных форумах... уже и в алкофила пытались перекрестить ))) есть такой грешок.
по поводу девушка просит:
Цитата:| 2. Ввести пятизначное число, вывести на экран на первой строке число единиц, содержащихся в этом числе на второй строке число десятков и число единиц, содержащихся в числе на третьей строке число сотен, число десятков и число единиц на четвертой строке число тысяч, сотен, десятков и число единиц на пятой строке число десятков тысяч, тысяч, сотен, десятков и число единиц. Отвести под каждую цифру 4 знакоместа. |
1. Издевательский вариант: преобразовать число в cheslo:string[5] (если страховка не нужна - читать сразу строку) и вывести построчно:
' '+cheslo(5)
' '+cheslo(4)+' '+cheslo(5)
' '+cheslo(3)+' '+cheslo(4)+' '+cheslo(5)
....
2. Стандартный вариант: написать правильные циклы (если препод любит фор, то форы) в которых правильно делить, округлять, вычитать и т.п.
3. Хитрый вариант: считывать по одному символу в рекурсивную процедуру с ограничением по глубине 5, печатать символы при входе в одну строку, потом вывалиться и мувить в видеопамяти нужные куски в указанные позиции вывода
|
Всего записей: 247 | Зарегистр. 19-09-2007 | Отправлено: 09:58 26-10-2007 | Исправлено: Algofil, 10:31 26-10-2007 |
|
