Замечание: контроль правильности ввода не выполняется. #include <stdio.h>
int main(void) { int a_8, a_10, a_5, b, c; printf("Введите число в восьмеричной системе счисления: "); scanf("%d",&a_8); b = a_8; a_10 = 0; c = 1; while (b>0) { a_10 += c*(b % 10); c *= 8; b /= 10; } b = a_10; a_5 = 0; c = 1; while (b>0) { a_5 += c*(b % 5); c *= 10; b /= 5; } printf("%d(8) = %d(10) = %d(5)",a_8,a_10,a_5); return 0; }
Пример: Введите число в восьмеричной системе счисления: 2014 2014(8) = 1036(10) = 13121(5)
.Пространственное (угловое или геометрооптическое) разрешение ИКС характеризует системы различать отдельные объекты или их детали в пространстве объектов или в плоскости изображений. Классическими критериями пространственного разрешения или его мерами в оптике являются критерий Рэлея, диаметр кружка Эри, размер аберрационного кружка рассеяния (изображения точки). Под мерой пространственного разрешения приемника излучения часто подразумевают угол в пространстве объектов, стягиваемый элементом чувствительного слоя приемника, хотя существуют алгоритмы обработки сигнала, позволяющие разрешать меньшие углы или размеры в плоскости чувствительного слоя, где строится изображение [50, 61].
Возможность отличать одни объекты или их отдельные элементы от других во многом зависит от их физических свойств — излучательной и отражательной температур и т. д. Наиболее часто эти различия для объектов описываются контрастом яркостей, а для их изображений - контрастом освещенностей. В соответствии с рекомендациями Международной комиссии по освещению, под контрастом К понимается отношение разности яркостей L и Ь2 двух объектов к их сумме:
K=(Li-L2)/(L1+L2).
Для объекта с яркостью Lo6, находящегося на фоне с яркостью Ьф, контраст определяется как
К = (i-об _ 1фУ(Ьоб + Ьф) .
Довольно часто за определение контраста (разностного контраста) принимают
Кь (Lo6 Ьф)/Z/ф.
При Ьо6 > Ьф контраст называется положительным, при Ь0б < Ьф - отрицательным. Иногда говорят о контрастном отношении К0 = Ь0&/Ьф для Ьоб> Ьф или К0 = Ьф/Ь0б для ЬоЬ < Ьф.
Program rost;
uses crt;
const n=20;
Var nomer,rost_uch,i:integer;
a:array[1..n] of integer;
Begin
For i:=1 to n do
Begin
Write(' Рост ',i,'-ого ученика = ');
Readln(a[i]);
End;
nomer:=1;
rost_uch:=a[1];
For i:=2 to n do
If rost_uch<a[i] then
Begin
nomer:=i;
rost_uch:=a[i];
End;
Writeln('Наибольший рост ',rost_uch,' см, у ученика с порядковым номером ', nomer);
End.
//Если нужны комментарии - пишите в личку