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

Вниз

BuilderToDelphi   Найти похожие ветки 

← →
AndreySoft   (2003-11-30 15:35) [0]

Кто нибудь может перевести вот этот код из С++ в Object Pascal:
//---------------------------------------------------------------------------
#include<stdio.h>
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
char a[3011],p[2];
int i,j,k,k1,n,b;
n=StrToInt(Edit1->Text);
for(i=0;i<3011;i++) a[i]=" ";
a[3010]="2";
k1=0;
for (j=0;j<n-1;j++)
{
for (i=3010;i>=0;i--)
{
p[0]=a[i];
b=atoi(p);
k=b*2+k1; k1=0;
if (k>9) {k1=k/10; k=k%10;}
p[0]="0";
p[1]="\0";
itoa(k,p,10);
a[i]=p[0];
}
}
for (i=3010;i>=0;i--)
if (a[i]!="0")j=i;
FILE *s;
s=fopen("output.txt", "w");
for(i=j;i<3011;i++)
fprintf(s, "%c", a[i]);
fclose(s);
RichEdit1->Lines->LoadFromFile("output.txt");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
Заранее, всем спасибо!

---

← →
hooky-mars   (2003-11-30 15:42) [1]

А сам чтож. По чему всю проблему перелаживаеш на друрих? Если что конкретно не получается так спроси.

---

← →
Mr.Nobody   (2003-11-30 16:14) [2]

uses Unit1;

//--------------------------------------------------------------

{$R "*.dfm"}
var
Form1: TForm1;

//--------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
A: array[0..3010] of Char;
P: array[0..1] of Char;
I, J, K, K1, N, B: Integer;
S: TextFile;
begin
N:=StrToInt(Edit1.Text);
for I:=0 to 3010 do
A[I]:=#20;
A[3010]:="2";
K1:=0;
for J:=0 to n-1 do
begin
for I:=3010 downto 0 do
begin
P[0]:=A[I];
B:=atoi(P);
K:=B*2+k1;
k1:=0;
if k>9 then
begin
k1:=k div 10;
k:=k mod 10;
end;
P[0]:="0";
P[1]:=#0;
itoa(k,p,10);
a[I]:=p[0]
end;
end;
for I:=3010 downto 0 do
if (A[I]<>"0" then
J:=I;
AssignFile(s, "output.txt");
for I:=J to 3010 do
Write(s, A[i]);
CloseFile(s);
RichEdit1.Lines.LoadFromFile("output.txt");
end;

//--------------------------------------------------------------

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;

//--------------------------------------------------------------

проде примерно так, если галюнить будет, сам доделаешь

---

← →
AndreySoft   (2003-12-01 21:15) [3]

Всё вроде бы ничего, да вот только проблема в том что нет функции atoi в Delphi...

---

← →
yo   (2003-12-01 21:24) [4]

Зато есть StrToInt и Val

---

← →
AndreySoft   (2003-12-01 21:59) [5]

ты хочешь сказать что одно из них равносильна atoi?
Это ж бред...

---

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

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

Наверх

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