1. O‘nlikdagi 211 sonini beshlikdagi yozuvidagi raqamlar ko‘paytmasini aniqlang

Вопросы практических заданий 11 класса
1. Создайте в Delphi окно приложения 600 на 800, с зелёным фоном, и строкой в заголовке с именем “Informatika”.
2.Составьте веб-страну «Гимн Узбекистана»
Заголовок по центру синий цветом (шрифт 27) все буквы, 1 куплет гимна зеленый цветом полужирный видом.
3. Внизу приведена смешанная программа вычисления площади трапеции. Восстановите программу.
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. Составьте таблицу 5 предметам оценок 20 балловые системам учащихся. В итоге качества знания «Отлично», «Хорошо», «удовлетворительна» , «не удовлетворительна» образом выходить надо.
Ответы практических заданий
Ответ 1 Form1.Width:=800;
Form1.Height:=600;
Form1.Caption:=’Informatika’;
Color:=’ClGreen’;
Ответ 2

O`zbekiston madhiyasi



Ser quyosh hur o`lkam, elga baxt najot,

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 “хорошо”; “отлично” )))
___< адрес ячейки итогового балла