Program MassXY;
uses crt;
const n = 20;
var
x,y:array [1..n] of real;
i,k, maxnum, minnum:integer;
max, min,temp: real;
begin
k:=1;
randomize;
for i:=1 to n do
begin
x[i]:=random(101)-50;
if (1<=x[i]) and (x[i]<=2) then
begin
y[i]:=x[i];
k:=k+1;
end;
end;
writeln('*** alphaues is thinking... ***');
max:=y[1];
maxnum:=1;
min:=y[1];
minnum:=1;
for i:=1 to k do
begin
if max<y[i] then
begin
max:=y[i];
maxnum:=i;
end;
if min>y[i] then
begin
min:=y[i];
minnum:=i;
end;
end;
temp:=y[maxnum];
y[maxnum]:=y[minnum];
y[minnum]:=temp;
writeln('Массив Y состоит из ',k,' элементов:');
for i:=1 to k do
write(y[i],' ');
end.
Program MatrixP;
uses crt;
const n=10;
const m=8;
var
p:array[1..n,1..m] of integer;
sum:array[1..n] of integer;
st:array[1..m] of integer;
i,j,tempsum,min,max,minnum,maxnum : integer;
begin
Randomize;
{ввод и вывод матрицы}
writeln('Начальная матрица:');
for i:=1 to n do
begin
for j:=1 to m do
begin
p[i,j]:= Random(100);
write(p[i,j]:5);
end;
writeln;
end;
writeln('*** alphaues is thinking... ***');
{нахождение сумм строк}
for i:=1 to n do
begin
tempsum:=0;
for j:=1 to m do
tempsum:=tempsum+p[i,j];
sum[i]:=tempsum;
end;
maxnum:=1;
tempsum:=sum[1];
for i:=1 to n do
if tempsum>sum[i] then
begin
tempsum:=sum[i];
minnum:=i;
end;
writeln('Min сумма в ',minnum,'-й строке: ',sum[minnum]);
{нахождение max элемента матрицы}
max:=p[1,1];
for i:=1 to n do
for j:=1 to m do
begin
if max<p[i,j] then max:=p[i,j];
maxnum:=i;
end;
writeln('Max элемент ',max,' находится в ',maxnum,'-й строке');
for j:=1 to m do
begin
st[j]:=p[maxnum,j];
p[maxnum,j]:=p[minnum,j];
p[minnum,j]:=st[j];
end;
{вывод матрицы}
writeln('Результат:');
for i:=1 to n do
begin
for j:=1 to m do
begin
write(p[i,j]:5);
end;
writeln;
end;
end.
Program Parabolas;
Uses Crt;
Var
a, b, c, d, m, n, dis, x1, x2 : real;
begin
writeln('Введите коэфициенты первой параболы');
write('A=');readln(a);
write('B=');readln(b);
write('C=');readln(c);
writeln('Введите коэфициенты второй параболы');
write('D=');readln(d);
write('M=');readln(m);
write('N=');readln(n);
writeln('*** alphaues is thinking... ***');
if a=d then
if b=m then
if c=n then
writeln('Параболы совпадают!')
else
writeln('Параболы не пересекаются!')
else
begin
x1:=(c-n)/(b-m);
writeln('Параболы пересекаются в 1-й точке: ',x1,' ',a*x1*x1+b*x1+c);
end
else
begin
dis:=(b-m)*(b-m)-4*(a-d)*(c-n);
if dis>0 then
begin
x1:=((m-b)+sqrt(dis))/(2*(a-d));
x2:=((m-b)-sqrt(dis))/(2*(a-d));
writeln('Параболы пересекаются в 2-x точкax: ');
writeln(x1,' ',a*x1*x1+b*x1+c);
writeln(x2,' ',a*x2*x2+b*x1+c);
end
else
if dis=0 then
begin
x1:=(m-b)/(2*(a-d));
writeln('Параболы пересекаются в 1-й точке: ',x1,' ',a*x1*x1+b*x1+c);
end
else writeln('Параболы не пересекаются!');
end;
end.
2 это тип данных который распознает система, или же особая программа или приложение, записывается в конце файла через точку
doc. - документ 2003 ворда и ранее, может открываться ими, более поздними версиями, или программами которые просто могут это сделать(вроде даже блокнот при желании может открыть не говоря уже об опенсурсных прогах)
.odt так же документ но уже для опенофис либраофис и тд...
.mp4 это формат видео, вроде сейчас и бытовые плееры могут его открывать и все смартфоны, но раньше даже обычные телефоны с явовской тоже могли, про сейчас не знаю не вымерли они вообще еще
.rar формат архивов, открывается винраром или другими приложениями для архивации
.exe формат приложений, для открытия и выполнения их, проще говоря для запуска, но только для операционных систем семейства виндовс
.pptx а это для презентаций поверпоинта начиная с 2007года, открывается правда так же и 2003 с особым пакетом обновлений для такого дела, и другими совместимыми программами данного типа
.psd формат исключительно фотошопа, открывается и редактируется им же, но для просмотра конечного вида без масок обводок наклее и прочего по действиям, можно открыть любым совместимым приложением, вроде корел мог такое открывать, но все действия естественно видеть не мог
3 гугл яндекс нигма яхуу, да поисковиков полно по сути дела - задаешь ключевые слова и в путь...
4 Спам это рассылка коммерческой и иной рекламы или иных видов сообщений лицам, не выражавшим желания их получать. Проще говоря всякая фигня и весь мусор который нам зачастую вообще безразличен, но тем не менее приходит на нашу почту, а как бороться отправляют их в спам корзину, но у каждого почтового ресурса свои у кого то по нажатию на кнопку это спам, у кого то по опросам и тд, думаю если залезть на сайт гугла и прочитать мануал там будет подробно все описано
5 а вот по этому я писал реферат, так что в путь дорогу, все что могу сказать так это в гражданском кодексе разделе этак в 4 есть такие статейки которые говорят про авторские права, так вот любое скачивание песни или фильма из и-нета есть пиратство, и естественно нарушение законов об авторском праве, тоесть подсудное дело, но у нас в стране столько пробелов и коллизей в законах что просто тихий ужас, так что дальше сам как нить на эту тему...