Во Мультимедиа – это Варианты ответов интерактивные системы, обеспечивающие одновременную работу со звуком, анимированной компьютерной графикой, видеокадрами, статистическими изображениями и текстами интерактивные системы, позволяющие быстро производить любые вычисления интерактивные системы, позволяющие вести в Интернете одновременно диалог с несколькими пользователями Во Фонограф – это Варианты ответов устройство для записи звука устройство для воспроизведения звука программа, создающая фон изображения Во Аналоговая форма записи звука – это Варианты ответов непрерывная форма записи звука запись звука, аналогичного услышанному форма записи звука фрагментами Во Магнитофон – это устройство Варианты ответов записывающее звук на магнитофонную ленту намагничивающее корпус системного блока сохраняющее звук в памяти компьютера Во Принцип дискретности – это Варианты ответов хранение информации в памяти компьютера в виде цепочек битов сохранение информации под паролем разбиение информации для сохранения на несколько файлов Во Для ввода звука в компьютер используется Варианты ответов микрофон магнитофон наушники Во Для вывода звука с компьютера используется Варианты ответов наушники магнитофон микрофон Во Мультимедийную информацию нецелесообразно сохранять на Варианты ответов бумажном носителе CD-ROM Flash-память Во компьютерная презентация – это Варианты ответов последовательность слайдов презентация (представление) новых устройств компьютера преобразование (усовершенствование) компьютера Во Отметьте лишний пункт Варианты ответов видеопрезентации интерактивные презентации непрерывно выполняющиеся презентации Во В презентации можно использовать: Варианты ответов оцифрованные фотографии звуковое сопровождение все перечисленное Во Компьютерные презентации бывают. Варианты ответов линейные интерактивные показательные Во Что можно вставить на слайд презентации? Варианты ответов рисунок звук текст диаграмму все варианты верны Во Можно ли заменить другим мaкет добавленного в презентацию слайда? Варианты ответов можно в соответствии со своими потребностями это сделать невозможно можно, но только для определенного количества слайдов Во В каком разделе меню окна программы Power Point находится команда Создать (Новый) слайд? Варианты ответов Показ слайдов Вид Вставка Главная Во Чтобы удалить текст, рисунок со слайда, необходимо ... Варианты ответов Выделить его и нажать клавишу ESC выделить его и нажать клавишу DELETE выделить его и нажать клавишу CTRL Во Компьютер, на котором предполагается работать с мультимедийными продуктами, должен быть дополнительно укомплектован Варианты ответов устройством для вывода звуковой информации флеш-накопителем фотоаппаратом Во Программа для создания презентаций Варианты ответов Microsoft PowerPoint Microsoft Office Microsoft Word Во Можно ли цвет фона изменить для каждого слайда? Варианты ответов да нет никогда Во Структурно компьюптерная презентация состоит из: Варианты ответов листов слайдов различных элементов: рисунков, текста, аудио, видео Во Какой клавишей нужно воспользоваться чтобы виды анимации в программе Power Point? Варианты ответов Ctrl+f F5 F1 Ctrl+c
Ответы
Если элементы массива идут по возрастанию, то вот так
program wstawka;
uses crt;
const min=1;
max=20;
type zona=min..max;
massiw=array[zona] of integer;
var mas:massiw;
i,j:zona;
a,N,M:integer;
T:boolean;
BEGIN randomize;
clrscr; N:=random(20);
writeln('4ucJlo N = ',N);
M:=random(20); Writeln('4ucJlo M = ',M);
for i:=min to max-2 do
begin
mas[i+1]:=mas[i]+random(5);
write(mas[i],' ');
end;
for i:=min to max-2 do
if (mas[i]>N) and (t=false) then
begin
t:=true;
a:=mas[i];
mas[i]:=N;
for j:=i+1 to max do
begin
N:=mas[j];
mas[j]:=a;
a:=N;
end;
end;
for i:=min to max-1 do
if (mas[i]>M) and (t=true) then
begin
t:=false;
a:=mas[i];
mas[i]:=M;
for j:=i+1 to max do
begin
M:=mas[j];
mas[j]:=a;
a:=M;
end;
end;
writeln;
for i:=min to max do
write(mas[i],' ');
readkey;
END.
program wstawka;
uses crt;
const min=1;
max=20;
type zona=min..max;
massiw=array[zona] of integer;
var mas:massiw;
i,j:zona;
a,N,M:integer;
T:boolean;
BEGIN randomize;
clrscr; N:=random(20);
writeln('4ucJlo N = ',N);
M:=random(20); Writeln('4ucJlo M = ',M);
for i:=min to max-2 do
begin
mas[i+1]:=mas[i]+random(5);
write(mas[i],' ');
end;
for i:=min to max-2 do
if (mas[i]>N) and (t=false) then
begin
t:=true;
a:=mas[i];
mas[i]:=N;
for j:=i+1 to max do
begin
N:=mas[j];
mas[j]:=a;
a:=N;
end;
end;
for i:=min to max-1 do
if (mas[i]>M) and (t=true) then
begin
t:=false;
a:=mas[i];
mas[i]:=M;
for j:=i+1 to max do
begin
M:=mas[j];
mas[j]:=a;
a:=M;
end;
end;
writeln;
for i:=min to max do
write(mas[i],' ');
readkey;
END.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
КАК ЕТО НАРИСОВАТЬв пайтоне
Автор: ruslanriad10
Написать алгоритм определения равенства двух треугольников, заданных своими сторонами. pascal
Автор: bondarev05071962
Чему равен периметр фигуры изображенной на рисунке
Автор: frdf57
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.
Тестовое решение:
-0.00136006072493969
2. А вот так учат писать это же школьные учителя:
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
m:array[1..100] of real;
i,k:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 100 do begin
m[i]:=sin(i)*cos(i);
if m[i]<>0 then begin
s:=s+m[i];
k:=k+1
end
end;
Writeln(s/k)
end.
Тестовое решение:
-0.00136006072493969