1) Program graph1; uses graph; var gd,gm,error,a,b: integer; x,y:real; begin gd:=detect; initgraph(gd,gm,''); error:=graphresult; if error <> grOk then begin write ('Ошибка: ', grapherrormsg(error)); readln; halt; end; while(x<=100) do begin y:=cos(x*x); a:=round(x*100); b:=round(y*100); PutPixel(a,b+300,15); x:=x+0.001; end;
readln; closegraph; end.
closegraph; end. 2) Program graph1; uses graph; var gd,gm,error,a,b: integer; x,y:real; begin gd:=detect; initgraph(gd,gm,''); error:=graphresult; if error <> grOk then begin write ('Ошибка: ', grapherrormsg(error)); readln; halt; end; while(x<=100) do begin y:=1/(x*x+1); a:=round(x*100); b:=round(y*100); PutPixel(a,b+300,15); x:=x+0.001; end;
var i, n: integer; x: array[1..nm] of real; s: real;
begin Write('Введите размерность вектора n -> '); Readln(n); Write('Вводите координаты вектора через пробел '); s := 0; for i := 1 to n do begin Read(x[i]); s := s + sqr(x[i]) end; Writeln('Длина вектора равна ', sqrt(s):0:4) end.
Тестовое решение:
Введите размерность вектора n -> 7 Вводите координаты вектора через пробел -3.54 0.532 2.6 12 -3 0 1.47 Длина вектора равна 13.2188
1. Для перевода из десятичной системы счисления в двоичную делим исходное число нацело на 2 (показатель системы в которую переводим) до тех пор, пока частное не станет меньше 2 (показателя системы в которую переводим). Далее с последнего частного (это всегда будет 1, за исключением когда исходное число равно 0) выписываем все остатки. 387:2 = 193 (остаток 1) 193:2 = 96 (остаток 1) 96:2 = 48 (остаток 0) 48:2 = 24 (остаток 0) 24:2 = 12 (остаток 0) 12:2 = 6 (остаток 0) 6:2 = 3 (остаток 1) 3:2 = 1 (остаток 1) Деление закончили, т.к. частное меньше 2. Начиная с последнего частного выписываем число - 111000011 (2) 387 (10) = 111000011 (2).
2. В данном алфавите у нас 64 символов, т.е. для кодировки данного алфавита приходится 2^6 =64 - 6 бит на 1 символ. Количество символов 870. Чтобы найти информационный объем сообщения (текста) I, нужно умножить количество символов (отсчетов) N на число бит на символ (отсчет) K: I=N*K = 870*6 = 5220 бит. В 1 байте 8 бит ⇒ 5220 / 8 = 652.5 байт.
3. Дано: K=1600*1024=2^14 пикселей; Количество пикселей считается из разрешающей дисплея - произведении пикселей по горизонтали на кол-во по вертикали. I=24 бит - битовая глубина. Vвп=2 Мб = 2^24 бит. Решение: Используем формулы V=K*i; Объем видеопамяти одной страницы - это произведение количества пикселей на глубину цвета в битах . V= 2^14*3*2^3=3*2^17 m= Vвп/V, где m – это количество страниц экрана m= 2^24/3*2^17 = (1/3) * 2^7 ≈ 42,7 страниц
4. Для хранения информации о моно звуке длительностью t секунд, закодированном с частотой дискретизации f Гц и глубиной кодирования B бит требуется t*B*f бит памяти. Для стерео звука это значение умножается на 2 (2 канала). Получаем: I=t*B*f ⇒ f= I/ (B*f) Переводим в системные единицы: 1 мин = 60 секунд. 1,3 Мбайт= 1,3*2^23 бит
Получаем: f=1.3*2^23 / (8*60) ≈2.7*2^20 Гц = 2831155,2 ГЦ = 2,8 МГц Но если честно, для задач школьного уровня - слишком большая частота - проверьте данные.
Program graph1;
uses graph;
var gd,gm,error,a,b: integer; x,y:real;
begin
gd:=detect;
initgraph(gd,gm,'');
error:=graphresult;
if error <> grOk then begin
write ('Ошибка: ', grapherrormsg(error));
readln; halt;
end;
while(x<=100) do begin
y:=cos(x*x);
a:=round(x*100);
b:=round(y*100);
PutPixel(a,b+300,15);
x:=x+0.001;
end;
readln;
closegraph;
end.
closegraph;
end.
2)
Program graph1;
uses graph;
var gd,gm,error,a,b: integer; x,y:real;
begin
gd:=detect;
initgraph(gd,gm,'');
error:=graphresult;
if error <> grOk then begin
write ('Ошибка: ', grapherrormsg(error));
readln; halt;
end;
while(x<=100) do begin
y:=1/(x*x+1);
a:=round(x*100);
b:=round(y*100);
PutPixel(a,b+300,15);
x:=x+0.001;
end;
readln;
closegraph;
end.