Free Pascal
а вот при рекурсии
var
n, k: longint;
s : double;
function fact(x:longint): longint;
begin
if x=0 then fact:=1
else fact:=fact(x-1)*x;
end;
begin
writeln('Введите n:');
readln(n);
s:=0;
for k := 1 to n do
s:= s + (fact(k)+5)/fact(k+1);
writeln(s:4:4)
end.
# Python 3.x
import numpy
# Вводим массив случайных целых чисел диапазона от -1000 до 1000.
array=numpy.array((numpy.random.random(30) * 2 - 1) * 1000, numpy.int)
print(array)
# Считаем сумму среза массива по условию нечетности элементов.
sumary=numpy.sum(array[array % 2 != 0])
print("Sumary: ", sumary)
#
A=int(input("A: "))
indexs=numpy.where(array > A)[0]
result=[str(index) for index in indexs] # для метода join требуются строковые значения.
print(f"Here indexs, more that {A}: ", ', '.join(result))
#
k=int(input("k: "))
positives=array[array >= 0]
required=positives[positives % k == 0]
print(len(required), f" positive items divisible {k}")
Минимальная единица изображения:
растровая: пиксели
векторная: графические формулы
Какая информация хранится в файлах векторного и раствого типа:
Ростовая: о пикселях, составляющих изображения.
Векторная: о графических примитивах, составляющих изображение.
С каких средств получается изображение:
растровая: Paint, Gipm, Adobe Photoshop
Векторная: Microsoft Word, OpenOffice, CorelDRAW , Macromedia Flash.
Объём графических файлов:
растровая: очень большой объём
Векторная: относительно небольшой объём
реакция изображения на изменение его размера:
Растровая: не желательно, возможно искажение.
Векторная: качество не будет потеряно, остаётся прежний вид.
Достоинства графики:
растровая: позволяет работать с фотореалестичными изображениями, простая ретушь и комбинация частей изображения, ввод сканера и и цифровыми камерами.
векторная: маленький объём файла, простое маштабирование.
Недостатки графики:
растровая: большой объём файла, маштабирование с искажением и ухудшение качества,
векторная: не пригодна для реалестичных изображений.
Форматы файлов:
растровая: BPM, GIF, JPG, PCX, TIF.
векторная: WMF, EPS, DXF, CCM
Объяснение:
На Паскале:
program Fproj;
var
k,n:integer;
S:Double;
function F(n: integer):integer;
var i:integer;
begin
F := 1;
for i:=2 to n do
F := F * i;
end;
begin
readln(n);
s:=0;
for k:=1 to n do
begin
S:=S+(F(k)+5)/F(k+1);
end;
writeln('S= ',S:5:2);
readln;
end.