|
ru.algorithms
- RU.ALGORITHMS ----------------------------------------------------------------
From : Egor Tsygvintsev 2:452/77.57 04 Oct 2002 21:34:38
To : Andrew Ezhguroff
Subject : Как закодировать?
--------------------------------------------------------------------------------
Пятница Октябрь 04 2002 09:45, Andrew Ezhguroff писал Oleg I. Khovayko:
OIK>> A!!! Перепутал условие с сишным do {} while();
OIK>> А в repeat/until там же выход по TRUE, а не по FALSE!!!
OIK>> Короче, поправка:
OIK>> Hадо вместо "until x <> 0;" писать "until x = 0;"
AE> Все равно не работает: если у нас, например, десятичное число 192
AE> (двоичное - 11000000), то твоя программа выдаст 0000000011 вместо
AE> 0000000011000000.
люди, не мучайтесь :)))
ДДД Тут начинается файл golded.out ДДД
var s,c:string;
x:integer;
procedure DecToBin(x:integer);
begin
if x<>0 then
begin
str(x mod 2,c);
s:=c+s;
DecToBin(x shr 1);
end;
end;
begin
readln(x);
DecToBin(x);
writeln(s);
end.
ДДД А здесь golded.out кончается ДДД
Всего доброго,
Egor Tsygvintsev.
--- ... Линия отреза ...
* Origin: Крепче за шоферку держись, баран! (2:452/77.57)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
