program SevgililerGunu;
{$APPTYPE CONSOLE}
uses SysUtils;
Type
TInsan = Class;
ISevgi = Interface
['{0D008E11-6FFF-41C1-9E4B-7601F7517A3C}']
procedure Ask_Sevgiye_Donusur;
procedure Ask_Uc_Yil_Surer;
procedure Ask_Her_Zaman_Ask_Kalir;
procedure Sevgi_Mutlaka_Olmalidir;
function Sevgi_Devam_Ediyor: Boolean;
End;
IOmur = Interface
function Sev(Const Kim, Kimi: TInsan): ISevgi;
End;
TInsan = Class
End;
TKiz = Class(TInsan)
End;
TErkek = Class(TInsan)
End;
Var
Bir_Kiz: TKiz;
Bir_Erkek: TErkek;
Omur: IOmur;
begin
Bir_Kiz:=TKiz.Create;
Bir_Erkek:=TErkek.Create;
try
Omur:=Yasam_Ile_Olum_Arasindaki_Omur;
While Omur.Sev( Bir_Kiz, Bir_Erkek ).Sevgi_Devam_Ediyor Do;
finally
Bir_Kiz.Free;
Bir_Erkek.Free;
end;
end.
Zeki sistemler: Yapay zeka tekniklerini kullanan sistemlerdir. Sistem: Ortak bir amaca hizmet etmek için bir araya gelmiş bir ya da birden fazla elemanın uyum içinde çalışmasıdır. Melez Zeki Sistemler: Bir ya da birden fazla zeki sistemin bir araya gelmesi ve uyum için çalışmasıdır. Neden melez sisteme ihtiyaç var? Birçok iyi sistem bir araya getirilerek daha iyi sistemler oluşturulabilir. Uzman sistemlerdeki kararlılık, Genetik algoritmaların rastgeleliği ve True/False olarak ifade edilemeyen ancak yine de çözüm beklenen durumlarda bulanık sistemlerin kullanılarak "Melez Sistemlerin" tasarlanması birçok soruna çözüm sağlayabilir. Üst Zeki Sistemler: İnsan zekasına biraz daha yaklaşmayı hedefleyen ve şuan üzerinde düşündüğüm, çok daha fazla kaynak okumamı gerektiren sistemlerdir. Bu sistemlerle insan zekasına biraz daha yaklaşılması hedeflenebilir. Üst ( Meta ) Zeki Sistem (ÜZS) ile aynı anda birden fazla yapay zeka tekniği ya da alt sistemler kullanılabilir. Görüntü tanıma t