Web sitemizin içeriğine ve tüm hizmetlerimize erişim sağlamak için Web sitemize kayıt olmalı ya da giriş yapmalısınız. Web sitemize üye olmak tamamen ücretsizdir.
Sohbetokey.com ile canlı okey oynamaya ne dersin? Hem sohbet et, hem mobil okey oyna!
Soru mu? Sorun mu? ''Bir Sorum Var?'' sistemimiz aktiftir. Paylaşın beraber çözüm üretelim.
program class_kullanimi;
{$APPTYPE CONSOLE}
type
yer=class
private
x,y:integer;
public
procedure verioku(ilkx,ilky:integer);
procedure veriyiyaz(yx,yy:integer);
end;
procedure yer.verioku(ilkx,ilky:integer);
begin
x:=ilkx;
y:=ilky;
end;
procedure yer.veriyiyaz(yx,yy:integer);
begin
write('X:İ,X,İ İ,'Y:İ,Y);
end;
var
y1:yer;
begin
y1.verioku(5,10);
y1.veriyiyaz(y1.x,y1.y);
readln;
end.