Сформируйте массив a[i,j] с датчика случайных чисел. увеличить каждый элемент массива в 3 раза и если элемент массива отрицательный. массив выведите на экран в виде таблицы
"Увеличить каждый элемент массива в 3 раза и если элемент массива отрицательный."
Увеличить каждый элемент массива в 3 раза, если элемент массива отрицательный. Может так? Если так, то вот код.
var l: Array[1..10,1..10] of Integer; i,j,n,m: Integer; begin Writeln('Vvedite razmer matrisi: '); Readln(n,m); writeln('Isxodnaya matrisa:'); for i:=1 to n do begin for j:=1 to m do begin l[i,j]:=Random(51)-25; Write(l[i,j]:4); end; writeln end; writeln('Izmenennaya matrisa:'); for i:=1 to n do begin for j:=1 to m do begin if l[i,j]<0 then l[i,j]:=l[i,j]*3; write(l[i,j]:4); end; writeln end; end.
Образовался каменный уголь в результате длительного процесса, имевшего место несколько десятков миллионов лет назад. Сам этот период получил название «карбон» или «карбоновый» (от латинского carbo – уголь). Если описывать коротко, то происходило следующее: растения за свою жизнедеятельность накапливают в себе углерод. Если после гибели растения процесс разложения происходил без доступа воздуха (под толщей воды или земли), то определённая часть углерода улетучивалась в газообразном виде.
Оставшаяся часть переходила в твёрдое состояние и превращалась, сначала, в торф, потом в бурый уголь, а затем уже в каменный уголь. Так образовывался угольный пласт. При многократном повторении процесса образовывалось несколько пластов, толщина которых или мощность зависела от количества одновременно погибших растений.
Однако если рассматривать подробнее, то процесс превращения растительных масс в каменный уголь в карбоновый период весьма сложный и был обусловлен внешними факторами – в противном случае угольные месторождения находились бы повсеместно на земле при условии бурной растительности. Учёные установили, что таких внешних факторов было несколько.
Во-первых, почва, на которой росли леса, должна была быть предельно влажной, практически «заболоченной». Был даже введён термин – плавучие леса. В подобных условиях на земле под кроной деревьев довольно бурно образовывался торф. Во-вторых, тектонические изменения рельефа земной коры, под воздействием внутренних толчков. В результате этих изменений, леса уходили под воду вместе с торфом, и процесс разложения набирал силу. И цепочка «торф-бурый уголь-каменный уголь» начинала действие. Из-за того, что процесс в разных местах планеты проходил под различным давлением земных слоёв, образовавшийся уголь существенно отличается и по содержанию углерода, и по составу, и по плотности. Потому, добываемый в настоящее время уголь классифицируется несколькими марками и сортами. И третьим фактором была высокая температура, которая, впрочем, также являлась следствием внутренней энергии земли.
На вполне естественный вопрос – почему уголь не образовывается в настоящее время, можно ответить следующее. Сейчас торф на болотистых местностях образуется, в основном, от низкорослых растений, крона которых расположена близко от земли. Тем самым не создаются условия для обугливания его. Да и сдвигов земной коры под воздействием тектонических толчков не наблюдается.
Данная теория подтверждается многими доказательствами, артефактами, найденными в кусках каменного угля, и научными экспериментами, которые проводили, начиная ещё с XIX века. Остаётся констатировать факт, что каменный уголь много миллионов лет назад был дарован человечеству природой и растительным миром.
173(10)=10101101(2)=255(8)= AD(16), (...)-система счисления(затем с.с) пишется в низу числа,как нижним индексом число 173 уже в 10-ной с.с,переводим его в 2-ную путем деления на основания переводимой с.с (т.к необходимо в 2-ную,значит основание с.с 2), 172:2 получаем частное и остаток(0 либо 1), сравниваем частое меньше остатка,нет делим снова на 2,затем сравниваем и делим до тех пор пока частное будет меньше остатка, записываем ответ с последнего частного и всех последующих остатков: 173(10)=10101101(2)
затем переводим из 2-ной с.с в восьмеричную систему счисления. Для этого следует разбить это двоичное число на триады, начиная с младшего бита (т.е с право налево,от знака равно) если в поледнем не хвотает до 3-х цифр доставляем 0. Получим: 010 101 101(2)=255(8) затем по таблице для каждой 3-ки ищем значение: 1=001; 2=010; 3=011; 4=100; 5=101; 6=110; 7=111
Чтобы перевести из 2-но с.с необходимо разложить число 4 цифры (начиная от знака равно ,если в последнем значении не хватает до 4-х добавляем 0) потом ищем значение оп таблице. Получим: 1010 1101(2)= AD(16) Пеpевод из двоичной системы исчисления в 16-тиричную осуществляется по таблице для каждых 4-х двоичных единиц: 0000=0; 0001=1; 0010=2 ;0011=3; 0100=4; 0101=5; 0110=6; 0111=7; 1000=8; 1001=9; 1010=A; 1011=B;1 100=C; 1101=D; 1110=E; 1111=F
"Увеличить каждый элемент массива в 3 раза и если элемент массива отрицательный."
Увеличить каждый элемент массива в 3 раза, если элемент массива отрицательный. Может так? Если так, то вот код.
var
l: Array[1..10,1..10] of Integer;
i,j,n,m: Integer;
begin
Writeln('Vvedite razmer matrisi: ');
Readln(n,m);
writeln('Isxodnaya matrisa:');
for i:=1 to n do
begin
for j:=1 to m do
begin
l[i,j]:=Random(51)-25;
Write(l[i,j]:4);
end;
writeln
end;
writeln('Izmenennaya matrisa:');
for i:=1 to n do
begin
for j:=1 to m do
begin
if l[i,j]<0 then l[i,j]:=l[i,j]*3;
write(l[i,j]:4);
end;
writeln
end;
end.