|
Yechish: Quyida o‘sish tartibida saralovchi dastur keltirilgan. Agar dasturdagi A(I)>A(J) tengsizlik A(I)
Program Saralash;
Uses Crt;
Const n1=100;
Var a:Array[1..n1] of Integer;
i,j,min,n:Integer;
Begin
TextColor(14); TextBackground(1); ClrScr;
Write('Massiv o‘lchamini kiriting : '); ReadLn(n);
WriteLn('Massiv elementlarini kiriting:');
For i:=1 To n Do Begin Write('A(',i,')='); ReadLn(a[i]); end;
WriteLn; WriteLn(' Saralangan massiv:');
For i:=1 To n-1 Do
Begin
For j:=i+1 To n Do
Begin
If a[j]Then Begin min:=a[j]; a[j]:=a[i]; a[i]:=min; end;
end;
Write('A(',i,')=',a[i],', ');
end;
WriteLn('A(',n,')=',a[n]);
ReadLn;
End.
Masala-6. Berilgan N ta so‘zda ishtirok etgan harflar yordamida berilgan so‘zni hosil qilish mumkinligini aniqlovchi dasturini tuzing. Agar hosil qilib bo‘lmasa, bu haqda ma’lumot berilsin.
Yechish: Masalani yechish uchun hosil qilinishi kerak bo‘lgan so‘z harflari berilgan N ta so‘z ichida bor yoki yo‘qligini tekshirish kifoya.
Program Suzlar;
Uses Crt;
var
suzs:Array[1..100] of String;
suz:String;
i,j,n:Integer;
ch:Char;
bor:Boolean;
Begin
TextColor(14); TextBackground(1); ClrScr;
Write('So‘zlar sonini kiriting: ');ReadLn(n);
WriteLn('So‘zlarni kiriting: ');
For i:=1 To n Do Begin Write(i,'-suz: '); ReadLn(suzs[i]); end;
Write('Hosil qilmoqchi bo‘lgan so‘zni kiriting: '); ReadLn(suz);
i:=0;
Repeat
Inc(i); j:=0; bor:=False; ch:=suz[i];
Repeat
Inc(j);
If Pos(ch,suzs[j])>0 Then bor:=True;
Until bor or (j=n);
If Not(bor) And (jThen i:=Length(suz);
Until i=Length(suz);
If bor Then
WriteLn('Berilgan so‘zlardan "',suz,'" so‘zini hosil qilib bo‘ladi')
Else WriteLn('Berilgan so‘zlardan "',suz,'" so‘zini hosil qilib bo‘lmaydi');
ReadLn;
End.
Mavzu bo`yicha namunaviy test savollari
1. Quyidagi bеrilganlardan qaysi yozuv to`g`ri ko`rsatilgan
a) c: array [1..3,1..5] of integer;
b) MATR = array[1..3,1..5] of integer;
c) d: array [1...3,1...5] of integer;
d) c: array [1..3,1.5] of integer;
2. Quyidagi tavsiflarning qaysi biri noto`g`ri.
a) Var A: array [1..100] of real;
b) Var A: array[1..100,1..100] of real;
c) Type
Mas=array [1..100] of real;
Var A:MAS;
d) Type
MAS=array[1..100;1..100] of real;
VAR A:MAS;
3. Quyidagi dastur lavxasida massiv elеmеntlari bilan qanday amallar bajariladi.
Р:= а [ l ]; a [ l ]: = a [m]; a [m]: = P
a) elеmеntlari ko`paytiriladi.
b) elеmеntlari qo`shiladi;
c) ikki elеmеntni joyi almashtiriladi;
d) hamma javoblar noto`g`ri;
4. Quyidagi dastur lavxasida matritsa elеmеntlari bilan qanday amal bajariladi.
P:= 1; For i: =1 to n do
P:= P*a [i,3];
a) 3 qator elеmеntlari ko`paytiriladi.
b) 3 qator elеmеntlari olib tashlanadi;
c) 3 ustun elеmеntlari ko`paytiriladi;
d) hamma javoblar noto`g`ri;
5. Paskal tilidagi to`g`ri yozuvni ko`rsating
a) Var a: array [1..10] of real;
b) Var array a: [1..5]
c) Var a array [1.5] of
d) hammasi to`g`ri
6. Pred(z) funktsiyasi nimani aniqlaydi
a) Z dan bitta oldingi konstantani
b) Z dan bitta keyingi konstantani
c) Z ning butun qiymatini
d) Z ning qoldig`ini
7. Succ(z) funktsiyasi nimani aniqlaydi
a) Z dan bitta oldingi konstantani
b) Z dan bitta keyingi konstantani
c) Z ning qoldig`ini
d) Z ning butun qiymatini
8. Ord(z) funktsiyasi nimani aniqlaydi
a) Z ga mos kelgan qiymatni tartib raqamini
b) Z ning qoldig`ini
c) Z dan bitta keyingi konstantani
d) Z ning butun qiymatini
XULOSA.
“Kadrlar tayyorlash milliy dasturi”da shaxsni rivojlantirishga berilgan juda katta e’tiborning boisi shundaki, faqat shaxsning kamoloti uning intellektual zakovatigina jamiyat taraqqiyotining omili bo`la oladi. Shaxsdagi intellektual zakovat esa yaxshi tashkil etilgan ta’lim-tarbiya jarayonidagina uyg’onishi, taraqqiy etishi va shaxs kamolotini ta’minlashi mumkin. O`qituvchi o`quvchilarning intellektual imkoniyatlarini maksimal ishga solish yo`lini izlab topishi lozim. Ko`p yillar davomida an’anaviy dars o`tish ta’limning asosiy shakllaridan biri bo`lib keldi. An’anaviy dars muayyan muddatga mo`ljallangan, ta’lim jarayoni ko`proq o`qituvchi shaxsiga qaratilgan, mavzuga kirish, yoritish, mustahkamlash va yakunlash bosqichlaridan iborat ta’lim metodidir. An’anaviy dars o`tish modelida ko`proq ma’ruza, savol-javob, amaliy mashq kabi metodlardan foydalaniladi. Buning natijasi o`laroq yoshlarimiz Informatika va Axborot texnalagiyalari fanidan kuchli bilim va tajribaga ege bo`lmoqdalar. Ayniqsa dasturlash sohasida ko`plab yoshlarimiz ulkan yutuqlarga erishmoqdalar. s Shunday ekan An’anaviy dars shaklini saqlab qolgan holda, unga turli-tuman o`quvchilar faolligini oshiradigan metodlar bilan boyitilib borilsa, o`quvchilar o`zlashtirish darajasini ko`tarilishiga olib keladi.
Do'stlaringiz bilan baham: |
