Informatika fanini o’qitishda noan’anaviy usullar va sinfdan tashqari ishlarning ahamiyati

Masala-5.. N natural son berilgan. A(N, N) jadvalni rasmdagidek to’ldiruvchi dastur tuzing.
Program Masala_1;
Uses Crt;
Var a:Array[0..100,0..100] of Integer;
n,i,k,k1:Integer;
Begin
TextBackGround(1); TextColor(14); ClrScr;
Write(‘N=’); ReadLn(n);
For i:=1 To n Do
begin
k:=i-1;
For k1:=1 To k Do a[i,k1]:=0;
For k1:=k+1 To n Do begin a[i,k1]:=n+k-k1+1; end;
end;
For i:=1 To n Do
begin
For k:=1 To n Do
begin If a[i,k]<10 Then Write(‘ ‘); Write(a[i,k],’ ‘); end;
WriteLn;
end;
ReadLn;
End.
Masala-6. Raqamlarining yig‘indisi toq son bo‘lgan sonlarni ketma-ket (probelsiz) yozilsa, quyidagicha satr hosil bo‘ladi:
1357910121416182123…
Shu satrning n-o‘rnida qanday raqam turganini aniqlovchi dastur tuzing (100Yechish:
Bu masala toq sonlarning raqamlarini sanash orqali yechiladi. Quyida keltirilgan dastur dizayn bilan ta’minlangan:
Program N_raqam;
Uses Crt;
var
i,j,n : Integer;
k,l,n1 : Integer;
_i,r : String;
s,v,code : Integer;
Begin
TextColor(14); TextBackground(1); ClrScr;
Write(‘Nechanchi o`rindagi raqamni bilmoqchisiz: ‘); ReadLn(n);
k:=0; i:=0;
Repeat
Inc(i); Str(i,_i);
l:=Length(_i);
s:=0;
For j:=1 To l Do
begin
Val(_i[j],v,code);
s:=s+v;
end;
If Odd(s) Then k:=k+l;
Until k>=n;
n1:=l-(k-n);
r:=_i[n1];
WriteLn(‘Qatorning ‘,n,’- o`rindagi raqami ‘,r);
WriteLn(‘Bu ‘,_i,’ sonning ‘,n1,’ – raqami’);
ReadLn;
End.
Masala-7. Uchta a,b,c son berilgan.a
dastur tuzing.
Program M_6;
Var a,b,c: Real;
Begin
Write(‘a=’);Readln(a);
Write(‘b=’);Readln(b);
Write(‘c=’);Readln(c);
If (aelse Writeln(‘aend.