видеока́рта (также видеоада́птер, графический ада́птер, графи́ческая пла́та, графи́ческая ка́рта, графи́ческий ускори́тель) — устройство, преобразующее графический образ, хранящийся как содержимое памяти компьютера (или самого адаптера), в форму, пригодную для дальнейшего вывода на экран монитора. первые мониторы, построенные на электронно-лучевых трубках, работали по телевизионному принципу сканирования экрана электронным лучом, и для отображения требовался видеосигнал, генерируемый видеокартой.
однако эта базовая функция, оставаясь нужной и востребованной, ушла в тень, перестав определять уровень возможностей формирования изображения — качество видеосигнала (чёткость изображения) мало связано с ценой и техническим уровнем современной видеокарты. в первую очередь, сейчас под графическим адаптером понимают устройство с графическим процессором — графический ускоритель, который и занимается формированием самого графического образа. современные видеокарты не ограничиваются простым выводом изображения, они имеют встроенный графический процессор, который может производить дополнительную обработку, снимая эту с центрального процессора компьютера. например, все современные видеокарты nvidia и amd (ati) осуществляют рендеринг графического конвейера opengl и directx и vulcan на аппаратном уровне. в последнее время также имеет место тенденция использовать вычислительные возможности графического процессора для решения неграфических .
обычно видеокарта выполнена в виде печатной платы (плата расширения) и вставляется в разъём расширения, универсальный либо специализированный (agp, pci express). также широко распространены и встроенные (интегрированные) в системную плату видеокарты — как в виде отдельного чипа, так и в качестве составляющей части северного моста чипсета или цпу; в этом случае устройство, строго говоря, не может быть названо видеокартой.
function Fact(n:integer):integer;
var
rez, i:integer;
begin
rez := 1;
for i := 2 to n do
rez := rez * i;
Fact := rez;
end;
function Pow(a, x:integer):integer;
var
rez, i:integer;
begin
rez := 1;
for i := 1 to x do
rez := a * rez;
Pow := rez;
end;
var
a, b, n, i:integer;
F:real;
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('n = '); readln(n);
F := 0;
for i := 1 to n do
F := F + Fact(n - i + 1)/(Pow(a,i) - Pow(b, i));
writeln('F = ', F);
end.
begin
writeln('Введите число и степень через пробел');
readln(a,n);
step:=1;
for i:=1 to n do
step:=step*a;
writeln('ответ: ',step);
readln
end.