Ko’rildi” O’quv ishlari bo’yicha direktor o’rinbosari: A. Niyozov

procedure TForm1.Button1Click(Sender: TObject);
var i,m,n,s:integer;
begin
m:=Strtoint(Edit1.Text);
n:=Strtoint(Edit2.Text);
s:=0; for i:=m to n do s:=s+i;
Label3.Caption:='Yig‘'indi: '+Inttostr(s); end;
Protseduraning ikkinchi satrida var operatori yordamida to‘rtta butun son turidagi o‘zgaruvchi tavsiflangan. Uchinchi satrdan protseduraning tanasi boshlanadi. Unda bajariluvchi operatorlar joylashgan bo‘ladi. to‘rtinchi satrda Edit1 maydonchasiga kiritilgan son butun son turiga aylantirilib, m o‘zgaruvchiga beriladi. Beshinchi satrda Edit2 ga kiritilgan son n o‘zgaruvchiga beriladi.

Oltinchi satrda yig‘indi saqlanadigan o‘zgaruvchiga boshlang‘ich qiymat: 0 beriladi. Yettinchi satrdagi sikl kerakli yig‘indini topadi. Sakkizinchi satrda topilgan yig‘indining qiymatini Label3 orqali ilova oynasiga chiqaradi. To‘qqizinchi satrdagi operator protsedura tugaganini bildiradi.
Ilovani ishga tushirib uning ishini kuzatamiz.
YODDA SAQLANG !
Qiymat berish operatorida o’zgaruvchi va ifoda turlari farq qilsa, dasturda xato yuz beradi.
SAVOL VA TOPSHIRIQLAR
1. Ma’lumotlarning qanday turlarini bilasiz?
2. StrToInt ma’lumotni qaysi turdan qaysi turga o‘tkazadi?
3. FloatToStr ma’lumotni qaysi turdan qaysi turga o‘tkazadi?
4. StrToFloat ma’lumotni qaysi turdan qaysi turga o‘tkazadi?
5. a) kvadrat; b) to‘g‘ri to‘rtburchak perimetri va yuzasini hisoblaydigan ilova yarating.
6. dan gacha bo‘lgan barcha sonlarning a) kvadratlari; b) kvadrat ildizlari yig‘indisini hisoblaydigan ilova yarating.
UYGA VAZIFA :
1. Ma’lumotlarning turini o‘zgartiruvchi funksiyalarni daftaringizga yozib oling.
Butun sonlar yig‘indisini hisoblash:
procedure TForm1.Btn1Click
(Sender: TObject);
var i,m,n,s: integer;
begin
m:=Strtoint(Edit1.Text);
n:=Strtoint(Edit2.Text);
s:=0; for i:=m to n do s:=s+i;
Label3.Caption:='Yig‘'indi: '+Inttostr(s); end;


Shar hajmi va sferasini hisoblash:


Label2.Caption:='Shar_hajmi:'+ FloatToStr(4/3*pi*sqr(StrToFloat (Edit1.Text))*StrToFloat (Edit1.Text));
Label3.Caption:='Sfera_yuzasi:'+ FloatToStr(4*pi*sqr(StrToFloat (Edit1.Text)));