| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Спасите-помогите!!!!! [D6]

Minutka ©   (2007-03-24 11:53:00) 

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

---

Джо   (2007-03-26 05:25:00) [1]

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


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

---

Zeqfreed   (2007-03-26 04:51:00) [2]

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 03:56:00) [3]

Орех!

---

RASkov   (2007-03-24 12:11:00) [4]

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-24 12:06:00) [5]

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

---

Наверх