Форум: "Начинающим";
Текущий архив: 2007.04.15;
Скачать: [xml.tar.bz2];

Вниз

Спасите-помогите!!!!!   Найти похожие ветки 

← →
Minutka   (2007-03-24 11:53) [0]

Как задать выбрасывание символа из многозначного числа через цикл for???

---

← →
ЮЮ ©   (2007-03-24 12:06) [1]

наверно так же, как и через цикл while :)
А теперь это же
 выбрасывание символа из многозначного числа
но по-русски, и с глаголами желательно

---

← →
RASkov   (2007-03-24 12:11) [2]

function DelChars(const S: string; Chr: Char): string;
var I: Integer;
begin
 Result := S;
 for I := Length(Result) downto 1 do begin
   if Result[I] = Chr then Delete(Result, I, 1);
 end;
end;

var N: Integer;
.....
N:=StrToIntDef(DelChars(IntToStr(1234577223), "7"), 0);

Аааа-а-а-а-а ничего не понял... :(

---

← →
Углук ©   (2007-03-26 03:56) [3]

Орех!

---

← →
Zeqfreed ©   (2007-03-26 04:51) [4]

program eject;

{$APPTYPE CONSOLE}

type
 TDigit = 0..9;
 TEjectProc = procedure(const digit : TDigit);

procedure DoEject(const digit : TDigit);
begin
 WriteLn(digit);
end;

function EjectDigits(Source : Integer; Eject : TEjectProc) : Integer;
var
 i, num : Integer;
 dig : TDigit;
begin
 num := 0;
 for i := 1 to 32 do begin
   dig := Source mod 10;
   Source := Source div 10;
   Eject(dig);

   if (Source = 0) then break;
 end;

 Result := num;
end;

var
 n : Integer;

begin
 ReadLn(n);
 EjectDigits(n, DoEject);
end.

---

← →
Джо ©   (2007-03-26 05:25) [5]

> [0] Minutka   (24.03.07 11:53)
> Как задать выбрасывание символа из многозначного числа через
> цикл for???


Ни в многозначном, ни даже в однозначном числе, Вы не поверите, нет ни одного символа.

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.04.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.108 c