видеока́рта (также видеоада́птер, графический ада́птер, графи́ческая пла́та, графи́ческая ка́рта, графи́ческий ускори́тель) — устройство, преобразующее графический образ, хранящийся как содержимое памяти компьютера (или самого адаптера), в форму, пригодную для дальнейшего вывода на экран монитора. первые мониторы, построенные на электронно-лучевых трубках, работали по телевизионному принципу сканирования экрана электронным лучом, и для отображения требовался видеосигнал, генерируемый видеокартой.
однако эта базовая функция, оставаясь нужной и востребованной, ушла в тень, перестав определять уровень возможностей формирования изображения — качество видеосигнала (чёткость изображения) мало связано с ценой и техническим уровнем современной видеокарты. в первую очередь, сейчас под графическим адаптером понимают устройство с графическим процессором — графический ускоритель, который и занимается формированием самого графического образа. современные видеокарты не ограничиваются простым выводом изображения, они имеют встроенный графический процессор, который может производить дополнительную обработку, снимая эту с центрального процессора компьютера. например, все современные видеокарты nvidia и amd (ati) осуществляют рендеринг графического конвейера opengl и directx и vulcan на аппаратном уровне. в последнее время также имеет место тенденция использовать вычислительные возможности графического процессора для решения неграфических .
обычно видеокарта выполнена в виде печатной платы (плата расширения) и вставляется в разъём расширения, универсальный либо специализированный (agp, pci express). также широко распространены и встроенные (интегрированные) в системную плату видеокарты — как в виде отдельного чипа, так и в качестве составляющей части северного моста чипсета или цпу; в этом случае устройство, строго говоря, не может быть названо видеокартой.
n = 40;
var
s,i,ind,k1,k2: integer;
mas: array[1..n] of integer;
begin
s := 0;
for i:=1 to n do s := s+ mas[i];
Writeln ('сумма элементов массива: ',s);
s := 1;
for i:=1 to n do s := s * mas[i];
Writeln ('произведение элементов массива: ',s);
s := 0;
for i:=1 to n do s := s + mas[i]*mas[i];
Writeln ('сумма квадратов элементов массива: ',s);
s := 0;
for i:=1 to 6 do s := s+ mas[i];
Writeln ('сумма первых 6 элементов массива: ',s);
ind:=0;
repeat
Writeln('Введите К1: '); read(k1);
Writeln('Введите К2: '); read(k2);
if (k2>k1) then ind := 1;
until (ind=1);
s := 0;
for i:=k1 to k2 do s := s+ mas[i];
Writeln ('сумма элементов массива с k1-го по k2-й: ',s);
end.