Yeni Kayıt
Konudaki Resimler
|
Hızlı 
Bildirim
DELPHİ PROGRAM HATASI ACİL CEVAP LÜTFEN
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir - 2 Masaüstü
Giriş
Mesaj
-
-
a yi görsek iyi olur kodun tamamını yapıştırın buraya tür uyşmazlığı var string olacak yer integer olmuş -
Gökşen PASLI
G
kullanıcısına yanıt
unit unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Memo1: TMemo;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Memo2: TMemo;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1:TForm;
a:array[1..10] of array[1..10] of integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
m,n,i,j:integer;
begin
m:=strtoint(Edit1.Text);
n:=strtoint(Edit2.Text);
if m=n then
begin
for i:= 1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=strtoint(inputbox('Değer Atama Penceresi','A Matrisinin'+ ' ' +inttostr(i)+ '. satır'+' '+ inttostr(j) + '. sütunundaki değerini giriniz','??'));
Memo1.Text:=Memo1.Text+' '+inttostr(a[i,j]);
end;
Memo1.Text:=Memo1.Text+#13#10;
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
a:array[1..10] of array[1..10] of integer;
i,j,k,m:integer;
begin
for k:=1 to m do begin
for i:=1 to m do begin
for j:=1 to m do
if Not((i=k)) or ((j=k)) then
a[i,j]:=inttostr(a[i,j])-inttostr(a[i,k])*inttostr(a[k,j])/inttostr(a[k,k]);
End;
a[k,k]:=-1/inttostr(a[k,k]);
for i:=1 to m do
if Not (i=k) then a[i,k]:=a[i,k]*a[k,k];
for j:=1 to m do
if Not (j=k) then a[k,j]:=a[k,j]*a[k,k];
End;
for i:=1 to m do begin
for j:=1 to m do begin
Memo2.Text:=Memo2.Text+' '+inttostr(-a[i,j]);
end;
Memo2.Text:=Memo2.Text+#13#10;
end;
end;
end.
-
arrayı integer tanımlamışsın ama string işlemi yapıyorsun ayrıca bölme işlemi de var ordada sorun verecek -
Gökşen PASLI
G
kullanıcısına yanıt
Hocam yani doğrusu ne şekilde olacak yardımcı olabilir misin kodlarda daha yeni öğreniyorum delphiyi ve bu ödevi yapmam lazım -
2.buttona tıklayınca ne yapacak hadi birincisi matrix oluşturma 2.buttona tıklamada bişey olmadı bende kodlamada yanlışlık var gibi -
Gökşen PASLI
G
kullanıcısına yanıt
2.butona basınca tersini almasını istiyorum delphide matrisin tersini alma kodlarını bulamadım girmediğim forum sitesi kalmadı pascal kodlarını buldum onları çevirmeye çalıştım olmadı
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
