Tasdiqlayman: O`ib direktor o`rin bosari Sana IX- sinflar

Bu dastur ishga tushirilgach, ekranga «Radiusni kiriting : »yozuvi ^chiqadi va yurgich shu satrda qoladi. ReadLn operatori dastur bajarilishini iu лиши, iv о /.gaiuvcniga qiymat oerinsnini Kuiaai. Kiaviatura orq_aj- radiusning sonli qiymati 9 ni kiritibl ENTER | klavishi bosilsa, R o'zgaru_y¹chining qiymati 9 ga teng deb olinib, dastur bajarilishda davom etadj~ Natijada kompyuter ekranida izlangan

I usul	II usul
Program Uchburchak_yuzi; Var a,b,c:Integer; {uchburchak tomonlari} yp,s:Real; {yp-yarimperimetr, s-yuza} Begin a:=3; b:=4; c:=5; yp:=(a+b+c)/2; s:=sqrt(yp*(yp-a)*(yp-b)*(yp-c)); WriteLn('S= ',s,' kvadrat birlik'); Readln; End.	Program Uchburchak_yuzi; Var a,b,c:Integer; {uchburchaktomonlari} yp,s:Real; {yp-yarim perimetr, s-yuza} Begin Write('a,b,c ning qiymatlari kiritilsin '); ReadLn(a,b,c); yp:=(a+b+c)/2; s:=sqrt(yp*(yp-a)*(yp-b)*(yp-c)); WriteLn('S=',s:2:2,' kvadrat birlik'); readln; End.
S = 6.0000000000E+00 kvadrat birlik	a,b,c ning qiymatlari kiritilsin 3 4 5 S = 6.00 kvadrat birlik

Mavzuni mustahkamlash va yakunlash:
O‘quvchilarga darslikdagi savollar orqali murojaat etiladi va mashqlar yechish asosida mavzu mustahkamlanadi.
Uyga vazifa:
1. Darslikdagi 2-, 4-, 6-mashqlar.
2*. Darslikdagi 8-, 9-, 10-mashqlar.