| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
2 задачки на написание программы
Богдан © (2011-12-22 07:41:00)1.Дан массив размера N. Осуществить циклический сдвиг элементов массива вправо на одну позицию.
2.Описать процедуру SumDigit(N,S), находящую сумму цифр S целого числа N (N — входной, S — выходной параметр). Используя эту процедуру, найти суммы цифр пяти данных чисел.
app (2011-12-22 12:52:00) [1]Две проблемы - две темы, к тому же нормально оформленые!
Dimka Maslov (2011-12-22 12:50:00) [2]
> У меня, кстати, тоже походу она же.
А разве у шестнадцатеричных чисел есть знак минуса?
Ega23 (2011-12-22 12:41:00) [3]У меня, кстати, тоже походу она же.
Dimka Maslov (2011-12-22 12:29:00) [4]
> Не веришь - проверь
Верю. И раньше верил.
Ega23 (2011-12-22 12:27:00) [5]
> В 17-ой строке. Я знаю.
Не веришь - проверь. SumDigit(-10, i);
Dimka Maslov (2011-12-22 12:23:00) [6]
> И, кстати, у тебя ошибка.
В 17-ой строке. Я знаю.
Inovet (2011-12-22 12:07:00) [7]> [3] И. Павел © (22.12.11 11:28)
> чтобы в просьбе сделдать все за себя даже вопроса не поставить,
> не говоря уже о «пожалуйста»...
Щас ответ последует: "Мне на форуме ххх сразу ответили без ваших понтов, а вы все лохи и сами ничё не знаете!!!!!!!"
Ega23 (2011-12-22 12:07:00) [8]
> Это же получается сумма шестнадцатеричных чисел
В ТЗ ничего про систему счисления не сказано.
И, кстати, у тебя ошибка.
Dimka Maslov (2011-12-22 11:58:00) [9]
> 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;
Ega23 (2011-12-22 11:29:00) [10]
> 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;
И. Павел (2011-12-22 11:28:00) [11]Это насколько нужно привыкнуть получать и не отдавать ничего в замен, чтобы в просьбе сделдать все за себя даже вопроса не поставить, не говоря уже о «пожалуйста»...
stas (2011-12-22 11:00:00) [12]
> Богдан (22.12.11 07:41)
Отлично!
OW (2011-12-22 08:33:00) [13]2 кошелька для оплаты задачек
Яндекс.Деньги
4100158405740
WebMoney
Z833243435981
R307014785988
| |
