Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

MaksON © (2007-05-10 13:41:00)
Нужно написать прогу, создающую число, обратное введённому.. Я тут пробовал.. Я только разбираюсь с 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.

begin...end (2007-05-20 18:37:00) [1]
var
n, r: Cardinal;
begin
r := 0;
while n <> 0 do
begin
r := r * 10 + n mod 10;
n := n div 10
end
end

MaksON (2007-05-20 17:44:00) [2]
Кто знает, подскажите как для заданного натурального числа n определить число, записанное цифрами числа n в обратном порядке только при помощи оператора WHILE. С ReverseString мне понятно..

Kolan (2007-05-10 16:15:00) [3]
http://www.delphimaster.ru/cgi-bin/forum.pl?n=3&id=1178275895

:)

Zeqfreed (2007-05-10 15:54:00) [4]
Блин :)
sed 's/ begih//g'

Zeqfreed (2007-05-10 15:52:00) [5]
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;

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

{RASkov} (2007-05-10 14:53:00) [7]
> [10] Хаванагил (10.05.07 14:51)

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

Хаванагил (2007-05-10 14:51:00) [8]
посмотри реализацию Reverse в StrUtils, наверняка там вайл или что то такое что в вайл можно переделать если уж он так нужен.

{RASkov} (2007-05-10 14:51:00) [9]
> [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;
:^)

MaksON (2007-05-10 14:28:00) [10]
Можно ещё небольшой вопросик? А как с оператором while такую прогу сделать?

MaksON (2007-05-10 14:19:00) [11]
Спасибо большое, разобрался!

stakan (2007-05-10 14:16:00) [12]
uses StrUtils;

MaksON (2007-05-10 14:12:00) [13]
Пишет: "Undeclared Identifier: 'ReverseString'" В чём проблема?

MaksON (2007-05-10 14:04:00) [14]
Да я и не сомневался, что это бред! Я в Delphi не соображаю ваще!

{RASkov} (2007-05-10 13:59:00) [15]
> [3] MaksON (10.05.07 13:55)

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

MaksON (2007-05-10 13:55:00) [16]
Да, нужно цифры числа записать в обратном порядке!

Kostafey (2007-05-10 13:50:00) [17]
> число, обратное введённому

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

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

stakan (2007-05-10 13:49:00) [18]
procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := ReverseString(Edit1.Text); end;

Наверх

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