1.
Целочисленный - Integer
Вещественный - Real
Символьный - Char
Строковый - String
Логический - Boolean
2.
1)
k1:real
k2:real
g:integer
g:=sqrt(k1+k2)
2)
t:integer
r:integer
k:integer
s:integer
s:=t*s+r*s+k*s
3.
Ошибки в программе:
Program 1a;-Сначала нужно написать букву,а затем цифру
c:integer;-Нельзя преобразовать тип real к integer // integer заменяем на real
writeln('c=',c)-Добавить в конец ;
/////////////////////////////////////////////////////////////////////////////////////////////
Исправленная программа:
Program a1;
var c:real;
begin
writeln('Введите c');
readln(c);
c:=c/2.5;
writeln('c=',c);
end.
Если надо, чтобы выделились все пиксели, T должно быть не меньше, чем расстояние от исходной точки до самой дальней (в пространстве RGB). При этом расположение ячеек не играет роли. Остается перебрать все варианты начальных точек, для каждого найти наименьшее Т, и из полученных значений выбрать минимальное.
Код (python 3.5):
from math import sqrt, ceil
points = [["A",0,190,160],["B",0,165,160],["C",0,140,185],["D",0,150,170],
["E",0,140,160],["F",0,120,130],["G",0,140,110],["H",0,130,170],
["I",0,120,190],["J",0,90,160],["K",0,115,160],["L",0,140,130],
["M",0,160,190],["N",0,140,145],["O",0,140,210],["P",0,160,130]]
minT2 = 3*256**2
minpt = "A"
for pt in points:
T2 = 0
for pt2 in points:
T2 = max(T2, (pt[1]-pt2[1])**2+(pt[2]-pt2[2])**2+(pt[3]-pt2[3])**2)
if T2 < minT2:
minpt, minT2 = pt[0], T2
print(minpt, ceil(sqrt(T2)))