Вывести график функции sin(180-cos(x)) в паскале пример: uses graphabc; var i, x, y, s, c: integer; begin setwindowwidth (720); setwindowheight (720); line (0,360,720,360); line (360,0,360,720); x: =0; y: =360; for i: =1 to 720 do begin if (y> =0) and (y< 720) then setpixel
(x,y,clblue); x: =1+x; s: =(0-round(sin(x/180*3.1415926532)*100)); c: =(0-round(cos(x/180*3.1415926532)*100)); y: =-round((c*c*c+s*s*s)/10000)+360; end; end.
Программа:
program z;
var k,s,x:integer;
begin
k:=0; {начальное значение количества двузначных чисел}
s:=0; {начальное значение суммы двузначных чисел}
while True do {открываем бесконечный цикл}
begin
readln(x); {вводим число х}
if x=0 then break; {если введенное число равно 0, то остановить цикл}
if (x>9)and(x<100) then {если число двузначное, т.е. от 10 до 99}
begin
k:=k+1; {количество увеличиваем на 1}
s:=s+x; {увеличиваем предыдущее значение суммы на число х}
end;
end;
if k=0 then writeln('NO') {если двузначных чисел не было, то вывод NO}
else writeln(s/k); {иначе вывод ср.арифметического}
end.
Если разрешение файла увеличили в три раза, а частоту дискретизации уменьшили в пять раз, значит объем файла был увеличен в три раза и уменьшен в пять.
Время передачи изменяется пропорционально объему файла, то есть, к примеру, увеличив объем в три раза, время передачи будет увеличено также в три раза.
В пункт А файл был передан за 50 секунд. Определим время передачи в пункт А нового (изменённого) файла.
50 * 3 / 5 = 30 секунд.
То есть если бы мы передавали измененный файл в пункт А, то он был бы передан за 30 сек.
Пропускная между А и Б в шесть раз выше, значит из пункта А в пункт Б файл был передан за
30 / 6 = 5 секунд.