<em>// PascalABC.NET 3.2, сборка 1362 от 14.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure Love(n:integer);
begin
Writeln(n*('Я люблю ПАСКАЛЬ'+NewLine))
end;
begin
Love(ReadInteger('n='))
end.
<u>Пример</u>
n= 5
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
<em>// PascalABC.NET 3.2, сборка 1362 от 14.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure LinEqu(a,b:real);
begin
if a=0 then
if b=0 then Writeln('Решений бесконечно много')
else Writeln('решений нет')
else Writeln('x=',-b/a)
end;
begin
var a,b:real;
Write('Введите а и b: '); Read(a,b);
LinEqu(a,b)
end.
<u>Пример</u>
Введите а и b: 18.45 -12
x=0.650406504065041
<span>Найперші відеокамери були створенні шотландським інженером Джоном Лоугі Бердом, вони працювали на електромеханічному диску Ніпкова і були використанні BBC в експериментальних передачах у 1930 році.</span><span>Цілком-електронні розробки засновані на електронно-променевій трубці,
як наприклад Іконоскоп Володимира Зворикіна та дисектор Філа
Фарнсуорта, витіснили систему Джона Берда у 1940 році і залишалися в
широкому використанні до 1980 року, коли почали робити відеокамери засновані на КМОН технології.</span>
Різновиди відеокамер
Сучасні відеокамери мають величезну кількість дизайнів та призначень,
не всі з яких повністю відповідають раннім телевізійним камерам.
Професійні відео камери, як наприклад ті що використовуються у телебаченні
та інколи виробництві фільмів; бувають мобільними або розташованими на
студії (не мобільні). Такі камери зазвичай дозволяють операторові
здійснити дуже точні ручні налаштування, часто аж до відмови від
автоматичного використання.Камкодери, які поєднують камеру та відеомагнітофон або ж інший записуючий пристрій в одному апараті; ці камери мобільні, та широко використовуються у виробництві теле-програм, домашніх фільмів, електронне збирання новин (включно з громадянською журналістикою), та подібними застосуваннями. Деякі цифрові камкодери є:
Кишеньковими відео камерами.Камери відеоспостереження (англ. CCTV cameras ), система передачі інформації з відеокамер, телевізійних камер на обмежену кількість моніторів
та/або записуючих пристроїв. Відмінність систем відеоспостереження від
телевізійного мовлення полягає в тому, що сигнал не передається у
відкритому режимі. Системи відеоспостереження часто використовуються для
спостереження в місцях, які потребують постійного нагляду, таких як банки, банкомати, казино, вокзали, аеропорти, військові об'єкти та звичайні магазини.
Вебкамери це цифрові відео чи фотокамери, які мають можливість в реальному часі фіксувати зображення, призначені для подальшої передачі по мережі Інтернет (в програмах типу Skype, Instant Messenger тощо). Веб-камери, які доставляють зображення по інтернету, завантажують зображення на веб-сервер
чи по запиту, або безперервно, або через регулярні проміжки часу. Це
досягається шляхом підключення камери до комп'ютеру або завдяки
можливостям самої камери. Деякі сучасні моделі володіють апаратним та програмним забезпеченням, яке дозволяє камері самостійно працювати в якості веб-сервера, FTP-сервера, FTP-клієнта і/або відсилати зображення за допомогою електронної пошти.Цифрові камери пристрої, які використовуються для зйомки відео чи створення фото-знімків або ж обох, в яких світлочутливим матеріалом є матриця або кілька матриць, що складаються з окремих пікселів,
сигнал з яких представляється, обробляється і зберігається в самому
апараті в цифровому вигляді. Це найпоширеніший пристрій при створенні цифрових фотознімків. Більшість камер 21го сторіччя є цифровими.Спеціальні системи, як наприклад ті що використовуються в наукових дослідах, тобто на борту супутника або ж космічного апарату, чи у штучному розуму чи у дослідах пов'язаних з роботикою . Такі камери зазвичай налаштовані для виявленя інфрачервоних фотографій (для нічної зйомки та виявлення тепла) або при виявленя рентгенівського випромінювання (для медичних та спекл інтерферометричних цілей).
Ответ:
количество px в изображении = 200 * 100 = 20 000 px
битность => 16 цветов = 4 бит
20 000 * 4 = 80 000 бит
80 000 / 8 = 10 000 байт
Ответ:
для изображения размером 200×100 пикселей
при глубине цвета 4 бит (16 цветов)
необходимо 10 000 байт
Program primer;
procedure random(c,x,y:integer; var r:integer);
begin
case c of
1 : r:=Random(ABS(Y)+ABS(x)+1)+x;
2 : r:=Random(ABS(Y)+ABS(x)+1)+y;
3 : r:=Random(Y-x+1)+x;
4 : r:=Random(x-y+1)+y;
5 : r:=Random(x+y);
6 : r:=Random(ABS(x+y))-ABS(x+y);
7 : r:=x;
8 : r:=Random(ABS(ABS(x)-ABS(y)))-ABS(x);
9 : r:=Random(ABS(ABS(x)-ABS(y)))-ABS(y);
end;
end;
var
a,b: array of array of integer;
i,j,x,y,c,m,p,sum:integer; begin
Randomize;
sum:=0;
writeln('Кол-во строк и столбцов массива? //X,Y\\ ');
read(i,j); //Размерность массива
writeln('Диапазон чисел //от X,до Y\\ ');
read(x,y); //и диапазон генерации вводятся с клавиатуры.
if (x=y) then
c:=7
else
if(x<0) and (y<0) then
if (x<y) then
c:=8
else
c:=9
else
if (x=0) or (y=0) then
if(x<0) or (y<0) then
c:=6
else
c:=5
else
if(x<0) or (y<0) then
if (x<y) then
c:=1
else
c:=2
else
if (x<y) then
c:=3
else
c:=4;
SetLength(a,i);
for m:=0 to i-1 do
SetLength(a[m],j);
SetLength(b,i);
for m:=0 to i-1 do
SetLength(b[m],j);
for m:=0 to i-1 do begin
writeln();
for p:=0 to j-1 do begin
random(c,x,y,a[m,p]); {Заполнить двумерный массив случайными числами.}
sum:=sum+a[m,p]; {вычисляет сумму всех элементов массива}
write (a[m,p]:3,' ':3);
end;
end;
c:=0;
writeln('summa=',sum);
for m:=0 to i-1 do begin {Затем организовать новый массив В }
writeln();
for p:=0 to j-1 do begin
if (a[m,p] <0) then begin
b[m,p]:=1; {в котором заменить отрицательные элементы исходного массива на 1} inc(c); {Подсчитать количество замен. }
end
else
b[m,p]:=a[m,p]; {а значения остальных элементов оставить без изменения }
write(b[m, p]:3, ' ':3);
end;
end;
writeln('kol=',c);
a:=NIL;
b:=NIL;
end.
// ABC Pascal
<span>Персональный компьютер или просто ПК — компьютер предназначенный для эксплуатации одним пользователем, то есть для личного использования.
</span><span>трактовку.</span>