Треугольник Паскаля

@Mischanja · Регистрация: 15.10.2009

Author24 — интернет-сервис помощи студентам

Сделал прогу, которая выводит треугольник Паскаля, но вместо вывода треугольника выводит ошибку..

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var n,i,j:integer;
function F(x,y:integer):integer;
begin
if (x=1)or(y=1)then F:=1
else F:=F(x-1,y)+F(x,y-1);
end;
begin
repeat
n:=Strtoint(Edit1.Text);
until n>0;
for i:=1 to n do
   begin
  label1.Caption:= ' ' + floattostr((2*(n-i)+1))+ #13 + floattostr(F(j,i-j+1));
end;
   end;
end.

помогите разобратся

@i8085 · 15.04.2010, 01:59

Как ни смешно, но этот пример блокирует антивирус.

@Puporev · 15.04.2010, 09:27

i8085, Это не в примере дело, а в том, что у Вас делфи инфицирована induc

Добавлено через 2 минуты

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
function F(x,y:integer):integer;
begin
if (x=1)or(y=1)then F:=1
else F:=F(x-1,y)+F(x,y-1);
end;
procedure TForm1.Button1Click(Sender: TObject);
var n,i,j,k:integer;
begin
n:=Strtoint(Edit1.Text);
for i:=1 to n do
 begin
  for k:=1 to 2*(n-i)+1 do
  label1.Caption:=label1.Caption+ ' ';
  for j:=1 to i do
  label1.Caption:=label1.Caption + inttostr(F(j,i-j+1))+'  ';
  label1.Caption:=label1.Caption+#13+#10;
 end;
end;
 
end.

@PierL · 03.03.2014, 10:16

Сообщение от Puporev

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
function F(x,y:integer):integer;
begin
if (x=1)or(y=1)then F:=1
else F:=F(x-1,y)+F(x,y-1);
end;
procedure TForm1.Button1Click(Sender: TObject);
var n,i,j,k:integer;
begin
n:=Strtoint(Edit1.Text);
for i:=1 to n do
 begin
  for k:=1 to 2*(n-i)+1 do
  label1.Caption:=label1.Caption+ ' ';
  for j:=1 to i do
  label1.Caption:=label1.Caption + inttostr(F(j,i-j+1))+'  ';
  label1.Caption:=label1.Caption+#13+#10;
 end;
end;
 
end.

Как этот код можно преобразовать, чтобы он этот треугольник до 100 мог построить?
Здесь ставишь 40, программа виснет, потому что типа данных Integer не хватает.

@Puporev · 03.03.2014, 15:25

Сообщение от PierL

чтобы он этот треугольник до 100 мог построить?

А что не до 1000?

@i8085 3218 / 2361 / 540 Регистрация: 11.09.2009 Сообщений: 8,604
	15.04.2010, 01:59	2
	Как ни смешно, но этот пример блокирует антивирус. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	03.03.2014, 15:25	5
	Сообщение от PierL чтобы он этот треугольник до 100 мог построить? А что не до 1000? 0