ответить на во Приведи 4 примера технических устройств, которые используют аналоговую форму звука для хранения или воспроизведения.
2. Охарактеризуй цифровую форму представления звука.
3. Охарактеризуй дискретную форму представления звука.
4. Чем отличается АЦП от ЦАП?
5. Подготовь сообщение (3-5 минут) об одном из приведенном примере техническом устройстве в первом во
#include <iostream> // подключаем библиотеки
#include <cstdlib>
using namespace std; // глобальное пространство имён
int main()
{
setlocale(LC_ALL,"russian"); // русский язык
int tenge;
int number = 0;
cout << "Введите сумму Вашего вклада: ";
cin >> tenge;
if(tenge==200000) // если вклад 200000
{
cout << "Ваш доход составит 13,5% в год. ";
number = number+1;
}
if(tenge==350000) // если вклад 350000
{
cout << "Ваш доход составит 14,2% в год. ";
number = number+1;
}
if(number==0) // если какая-то иная сумма
{
cout << "Требуется уточнить у менеджера процентную ставку для Вашей суммы вклада. Ожидайте.";
}
system("pause");
return 0; // код ошибки "0"
}
задача 1
program ProcArray;
procedure GetMax (A: array of Integer; var imax: Integer);
var
i: Integer;
begin
imax := Low (A);
for i := Low (A) to High (A) do
if A [i] > A [imax] then
imax := i;
end;
procedure GetMin (A: array of Integer; var imin: Integer);
var
i: Integer;
begin
imin := Low (A);
for i := Low (A) to High (A) do
if A [i] < A [imin] then
imin := i;
end;
procedure Repl (var A: array of Integer; OldValue, NewValue: Integer);
var
i: Integer;
begin
for i := Low (A) to High (A) do
if A [i] > OldValue then
A [i] := NewValue;
end;
var
A: array [0..49] of Integer;
i, imax, imin: Integer;
begin
Randomize;
for i := Low (A) to High (A) do begin
A [i] := Random (21) - 10;
Write (A [i] :3, ' ');
end;
WriteLn;
GetMax (A, imax);
WriteLn ('Максимальное значение = ', A [imax]);
GetMin (A, imin);
WriteLn ('Минимальное значение = ', A [imin]);
Repl (A, 1, 0);
WriteLn ('Замена >1 на 0');
for i := Low (A) to High (A) do
Write (A [i] :3, ' ');
ReadLn;
end.
задача 2
program ProcArray1;
procedure Multi (A: array of Integer; var Prod: LongInt);
var
i: Integer;
begin
Prod := 1;
for i := Low (A) to High (A) do
Prod := Prod * A [i];
end;
procedure Repl (var A: array of Integer; OldValue, NewValue: Integer);
var
i: Integer;
begin
for i := Low (A) to High (A) do
if A [i] > OldValue then
A [i] := NewValue;
end;
var
A: array [0..29] of Integer;
i: Integer;
p: LongInt;
begin
Randomize;
for i := Low (A) to High (A) do begin
A [i] := Random (3) + 1;
Write (A [i] :3, ' ');
end;
WriteLn;
Multi (A, p);
WriteLn ('Произведение = ', p);
Repl (A, 5, 1);
WriteLn ('Замена >5 на 1');
for i := Low (A) to High (A) do
Write (A [i] :3, ' ');
ReadLn;
end.
Объяснение:
Во задаче №2 при заполнении массива значениями больше 5 начинает возникать переполнение LongInt из за чего значение произведения становится отрицательным