Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.005 c