Funksiyaning qiymatini

Amaliy mashg’ulot.
1. funksiyaning qiymatini x ning [–15;5] oraliqdagi butun qiymatlarida hisoblash dasturini tuzing.
Program funksiya;
Var x,y: integer;
Begin
For x:-15 to 5 do begin y:=23*x; writeln(‘x=’,x,’ da y=‘,y); end;
Readln; end.
2. Ikkita a va b sonlar berilgan. Agar b son a dan kichik bo’lsa, u holda b ni nol bilan almashtiruvchi, aks holda b ni o’zgarishsiz qoldiruvchi dastur tuzing.
Var a,b: real;
Begin
Write(‘a va b ni kiriting ’); readln(a,b);
If bEnd.
3. Ikki xonali natural sonlar ichidan raqamlari yig’indisi juft bo’lgan sonlarni chiqaruvchi dastur tuzing (yo’llanma: K sonning birlik raqami K1=K mod 10, o’nlik raqami K10=K div 10).
Program juft;
Var k,k1k2,k3: integer;
Begin
K:=10;
Repeat
K1:=K mod 10; K2:=K div 10; k3:=k1+k2; k:=k+1; if not(odd(k3)) then writeln(k);
Until k=100;
Readln;
End.

4. Ekranning o‘rtasida radiusi 100 ga teng sariq rangli doira chizuvchi dastur tuzing.

uses graph;
var gd,gm: integer;
begin
gd:=0; initgraph(gd,gm,'');
setcolor(4); setfillstyle(1,14);
fillellipse(trunc(getmaxx/2),trunc(getmaxy/2),100,100);
readln;
closegraph;
end.
5. Qizil rangli muntazam beshburchak chizuvchi dastur tuzing.
Uses Graph;
Const bs=6;
Var gd, gm : Integer;
km : Array[1..bs,1..2] of Integer;
Begin gd:=0; InitGraph(gd,gm,''); Setcolor(4);
SetFillStyle(7,4); {usul va rang tanlandi}
km[1,1]:=300; km[1,2]:=10;
km[2,1]:=200; km[2,2]:=80;
km[3,1]:=250; km[3,2]:=180;
km[4,1]:=350; km[4,2]:=180;
km[5,1]:=400; km[5,2]:=80;
km[6,1]:=300; km[6,2]:=10;
DrawPoly(bs,km);
readln;
closegraph;
End.