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

← →
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... Автор вопроса приколист. :) Он познает Делфи.

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

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;

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

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

:)

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

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

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

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