Тестирование по теме «Мультимедиа и компьютерные презентации» (7 класс) 1. Виды компьютерных презентаций (выберите несколько ва¬риантов ответа): А. Показательные презентации Б. Презентации со сценарием В. Интерактивные презентации Г. Циклические презентации Д. Непрерывно выполняющиеся презентации 2. Что можно вставить на слайд презентации? А. Рисунок Б. Диаграмму В. Текст Г. Звук 3. Для подготовки презентаций используется: А. Access , Base Б. Excel, Calc В. Word, Writer Г. PowerPoint, Impress 4. Какое расширение имеет файл презентации? А. *.txt Б. *.ppt, *.pptx, *.odp В. *.doc, *.docx, *.odt Г. *.bmp 5. Мультимедиа- это: А. Программы для музыки Б. Программы для работы с графическими изображения¬ми В. Программы для учебных видеофильмов Г. Интерактивные системы, направленные на объедине¬ние текста, звука, изображения и анимации Д. Системы, обеспечивающие работу с текстом и статиче¬скими изображениями 6. Компьютерная презентация — это: А. Серия компьютерных рисунков Б. Демонстрация своих знаний перед учителем В. Чтение доклада на школьной конференции Г. Плакаты на листах ватмана о новой технической раз¬работке Д. Последовательность слайдов для показа, представле¬ния чего-либо нового с использованием всех возмож¬ных технических и программных средств 7. Как правильно вставить гиперссылку в презентацию: А. Вставка→ Объект; Б. Вставка→ Поле…; В. Вставка→ Символ..; Г. Вставка→ Гиперссылка. 8. Укажите порядок действий при сохранении презентации в своей папке. А. Нажать Сохранить Как Б. Нажать Файл В. Выбрать место и имя сохраняемой презентации Г. Нажать сохранить 9. Презентация - это ... А. показ, представление чего-либо нового, выполняемые докладчиком с использованием всех возможных технических и программных средств. Б. предоставление подарка подготовленного заранее; В. демонстрация своих знаний перед людьми, которые задают вам во Как называется страница презентации? 7 класс побыстрее
Ответы
Var x,y,z,Ans:integer;
u:real;
Begin
Write('Введите числа x,y,z: ');
Readln(x,y,z);
Writeln('Что вычислить из числа ',x,' ?');
Writeln('1 - sin; 2 - cos; 3 - tg;');
Readln(Ans);
case Ans of
1: begin u:=sin(x); Writeln('sin(',x,') = ',u) end;
2: begin u:=cos(x); Writeln('cos(',x,') = ',u) end;
3: begin u:=tan(x); Writeln('tg(',x,') = ',u) end;
else Writeln('Ошибка!') end;
Writeln('Найти максимальное число из ряда ',u,', ',y,', ',z);
Writeln('Без модуля - 1; по модулю - 2');
Readln(Ans);
case Ans of
1: begin
if (u>y) and (u>z) then
Writeln('Максимальное число - ',u)
else
if (y>u) and (y>z) then Writeln('Максимальное число - ',y)
else
if (z>u) and (z>y) then Writeln('Максимальное число - ',z)
else
Writeln('Все числа равны.')
end;
2: begin
if (abs(u)>abs(y)) and (abs(u)>abs(z)) then
Writeln('Максимальное число - ',u)
else
if (abs(y)>abs(u)) and (abs(y)>abs(z)) then
Writeln('Максимальное число - ',y)
else
if (abs(z)>abs(u)) and (abs(z)>abs(y)) then
Writeln('Максимальное число - ',z)
else Writeln('Все числа равны.')
end
end
End.
*.pas прикрепил во вложения
u:real;
Begin
Write('Введите числа x,y,z: ');
Readln(x,y,z);
Writeln('Что вычислить из числа ',x,' ?');
Writeln('1 - sin; 2 - cos; 3 - tg;');
Readln(Ans);
case Ans of
1: begin u:=sin(x); Writeln('sin(',x,') = ',u) end;
2: begin u:=cos(x); Writeln('cos(',x,') = ',u) end;
3: begin u:=tan(x); Writeln('tg(',x,') = ',u) end;
else Writeln('Ошибка!') end;
Writeln('Найти максимальное число из ряда ',u,', ',y,', ',z);
Writeln('Без модуля - 1; по модулю - 2');
Readln(Ans);
case Ans of
1: begin
if (u>y) and (u>z) then
Writeln('Максимальное число - ',u)
else
if (y>u) and (y>z) then Writeln('Максимальное число - ',y)
else
if (z>u) and (z>y) then Writeln('Максимальное число - ',z)
else
Writeln('Все числа равны.')
end;
2: begin
if (abs(u)>abs(y)) and (abs(u)>abs(z)) then
Writeln('Максимальное число - ',u)
else
if (abs(y)>abs(u)) and (abs(y)>abs(z)) then
Writeln('Максимальное число - ',y)
else
if (abs(z)>abs(u)) and (abs(z)>abs(y)) then
Writeln('Максимальное число - ',z)
else Writeln('Все числа равны.')
end
end
End.
*.pas прикрепил во вложения
Program pr;
uses crt;
Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;
Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);
if (M>1000) or (N>1000) or (M<1) or (N<1)
then
Writeln('Ошибка, указанные значения выходят за пределы матрицы') else
Begin
Writeln('Введите элементы матрицы');
k:=0;
for i:=1 to N do
for j:=1 to M do
Begin
readln(mas[i,j]);
if (mas[i,j] mod 2 = 0) then k:=k+1;
end;
Writeln();
Writeln('Исходная матрица');
for i:=1 to N do
Begin
for j:=1 to M do
Begin
Write(mas[i,j], ' ')
end;
Writeln();
end;
Writeln();
Writeln('Количество четных элементов = ',k);
end;
readln;
end.
uses crt;
Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;
Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);
if (M>1000) or (N>1000) or (M<1) or (N<1)
then
Writeln('Ошибка, указанные значения выходят за пределы матрицы') else
Begin
Writeln('Введите элементы матрицы');
k:=0;
for i:=1 to N do
for j:=1 to M do
Begin
readln(mas[i,j]);
if (mas[i,j] mod 2 = 0) then k:=k+1;
end;
Writeln();
Writeln('Исходная матрица');
for i:=1 to N do
Begin
for j:=1 to M do
Begin
Write(mas[i,j], ' ')
end;
Writeln();
end;
Writeln();
Writeln('Количество четных элементов = ',k);
end;
readln;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
по информатике, заранее благодарю
Автор: Васильевич Валерьевна
Ақпарат деген сөзге ребус құрастыру. Көмектесіңіздерші
Автор: ТигранКалмыкова
Почему возникла необходимость в биокомпьютинг
Автор: DudukinSerega2507834
3.Отметьте операторы выбораA)switchB)caseC) whileA)for to do
Автор: sanhimki47
1- Б, Д
2 - Б
3 - Г
4 - Б
5 - Г
6 - Д
7 - Г
8 - Б,А,В,г
9 - А
10 - слайд
Объяснение: