Амалий машғулот саволлари 11sinf
1.Delphida o`lchamlari 600 ga 800 bo`lgan ilova oynasini yarating, ilovasi sarlavhasiga “Informatika” so`zini kiriting, fonning rangi yashil bol`lgan ilova oynasini yarating.
2. Ўзбекистон мадҳиясининг 1-бандини қалин шрифт, кўк ранг, қолган маълумотларни яшил ранг билан 1-поғона сарлавҳа қўйиш орқали веб саҳифа яратинг.
3.Quyida trapetsiya yuzini hisoblash dasturi tartibsiz yozilgan. Operatorlarni mantiqan to`g`ri ketma-ketlikda joylashtiring.
1)p:=(a+b)/2; s:=p*h;
2)program Ploshad_trapetsii;
3)end.
4)Writeln(‘S=’, s, ‘kv.yedinits’ );
5)Readln(a,b,h);
6) begin
7) write(‘Vvedite A, B, H : ‘);
8)Var a, b, h:Integer; p,s:Real;
4. Берилган N сон мусбат ва 5 га каррали бўлса, шу сонни квадрат илдизини, акс ҳолда квадратини ҳисоблаш дастурини тузинг.
5. Синфнинг бешта фанидан 20 баллик тизимда баҳоланганда уларнинг ўзлаштириш кўрсаткичини таҳлил қилувчи жадвал яратинг. Натижада аъло, яхши, қониқарли, қониқарсиз сўзларидан фойдаланинг.
Амалий машғулот жавоблари
Form1.Width:=800;
Form1.Height:=600;
Form1.Caption:=’Informatika’;
Color:=’ClGreen’;
2 .Жавоб:
Sen o`zing do`stlarga yo`ldosh mehribon
Yashnagay to abad ilmu fan ijid
Shuxrating porlasin toki bor jahon.
3. Жавоб: 2, 8, 6, 7, 5,1, 4, 3
4. Var
N:integer;
K:real;
Begin
Write(‘N ni kiriting:’);
ReadLn(N);
If (N>0) And (N mod 5=0) Then
K:=sqrt(N)
Else K:=sqr(N);
WriteLn(‘Javob:’,K:0:3);
ReadLn;
End.
5. жадвал тузиб ўқувчилар баҳлолангандан кейин,
=ЕСЛИ(___<55; “қониқарсиз”; ЕСЛИ(___<71; “Қонқарли” ; ЕСЛИ(___<86 “яхши”; “аъло” )))
___< берилган натижа ячейкаси
86>
Dostları ilə paylaş: |