uses Crt; const N=30; type Mas=array [1..N] of integer; var i, j , SumPol, SumOtr: integer; A: Mas; begin ClrScr; SumPol:=0; SumOtr:=0; WriteLn(' Sposob 1:'); WriteLn; for i:=1 to N do begin A[i]:=-10+random(21); Write (A[i]:4); end; WriteLn; for i:=1 to N do begin if (A[i]>0) then SumPol:=SumPol+A[i]; if (A[i]<0) then SumOtr:=SumOtr+A[i]; end; WriteLn(' SumPol =', SumPol); WriteLn(' SumOtr =', SumOtr); WriteLn; WriteLn (' Sposob 2:') ; SumPol:=0; SumOtr:=0; i:=1; repeat if (A[i]>0) then SumPol:=SumPol+A[i]; if (A[i]<0) then SumOtr:=SumOtr+A[i]; i:=i+1; until i>30; WriteLn(' SumPol =', SumPol); WriteLn(' SumOtr =', SumOtr); ReadLn; end.
Принтер — перифирийное устройство компьютера, предназначенное для перевода текста или графики на физический носитель из электронного вида малыми тиражами (от единиц до сотен) без создания пе. Этим принтеры отличаются от полиграфического оборудования , которое за счёт печатной формы быстрее и дешевле на крупных тиражах (сотни и более экземпляров). Классификация-По возможности печати графической информации принтеры делятся • ударно-шрифтовые (алфавитно-цифровые, ) - барабанные, на основе лепесткового печатающего устройства или пишущей машинки с электромагнитным приводом. Исторические типы. Морально устарели в 1980-е годы. С начала 1990-х годов не выпускаются.• матричные;• лазерные (также светодиодные принтеры);• струйные;• сублимационные• твердо чернильные• 3D принтеры• По количеству цветов печатиo на монохромные(одноцветные) (монохромные)o цветные.На цветных принтерах, к качестве основы цветовой модели используются цвета CMYK:o Cyan - голубойo Magenta - пурпурныйo Yellow - желтыйo Kobalt - черный (английское название соответствует названию тяжелого металла (кобальта), входящего в состав черных красителей)
Наблюдение 1: сумма ряда 1 - 1/2 + 1/3 - 1/4 + 1/5 -... известна и равна ln(2) ~ 0.693147..., так что ответ можно написать и так. Наблюдение 2: если ряд знакочередующийся и его члены по модулю равномерно убывают (т.е. ряд имеет вид x1 - x2 + x3 - x4 + x5 -... и x1 > x2 > x3 > x4 > x5 > ... > 0), то отличие частичной суммы ряда x1 - x2 + x3 - ... +- xn от истинной не более, чем xn.
Используя наблюдение 2, приходим к выводу, что необходимо суммировать первые 10000 членов ряда.
var S: real; i: integer; begin S := 0; for i := 1 to 10000 do if (i mod 2 = 1) then S := S + 1/i else S := S - 1/i; writeln(S) end.
А получилось вот что:
uses Crt;
const N=30;
type Mas=array [1..N] of integer;
var i, j , SumPol, SumOtr: integer;
A: Mas;
begin
ClrScr;
SumPol:=0;
SumOtr:=0;
WriteLn(' Sposob 1:');
WriteLn;
for i:=1 to N do
begin
A[i]:=-10+random(21);
Write (A[i]:4);
end;
WriteLn;
for i:=1 to N do
begin
if (A[i]>0) then SumPol:=SumPol+A[i];
if (A[i]<0) then SumOtr:=SumOtr+A[i];
end;
WriteLn(' SumPol =', SumPol);
WriteLn(' SumOtr =', SumOtr);
WriteLn;
WriteLn (' Sposob 2:') ;
SumPol:=0;
SumOtr:=0;
i:=1;
repeat
if (A[i]>0) then SumPol:=SumPol+A[i];
if (A[i]<0) then SumOtr:=SumOtr+A[i];
i:=i+1;
until i>30;
WriteLn(' SumPol =', SumPol);
WriteLn(' SumOtr =', SumOtr);
ReadLn;
end.