1)
program zadacha1;
uses crt;
var b,i,j:integer;
c,pr:real;
a:array [1..4,1..7] of integer;
begin
clrscr;
pr:=1;
for i:=1 to 4 do
begin
for j:=1 to 7 do
begin
readln(a[i,j]);
end;
end;
for i:=1 to 4 do
begin
for j:=1 to 7 do
begin
if (a[i,j] mod 3) = 0 then pr:=pr*a[i,j];
end;
end;
pr:=pr/3;
writeln(pr:2:3);
readkey;
end.
2)
program zadacha2;
uses crt;
const k=8;
var b,i,j,sum:integer;
c,pr:real;
a:array [1..k,1..k] of integer;
begin
randomize;
clrscr;
pr:=1;
for i:=1 to k do
begin
for j:=1 to k do
begin
a[i,j]:=random(36)+10;
end;
end;
for i:=1 to k do
begin
for j:=1 to k do
write(a[i,j],' ');
writeln;
end;
for j:=1 to k do
begin
if (a[k,j] mod 5) = 0 then pr:=pr*a[i,j];
end;
for i:=1 to k do
begin
for j:=1 to k do
begin
if (i=j) and (a[i,j] > 0) then sum:=sum+a[i,j];
end;
end;
writeln('Prozvedenie ',pr:2:2);
writeln('Summa ',sum);
writeln('Raznostb ',pr-sum:2:2);
readkey;
end.
3)
program zadacha3;
uses crt;
const k=9;
var b,i,j:integer;
sred,sum,l:real;
a:array [1..k,1..k] of integer;
begin
randomize;
clrscr;
for i:=1 to k do
begin
for j:=1 to k do
begin
a[i,j]:=random(55-12+1)+12;
end;
end;
for i:=1 to k do
begin
for j:=1 to k do
write(a[i,j],' ');
writeln;
end;
for i:=1 to k do
begin
if (a[i,k] mod 2) = 1 then
begin
l:=l+a[i,k];
b:=b+1;
end;
end;
sred:=l/b;
for i:=1 to k do
begin
if a[i,i]>25 then sum:=sum+a[i,i];
end;
writeln;
writeln('Srednee ',sred:2:2);
writeln('Summa ',sum:2:1);
readkey;
end.
4)
program zadacha4;
uses crt;
const k=5;
var b,i,j:integer;
sred,sum,l:real;
a:array [1..k,1..k] of integer;
begin
randomize;
clrscr;
for i:=1 to k do
begin
for j:=1 to k do
begin
a[i,j]:=random(91)-20;
end;
end;
j:=k;
for i:=1 to k do
begin
if (a[i,j] mod 2)<> 0 then
begin
l:=l+a[i,j];
b:=b+1;
end;
j:=j-1;
end;
sred:=l/b;
for i:=1 to k do
begin
for j:=1 to k do
write(a[i,j],' ');
writeln;
end;
writeln;
writeln('Srednee ',sred:4:2);
readkey;
end.
5)
program zadacha5;
uses crt;
const k=5;
var b,i,j:integer;
sred,sum,l:real;
a:array [1..k,1..k] of integer;
begin
randomize;
clrscr;
for i:=1 to k do
begin
for j:=1 to k do
begin
a[i,j]:=random(31)-40;
end;
end;
j:=k;
for i:=1 to k do
begin
if (a[i,j] mod 2)<> 0 then
begin
l:=l+a[i,j];
b:=b+1;
end;
j:=j-1;
end;
sred:=l/b;
for i:=1 to k do
begin
for j:=1 to k do
write(a[i,j],' ');
writeln;
end;
writeln;
writeln('Srednee ',sred:4:2);
readkey;
end.
6)
program zadacha6;
uses crt;
const k=6;
var b,i,j:integer;
sred,sum,l:real;
a:array [1..k,1..k] of integer;
begin
randomize;
clrscr;
for i:=1 to k do
begin
for j:=1 to k do
begin
a[i,j]:=random(21);
end;
end;
j:=k;
for i:=1 to k do
begin
if a[i,j]>5 then
begin
l:=l+a[i,j];
end;
j:=j-1;
end;
l:=l/2;
for i:=1 to k do
begin
for j:=1 to k do
write(a[i,j],' ');
writeln;
end;
writeln;
writeln('Sum ',l:2:2);
readkey;
end.
7)
program zadacha7;
uses crt;
const k=5;
var b,i,j:integer;
pred,sum,l:real;
a:array [1..k,1..k] of integer;
begin
randomize;
clrscr;
for i:=1 to k do
begin
for j:=1 to k do
a[i,j]:=random(10);
end;
j:=k;
for i:=1 to k do
begin
l:=l+a[i,j];
j:=j-1;
end;
for i:=1 to k do
begin
for j:=1 to k do
write(a[i,j],' ');
writeln;
end;
for i:=1 to k do
begin
sum:=sum+a[i,i];
end;
pred:=sum+l;
writeln('Sum ',pred/10:2:2);
readkey;
end.
8)
program zadacha8;
uses crt;
const k=5;
var b,i,j:integer;
pred,sum,l:real;
a:array [1..k,1..k] of integer;
begin
randomize;
clrscr;
for i:=1 to k do
begin
for j:=1 to k do
a[i,j]:=random(10);
end;
j:=k;
for i:=1 to k do
begin
l:=l+a[i,j];
j:=j-1;
end;
l:=l/k;
for i:=1 to k do
begin
for j:=1 to k do
write(a[i,j],' ');
writeln;
end;
for i:=1 to k do
begin
sum:=sum+a[i,i];
end;
sum:=sum/2;
writeln('Sum ',sum:2:2);
writeln('Sred',l:2:2);
readkey;
end.
История компьютерной мыши начинается 9 декабря 1968 года, когда она была представлена на показе интерактивных устройств в Калифорнии. Патент на этот гаджет получил Дуглас Энгельбарт в 1970 году.
Большинство операций с материальными предметами окружающего мира человек, как правило, совершает руками. Такие действия нам привычны и удобны. Мышь – устройство, позволяющее движениями руки воздействовать на виртуальные компьютерные объекты – переносить их, разворачивать, нажимать на виртуальные кнопки и т.д.
Первая компьютерная мышь была создана в 1968 году. Она представляла собой грубую деревянную коробку с двумя большими колесами внутри и единственной кнопкой на корпусе.
В 90-х годах века широкое распространение получили шариковые мыши.
При перемещении мыши её резиновый шарик катился по поверхности коврика. Он вращал два валика, на которых были закреплены диски с прорезями. Возле каждого валика находился специальный источник света — светодиод. Он посылал лучи света на вращающийся диск. Тонкие лучи от источника света прерывались при вращении дисков. Приёмники света (фототранзисторы) улавливали эти изменения и посылали сигналы компьютеру.
Современные оптические мыши подсвечивают находящуюся под ними поверхность. Этот свет отражается от поверхности и фиксируется оптическим устройством. Полученный «снимок» передается в микропроцессор мыши. На основании анализа череды последовательных «снимков» микропроцессор определяет направление перемещения мыши. Соответствующие сигналы передаются компьютеру.
Используя ту или иную технологию, мышь передаёт компьютеру информацию о своих перемещениях в пространстве. Получаемые данные обрабатываются процессором, и операционная система соответствующим образом перемещают курсор (указатель мыши) по экрану.
В свою очередь программы, запущенные на компьютере, получают от операционной системы сведения о том, что курсор находится над тем или иным элементом управления и заданным образом реагируют на действия мыши – нажатие клавиш или вращение колеса прокрутки.
Достоинства компьютерной мышиМышь стала основным координатным устройством ввода из-за следующих особенностей:
– Очень низкая цена по сравнению с остальными устройствами наподобие сенсорных экранов;
– Мышь пригодна для длительной работы. В первые годы мультимедиа кинорежиссёры любили показывать компьютеры «будущего» с сенсорным интерфейсом, но на поверку такой ввода довольно утомителен, так как руки приходится держать на весу;
– Высокая точность позиционирования курсора. Мышью (за исключением некоторых «неудачных» моделей) легко попасть в нужный пиксель экрана;
– Мышь позволяет множество разных манипуляций — двойные и тройные щелчки, перетаскивания, жесты, нажатие одной кнопки во время перетаскивания другой и т. д. Поэтому в одной руке можно сконцентрировать большое количество органов управления — многокнопочные мыши позволяют управлять, например, браузером вообще без привлечения клавиатуры.
Недостатки компьютерной мыши– Предполагаемая опасность синдрома запястного канала;
– Для работы требуется ровная гладкая поверхность достаточных размеров;
– Неустойчивость к вибрациям. По этой причине мышь практически не применяется в военных устройствах.
