1- dars. Mavzu: Masalalarni kompyuterda yechish bosqichlari

Yangi mavzu bayoni:

1.Quyida berilgan shakllarning shtrixlangan qismlarining yuzalarini hisoblash dasturini tuzing (yo'llanma: qanday shakl yuzasidan qaysi shakl yuzasini ayirish kerak?).

a)Program m;
Uses crt;
Var a,b,r,Pi,s: real;
Begin
Write (` b ning qiymatini kiriting=`); readln (b);
Write (` r ning qiymatini kiriting=`); readln (r);
S:=a*b-Pi*r*r;
Writeln(`shaklning yuzi S=`,S);
Readln;
End.
2. Berilgan a va b butun sonlarni qiymatini almashtiruvchi dastur tuzing, ya'ni a=7 va b=2 kiritilsa, a=2 va b=7 natija chiqsin (yo'llanma: o'rin almashtirish m: = a, a: = b, b: = m).

Program misol_ 2;

var a,b,m:Real;
begin
Write('a=’); ReadLn(a);
WriteLn (‘b= '); ReadLn(b);
m:=a; a:=b; b:=m;
WriteLn('a=’,a, ‘b=’,b);
readln;
end.

1. 
   Mos ravishda R,, R₂, R₃, R₄ qarshilikka ega bo'lgan o'tkazgichlar parallel ulanganda hosil bo'ladigan R qarshilikni hisoblash dasturini tuzing
   

(yo'llanma: 1/R= 1/R₁+1/R₂+1/R₃+1/R₄).
Program m3;
var R1,R2,R3,R4,N,R:Real;
begin
Write('R1 =’); ReadLn(R1);
WriteLn (‘R2= '); ); ReadLn(R2);
Write('R3 =’); ReadLn(R3);
WriteLn (‘R4= '); ); ReadLn(R4);
N:=1/R1+1/R2+1/R3+1/R4;
R:=1/N;
WriteLn('Natijaiy qarshilik R=’,R);
readln;
end.


Uyga vazifa: Mavzuni o’rganib kelish.1-mashqni bajarish.

Sana :______________

Sinf :_______________
29-dars Mavzu: O'tish va tarmoqlanish operatorlari
Darsning texnologik xaritasi

Mavzu	O'tish va tarmoqlanish operatorlari
Maqsad va vazifalar