Дано натуральное число n и действительное число x. вычислить сумму ряда: sin x + sin 2x+sin 3x+…sin n*x протестировать программу для x=1.5 и n=3. проверить правильность ответа на калькуляторе.
begin repeat writeln('Введите количество слагаемых:'); readln(n) until n>0; writeln('Введите ''x'':'); readln(x); for i := 1 to n do s := s + sin(i * x); writeln(s); readln end.
По сравнению с просмотром кино, при работе на компьютере мы сосредатачиваемся на более мелких областях и более внимательно, а не смотрим на весь экран в целом. Так же к монитору мы сидим куда ближе чем к телевизору. Потому мигание и прочие деформации картики становятся более заметными. Потому так ценится плотность пикселей и цветопередача монитора. Например плотность пикселей в современных смартфонах и планшетах обычно выше чем у мониторов, потому что мы смотрим на них еще с более близкого растояния чем на мониторы. Надеюсь все выше сказанное дает понять причину увиличения частоты обновления Сама же настройка этой частоты зависит от самого монитора и тп
Вот тебе для двоичной системы, дальше сам додумай,я просто в переводах в системы счисления не силён,только двоичную толком знаю))
Program sist; var a,b,f:integer; c,p,i:string; begin readln(a); //вводим число b:=2; //это у нас будет степень, сам потом переделаешь,чтоб вводить её тоже while a>0 do //тут задаём условие (пока a>0 выполняем действия:) begin //начало скобки(должен знать) if a mod b=0 then c:='0' else c:='1'; //проверяем условие(если остаток от деления а поделить на 2 равен 0 то строка равна символу 1 иначе символ 0) a:=a div b; //делим а на b без остатка i:=i+c; //присваиваем строке i результат: строка i+результат строки c end; //конец скобки for f:=length(i) downto 1 do //начинаем цикл от большего к меньшему(от количества символов в строке i до 1) p:=p+i[f]; //(к строке p прибавляем символ строки i) это относится к нашему циклу i:=p; //тут понятно думаю writeln(p, '(',b,')'); //выводим результат end.
var
n, i: integer;
x, s: real;
begin
repeat
writeln('Введите количество слагаемых:');
readln(n)
until n>0;
writeln('Введите ''x'':');
readln(x);
for i := 1 to n do
s := s + sin(i * x);
writeln(s);
readln
end.