Alt Programlar: Parametresiz Prosedürler

**UnİQuE** · 06-14-2008, 07:08 PM

1.Parametresiz Prosedürler

Alt program içinde kullanılan değişkenler ana program içinde kullanılan değişkenler ile aynı olduğu için ana program ile alt program arasında veri transferi yapılmasına gerek yoktur.
Örnek 1:
uses crt;
var fakt:longint;
n

i:integer;
procedure islem1;
begin fakt:=1;
for i:=1 to n do begin
fakt:=fakt*i;end;end;
begin clrscr;
write('n sayısını giriniz ='); readln(n);
islem1;
writeln('n sayısının faktöriyeli ='

fakt:10);
repeat until keypressed;
end.
Forward İfadesinin Kullanımı : FORWARD deyimi

sonra tanımlanacak prosedür bloğu devamında kodlanmalıdır. Aşağıdaki örnek programda ASAMA2 prosedür bloğu devamında görülen FORWARD ifadesi blok bilgilerinin daha sonra tanımlanacağını belirtir. Program I>10 olduğu durumda sona erecektir.
Örnek 2:

uses crt;
var i:integer;
procedure asama2;forward;
procedure asama1;
begin
i:=i+1;write(i'.');
asama2;end;
procedure asama2;
begin
write(ı*i'.');
if i>10 then halt;
readln;asama1;end;
begin clrscr;
i:=1;asama1;
end.

06-14-2008, 07:08 PM	#1 (permalink)
UnİQuE Kurmay Albay	Alt Programlar: Parametresiz Prosedürler 1.Parametresiz Prosedürler Alt program içinde kullanılan değişkenler ana program içinde kullanılan değişkenler ile aynı olduğu için ana program ile alt program arasında veri transferi yapılmasına gerek yoktur. Örnek 1: uses crt; var fakt:longint; ni:integer; procedure islem1; begin fakt:=1; for i:=1 to n do begin fakt:=fakti;end;end; begin clrscr; write('n sayısını giriniz ='); readln(n); islem1; writeln('n sayısının faktöriyeli ='fakt:10); repeat until keypressed; end. Forward İfadesinin Kullanımı :* FORWARD deyimi sonra tanımlanacak prosedür bloğu devamında kodlanmalıdır. Aşağıdaki örnek programda ASAMA2 prosedür bloğu devamında görülen FORWARD ifadesi blok bilgilerinin daha sonra tanımlanacağını belirtir. Program I>10 olduğu durumda sona erecektir. Örnek 2: uses crt; var i:integer; procedure asama2;forward; procedure asama1; begin i:=i+1;write(i'.'); asama2;end; procedure asama2; begin write(ı*i'.'); if i>10 then halt; readln;asama1;end; begin clrscr; i:=1;asama1; end.

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	UslanmaM	Cevaplar	Son Mesaj
Alt Programlar: Parametreli Prosedürler	UnİQuE	Pascal	0	06-14-2008 07:12 PM
Alt Programlar:Procedure Alt Programlar	UnİQuE	Pascal	0	06-14-2008 07:02 PM
Süreçler (prosedürler)	EXiR	ASP, Perl, Php, Html	0	04-04-2008 02:26 AM

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)