Компьютор -электронна вычеслительная машина (ЭВМ)
Program start;
var a:integer;
begin
readln(a);
writeln(a,a);
end.
{Файл: prog3_13.pasЗадача: Дано целое положительное число n, вещественное число x. Найти значение многочлена вида an*x^n+a(n-1)*x^(n-1)+...+a1*x^1+a0, если коэффициент многочлена вводятся последовательно с клавиатуры в следующем порядке:an, a(n-1), ..., a1, a0Автор: Дата 22,09,2015}var n, a, i, j :integer; x, p, x1 :real; begin p:=0; {ввод постояных x, n} writeln ('введите n, x'); readln (n, x); {начало вычисление многочлена} for i:=n downto 1 do begin {ввод an, an-1,..., a1, a0} writeln ('введите a',i); readln (a); for j:=1 to n do begin {вычисление x^n} x1:=1; x1:= x1*x; end; {вычисление an*x^n+a(n-1)+x^(n-1)+...+a1*x^1+a0} p:=a*x1+p; end; {ответ} writeln('значение многочлена ',p);end.
Ответ:
I like the ytrr kop. Hu koplotyu
Скриншот результата программы и программа в приложениях.
1 программа с предусловием цикл while - end;
2 программа с постусловием цикл repeat - until;
Блок схем с предусловием приложена