Protsedura va funksiyalar


Download 54.5 Kb.
Sana27.12.2019
Hajmi54.5 Kb.
  • Informatika-9
  • Protsedura va funksiyalarni ularga murojaat etish paytida beriladigan ma'lum bir qiymatlarga bog'liq qilib tashkil etish ham mumkin. Bu qiymatlar parametrlar, shu tarzda tashkil etilgan protsedura va funksiyalar esa parametrli protsedura va funksiyalar deyiladi.
  • Protsedura va funksiyalar sarlavha bilan boshlanadi. Protsedura sarlavhasi quyidagi umumiy ko'rinishga ega:
  • Procedure
    [(parametrlar)];
  • Funksiya sarlavhasi quyidagi umumiy ko'rinishga ega:
  • Function [(parametrlar)]: ;
  • Parametrli protsedura va funksiyalarda parametrlarning turlari ham tavsiflanadi.
  • Masalan:
  • Function daraja (a, n : Integer):Integer;
  • yoki
  • Procedure shifr(satr:String);
  • Funksiyaning umumiy tuzilishi:
  • Function (parametrlar);
  • Label ;
  • Const ;
  • Var
  • "Ichki" protsedura va funksiyalar;
  • begin
  • (dastur)
  • end;
  • Protseduraning umumiy tuzilishi:
  • Procedure
    (parametrlar)',
  • Label ;
  • Const
  • Var ;
  • "lchki" protsedura va funksiyalar;
  • begin

  • (dastur)
  • end;
  • 1–misol. [20, 83], [178, 391], [211, 746] oraliqlardagi barcha butun sonlar yig‘indisini topish dasturini tuzing.
  • Yechish: Berilgan uchta oraliqdagi butun sonlarning yig‘indisini hisoblash uchun parametrli takrorlash operatoridan uch marta foydalanishga to‘g‘ri keladi. Masalani berilgan oraliqning boshlang‘ich va oxirgi qiymatlarini parametr sifatida olib, shu oraliqdagi butun sonlarning yig‘indisini hisoblovchi funksiyadan foydalanib ham yechish mumkin.
  • Program Summa;
  • Var i, s, s1, s2, s3 : Integer;fuksiya
  • Function Sum(n1, n2:Integer):Integer;
  • Begin
  • s:=0; For i:=n1 To n2 Do s:=s+i; Sum:=s;
  • End;
  • BEGIN
  • S1:= Sum(20,83); s2 := Sum(178,391); s3:=Sum(211,746);
  • S:=s1+ s2 + s3; WriteLn(‘S= ‘, s)
  • END.
  • 2–misol. Uchburchakning berilgan tomonlari bo‘yicha, uning balandliklarini aniqlovchi dastur tuzing.
  • Program Uchburchak_balandligi;
  • Var a, b, c, ha, hb, hc: real;
    • Function H_UB(a, b, c: real): real;
    • Var yp, s: real;
    • Begin
    • yp:= (a+b+c)/2;
    • s:= Sqrt(yp*(yp-a)*(yp-b)*(yp-c));
    • H_UB:= 2*s/a;
    • End;
  • Begin
    • Write(‘Uchburchak tomonlari (a,b,c) kiritilsin ‘); Readln(a,b,c);
    • ha:= H_UB(a, b, c); hb:= H_UB(b, a, c); hc:= H_UB(c, b, a);
    • Writeln(‘Uchburchak balandliklari: ‘);
    • Writeln(‘ha= ‘, ha:10:4, ‘hb= ‘, hb:10:4, ‘hc= ‘, hc:10:4);
    • Readln
  • End.
  • 3–misol. Uchta uchburchak uchlarining quyidagi koordinatalari berilgan:
  • 1) (120,20), (80,170), (140,150); 2) (200,97), (500,156), (210,180);
  • 3) (300,190), (200,390), (415,222).
  • Shu uchburchaklarni mos ravishda qizil, sariq va yashil raglarda chizish dasturini tuzing.
  • Uses Graph;
  • var gd, gm:Integer;
    • Procedure Uchburchak(x1,y1,x2,y2,x3,y3,col:Integer);
    • begin
    • SetColor(col); Line(x1,y1,x2,y2); Line(x2,y2,x3,y3); Line(x3,y3,x1,y1);
    • end;
  • Begin
    • gd:=0; InitGraph(gd,gm, ‘‘);
    • Uchburchak(120,20,80,170,140,150,4);
    • Uchburchak(200,97,500,156,210,180,14);
    • Uchburchak(300,190,200,390,415,222,2);
    • ReadLn;
    • CloseGraph;
  • End.


Download 54.5 Kb.

Do'stlaringiz bilan baham:




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2020
ma'muriyatiga murojaat qiling