Форум: "Начинающим";
Текущий архив: 2012.04.15;
Скачать: [xml.tar.bz2];
Вниз2 задачки на написание программы Найти похожие ветки
← →
Богдан (2011-12-22 07:41) [0]1.Дан массив размера N. Осуществить циклический сдвиг элементов массива вправо на одну позицию.
2.Описать процедуру SumDigit(N,S), находящую сумму цифр S целого числа N (N — входной, S — выходной параметр). Используя эту процедуру, найти суммы цифр пяти данных чисел.
← →
OW © (2011-12-22 08:33) [1]2 кошелька для оплаты задачек
Яндекс.Деньги
4100158405740
WebMoney
Z833243435981
R307014785988
← →
stas © (2011-12-22 11:00) [2]
> Богдан (22.12.11 07:41)
Отлично!
← →
И. Павел © (2011-12-22 11:28) [3]Это насколько нужно привыкнуть получать и не отдавать ничего в замен, чтобы в просьбе сделдать все за себя даже вопроса не поставить, не говоря уже о «пожалуйста»...
← →
Ega23 © (2011-12-22 11:29) [4]
> 2.Описать процедуру SumDigit(N,S),function SumDigit(Value: Integer): Integer;
begin
Result := Value and $F;
while Value <> 0 do
begin
Value := Value shr 4;
Result := Result + (Value and $F);
end;
end;
← →
Dimka Maslov © (2011-12-22 11:58) [5]
> Ega23 © (22.12.11 11:29) [4]
Это же получается сумма шестнадцатеричных чиселprocedure SumDigit(N: Integer; var S: Integer);
var
i: Integer;
V: String;
begin
V := IntToStr(N);
S := 0;
for i := 1 to Length(V) do S := S + Ord(V[i]) - Ord("0")
end;
← →
Inovet © (2011-12-22 12:07) [6]> [3] И. Павел © (22.12.11 11:28)
> чтобы в просьбе сделдать все за себя даже вопроса не поставить,
> не говоря уже о «пожалуйста»...
Щас ответ последует: "Мне на форуме ххх сразу ответили без ваших понтов, а вы все лохи и сами ничё не знаете!!!!!!!"
← →
Ega23 © (2011-12-22 12:07) [7]
> Это же получается сумма шестнадцатеричных чисел
В ТЗ ничего про систему счисления не сказано.
И, кстати, у тебя ошибка.
← →
Dimka Maslov © (2011-12-22 12:23) [8]
> И, кстати, у тебя ошибка.
В 17-ой строке. Я знаю.
← →
Ega23 © (2011-12-22 12:27) [9]
> В 17-ой строке. Я знаю.
Не веришь - проверь. SumDigit(-10, i);
← →
Dimka Maslov © (2011-12-22 12:29) [10]
> Не веришь - проверь
Верю. И раньше верил.
← →
Ega23 © (2011-12-22 12:41) [11]У меня, кстати, тоже походу она же.
← →
Dimka Maslov © (2011-12-22 12:50) [12]
> У меня, кстати, тоже походу она же.
А разве у шестнадцатеричных чисел есть знак минуса?
← →
app © (2011-12-22 12:52) [13]Две проблемы - две темы, к тому же нормально оформленые!
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2012.04.15;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.003 c