Нужно сделать 1 под б, ХЕЛП

Q: Турбо паскаль y=x tgx-sinx,если x> 1.5 x3+sinx,если 1.5< =x< =2.5 x3 +5,если 1.5=2.5

program n1; var DertyMonk,x:integer; Begin Writeln (‘Введи Х’); ReadLn (x); if x>1.5 then DertyMonk:=x*tg(x) ReadLn (x,'*tg(x)',DertyMonk); else if 1.5 <= x || x <= 2.5 then DertyMonk:=x*3+sin(x) ReadLn (x,'*3+sin(x)',DertyMonk); else DertyMonk:=x*3+5 ReadLn (x,'*3+5=',DertyMonk); end. end; Не пробовал, наверн много ошибок будет тк давно не програмировал на нём

Q: Сколько секунд потребуеться обычьному модему сообщение со скоростью 28800 бит с чтобы передать цветное изоброжение размером 640x480 пикселей при условии что цвет каждого пикселя кодруеться тремя байтами

28800бит/с=28800/8байт/с=3600байт/с t=640*480*3/(3600)=256с

Q: Нужна ! мне нужны только сами программы, можно даже не все, а, хотя бы два номера. но желательно, конечно, все.заранее

1) var y,x:real;beginwriteln('Введите значение x: ');readln(x);y:=x-(sqr(x)*x/3)+(sqr(x)*sqr(x)*x)/5;writeln('y = ',y);end.2) var y,x,z:real;beginwriteln('Введите значение x: ');readln(x);writeln('Введите значение y: ');readln(y);z:=exp(-x*ln(2))-cos(x)+sin(2*x*y);writeln('z = ',z);end.3) var y,x:real;beginwriteln('Введите значение x: ');readln(x);y:=(sqr(x)-7*x+10)/(sqr(x)-8*x+12);writeln('y = ',y);end.4) var y,x:real;beginwriteln('Введите значение x: ');readln(x);y:=x-10*sin(x)+abs(sqr(x)*sqr(

Question 1

Нужно сделать 1 под б, ХЕЛП

Accepted Answer

хз незнаю

Question 2

Строки по следующему правилу: первая строка состорит из одного символа - латинской буквы а. каждая из последующих цепочек создается такими действиями: в очередную строку сначала записывается буква, чейпорядковый номер в алфавите соответствует номеру строки, к ней слева дважды подряд приписываетя предыдущая строка. вот первые 4 строки, созданные по этому правилу: 1)a 2)aab 3)aabaabc 4)aabaabcaabaabcd латинский алфавит длясправки: запишите шесть символов подряд, стоящие в седьмой строке со 116го п

Accepted Answer

сначала определяем к-во символов в каждой строке 1-1 2-3 3-7 4-15 5-31 6-63 7-127 7-я строка имеет 127 символов и состоит из символа G к которому слева добавлено две 6-х строки, определяем номера начала и конца каждой строки 6(1-63)  6(64-126) G(127) видим что нужные символы во 2-й 6-й строке 6-я строка состоит из символа F к которому слева добавлено две 5-х строки, определяем номера начала и конца каждой строки 5(64-94) 5(95-125) F(126) нужные символы во 2-й 5-й строке 5-я строка состоит из сим

Question 3

Турбо паскаль y=x tgx-sinx,если x> 1.5 x3+sinx,если 1.5< =x< =2.5 x3 +5,если 1.5=2.5

Accepted Answer

program n1; var DertyMonk,x:integer; Begin Writeln (‘Введи Х’); ReadLn (x); if x>1.5 then  DertyMonk:=x*tg(x)  ReadLn (x,'*tg(x)',DertyMonk); else if 1.5 <= x || x <= 2.5 then   DertyMonk:=x*3+sin(x)  ReadLn (x,'*3+sin(x)',DertyMonk); else   DertyMonk:=x*3+5  ReadLn (x,'*3+5=',DertyMonk); end. end;   Не пробовал, наверн много ошибок будет тк давно не програмировал на нём

Question 4

Сколько секунд потребуеться обычьному модему сообщение со скоростью 28800 бит с чтобы передать цветное изоброжение размером 640x480 пикселей при условии что цвет каждого пикселя кодруеться тремя байтами

Accepted Answer

28800бит/с=28800/8байт/с=3600байт/с t=640*480*3/(3600)=256с

Question 5

Нужна ! мне нужны только сами программы, можно даже не все, а, хотя бы два номера. но желательно, конечно, все.заранее

Accepted Answer

1) var y,x:real;beginwriteln('Введите значение x: ');readln(x);y:=x-(sqr(x)*x/3)+(sqr(x)*sqr(x)*x)/5;writeln('y = ',y);end.2) var y,x,z:real;beginwriteln('Введите значение x: ');readln(x);writeln('Введите значение y: ');readln(y);z:=exp(-x*ln(2))-cos(x)+sin(2*x*y);writeln('z = ',z);end.3) var y,x:real;beginwriteln('Введите значение x: ');readln(x);y:=(sqr(x)-7*x+10)/(sqr(x)-8*x+12);writeln('y = ',y);end.4) var y,x:real;beginwriteln('Введите значение x: ');readln(x);y:=x-10*sin(x)+abs(sqr(x)*sqr(

Нужно сделать 1 под б, ХЕЛП

Информатика: новые вопросы