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

Помогите, пожалуйста!   Найти похожие ветки 

← →
MaksON   (2007-05-10 13:41) [0]

Нужно написать прогу, создающую число, обратное введённому.. Я тут пробовал.. Я только разбираюсь с Delphi;)
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
s:string;
num:real;
begin
i:=1;
j:=length(s);
while i<=j do
 begin
   while s[i]=" " do
     i:=i+1;
   while s[j]=" " do
     j:=j-1;
   if s[i]=s[j]
     then
       begin
        num:=i+j;
        Label1.Caption:= FloatToStr(num);
       end;
    i:=i+1;
    j:=j-1;
  end;
end;
end.

---

← →
stakan ©   (2007-05-10 13:49) [1]

procedure TForm1.Button1Click(Sender: TObject);
begin
   Label1.Caption := ReverseString(Edit1.Text);
end;

---

← →
Kostafey ©   (2007-05-10 13:50) [2]

> число, обратное введённому

По-моему число обратное X это -X ?

Цифры числа нужно записать в обратном порядке ?

---

← →
MaksON   (2007-05-10 13:55) [3]

Да, нужно цифры числа записать в обратном порядке!

---

← →
{RASkov} ©   (2007-05-10 13:59) [4]

> [3] MaksON   (10.05.07 13:55)

См [1]. А то что в [0] - это без пузыря не разберешь...:(
Вот это:
s:string;
num:real;
begin
i:=1;
j:=length(s);
как ты думаешь чему будет равно J? если, это конечно, код такой какой есть в конечном варианте. Ну и дальше бред....

---

← →
MaksON   (2007-05-10 14:04) [5]

Да я и не сомневался, что это бред! Я в Delphi не соображаю ваще!

---

← →
MaksON   (2007-05-10 14:12) [6]

Пишет: "Undeclared Identifier: "ReverseString"" В чём проблема?

---

← →
stakan ©   (2007-05-10 14:16) [7]

uses StrUtils;

---

← →
MaksON   (2007-05-10 14:19) [8]

Спасибо большое, разобрался!

---

← →
MaksON   (2007-05-10 14:28) [9]

Можно ещё небольшой вопросик? А как с оператором while такую прогу сделать?

---

← →
Хаванагил   (2007-05-10 14:51) [10]

посмотри реализацию Reverse в StrUtils, наверняка там вайл или что то такое что в вайл можно переделать если уж он так нужен.

---

← →
{RASkov} ©   (2007-05-10 14:51) [11]

> [9] MaksON   (10.05.07 14:28)

function ReverseStringWithWhile(const AText: string): string;
var
 I: Integer;
 P: PChar;
begin
 I:=Length(AText);
 SetLength(Result, I);
 P := PChar(Result);
 while I>0 do begin
   P^ := AText[I];
   Inc(P); DEC(I);
 end;
end;
:^)

---

← →
{RASkov} ©   (2007-05-10 14:53) [12]

> [10] Хаванагил   (10.05.07 14:51)

Там for... Автор вопроса приколист. :) Он познает Делфи.

---

← →
Desdechado ©   (2007-05-10 15:51) [13]

> Kostafey ©   (10.05.07 13:50) [2]
>> число, обратное введённому
> По-моему число обратное X это -X ?
-X - это противоположное. А обратное, это 1/Х

---

← →
Zeqfreed ©   (2007-05-10 15:52) [14]

function ReverseInteger(n : Integer) : String;
begin
 Result := "";

 if (n = 0) then begih Result := "0";
 while (n > 0) do begin
   Result := Result + IntToStr(n mod 10);
   n := n div 10;
 end;
end;


---

← →
Zeqfreed ©   (2007-05-10 15:54) [15]

Блин :)
sed "s/ begih//g"

---

← →
Kolan ©   (2007-05-10 16:15) [16]

http://delphimaster.net/view/15-1178275895/

:)

---

← →
MaksON   (2007-05-20 17:44) [17]

Кто знает, подскажите как для заданного натурального числа n определить число, записанное цифрами числа n в обратном порядке только при помощи оператора WHILE. С ReverseString мне понятно..

---

← →
begin...end ©   (2007-05-20 18:37) [18]

var
 n, r: Cardinal;
begin
 r := 0;
 while n <> 0 do
 begin
   r := r * 10 + n mod 10;
   n := n div 10
 end
end

---

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

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



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