matyusha47
09.02.2023 18:49

3-БӨЛІМ БОЙЫНША ТЕСТ ТАПСЫРМАЛАРЫ
-саймандар тақтасында орналасқан к құралының
1. Құрал-сайман,
қызметі неде?
2. Векторлық
контур түйіндерін өзгерту
В) Тіктөртбұрышт
іктөртбұрыштар мен шаршылар салу
C) Нысандарды шашыратып бояу
D) Мәтіндік нысандарды құру мен өңдеу
E) Тұйық аудандарды бояу
ректорлық графиканы құру программасы:
A) Microsoft Paint
B) Adobe Photoshop
C) Corel Paint Shop Pro
Inkscape
E) Corel Photo-Paint
Растрлық графика құру үшін пайдаланылатын программа:
A) Microsoft Paint
B) Adobe Illustrator
C) CorelDRAW
D) Xara Xtreme
E) Inkscape
4. Күрделі фигураларды құру немесе түзетуге арналған құрал
қалай аталады?
А) жұлдызша/көпбұрыш құралы
В) шеңбер құралы
С) мәтін құралы
D) таңдау құралы
E) контур құралы
5. Inkscape программасында нысанның көшірмесін жасау үшін
қандай пернелер үйлесімі қолданылады?
A) Alt+D
B) Ctrl+P
C) Ctrl+L
D) Alt+L
E) Ctrl+D
6. Растрлық графикада өзіндік түсі бар бейне элементі қалай
аталады?
А) пиксель
В) квадрат
С)дөңгелек
D)векторлық
Е)график​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Angelochek1915
12.10.2021 22:25
Написано в Pascal:

Program Zadacha;
Const n = 10;
Var a: Array [1..n] of Integer;
B, c, i, j: Integer;
d, e: Boolean;
Begin
WriteLn('Введите ', n, ' целых чисел через пробел и нажмите Enter');
For i := 1 To n Do
Read(a[i]);
Write('B = ');
ReadLn(B);
c := 0;
For i := 1 To n Do
If a[i] < 0 Then
c := c + 1;
WriteLn('Количество отрицательных элементов массива равно ', c);
d := False;
For i := 1 To n Do
Begin
c := a[i];
For j := i + 1 To n Do
If c = a[j] Then
d := True;
End;
If d = True Then
WriteLn('В массиве есть одинаковые элементы')
Else
WriteLn('В массиве нет одинаковых элементов');
e := False;
For i := 1 To n Do
If a[i] = B Then
e := True;
If e = True Then
WriteLn('В массиве есть элемент, равный ', B)
Else
WriteLn('В массиве нет элемента, равного ', B);
ReadLn;
End.
0,0(0 оценок)
Ответ:
Haos123ks
02.08.2022 21:21
Program Sum;
Var a, b: Integer;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
WriteLn('Сумма a и b равна ', a + b);
ReadLn;
End.

Program SumRow;
Const min = 5; max = 28;
Var a, i: Integer;
Begin
a := 0;
For i := min To max Do
a := a + i;
WriteLn('Сумма ряда равна ', a);
ReadLn;
End.

Program Digit;
Var a, b: LongInt;
c, d, i: Integer;
Begin
Write('a = ');
ReadLn(a);
b := 1;
c := 0;
While a Div b <> 0 Do
Begin
c := c + 1;
b := b * 10;
End;
While a > 0 Do
Begin
d := d + (a Mod 10);
a := a Div 10;
End;
WriteLn('Количество цифр в числе равно ', c);
WriteLn('Сумма цифр числа равна ', d);
ReadLn;
End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота