#include <iostream>#include <stdio.h>#include <stdlib.h>#include <locale.h>#include <math.h>using namespace std;/* run this program using the console pauser or add your own getch, system("pause") or input loop */
int main(int argc, char** argv) { setlocale(LC_ALL,"rus"); cout<<"f(x) = x^2"<<endl; for(int i=1 ; i<10 ; i++) { cout<<"Äëÿ x = "<<i<<", f(x) = "<<pow(i,2)<<";\n"; } return 0;}
Алина, не корректно задана задача, но если необходимо перевести 1435² то сначала возводим в квадрат = получаем 2 059 225 и затем это число переводим в 2с/с оно будет равно =111110110101111011001^2.
А вообще если само число 1435 перевести в 2с/с = 10110011011, а 3125 = 110000110101.
Формула, которая используется во всех заданиях:
N = 2^i
N - количество значений
I - количество информации
1) 2^6=64 цвета - ответ
2) (256*8*1024) / (1024*512)= 8/2 = 4 бит на точку
2^4=16 цветов - ответ
3) 256=2^8, 8 бит=1 байт на точку
10*10=100 точек
100 байт - ответ
4) 1024*768*16 бит
(1024*768*16)/(8*1024*1024)=1, 5 Мбайт - ответ
5) (512*1024*8)/(800*600)~= 8, 7 бит на точку
2^8(округление в меньшую сторону)=256 цветов - ответ
Если тебе нужен код, то вот он:
var
<span> x : real; </span>
<span>begin </span>
<span> write('x = ');readln(x); </span>
<span> if x > 0 </span>
<span> then </span>
<span> x := x - 50 </span>
<span> else </span>
<span> x := x + 100; </span>
<span> writeln('result : x = ',x:0:2); </span>
<span>end.</span>
<em>PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>Внимание! Если программа не работает, обновите версию!</em>
<u>1. Решение в современном стиле</u>
function Horner(x:real;a:array of real):real;
begin
Result:=x*a.Last;
for var i:=a.Length-2 downto 1 do
Result:=x*(a[i]+Result);
Result+=a.First
end;
begin
var n:=ReadInteger('Степень полинома:');
var x:=ReadReal('x=');
var a:=ReadArrReal('Коэффициенты, начиная со свободного члена:',n+1);
Writeln('Значение полинома: ',Horner(x,a))
end.
<u>Пример</u>
Степень полинома: 6
x= 2.18
Коэффициенты, начиная со свободного члена: -4 1 0 -5 0 0 3
Значение полинома: 268.382061281472
<u>2. Решение в стиле "так писали на ТурбоПаскаль наши отцы и деды"</u>
const
nn=50; // максимальная степень полинома
type
mas=array[0..nn] of real;
function Horner(n:integer;x:real;a:mas):real;
var
i:integer;
s:real;
begin
s:=x*a[n];
for i:=n-1 downto 1 do
s:=x*(a[i]+s);
Horner:=s+a[0]
end;
var
i,n:integer;
x:real;
a:mas;
begin
Write('Степень полинома: ');
Read(n);
Write('x= ');
Read(x);
Write('Коэффициенты, начиная со свободного члена: ');
for i:=0 to n do
Read(a[i]);
Writeln('Значение полинома: ',Horner(n,x,a))
end.
