skononova01
?>

Нужно решить что нибудь из этого на c++, чем больше тем лучше, в идеале всё. !

Информатика

Ответы

vasilyevjob6

program d1;

type mas=array [1..5,1..5] of integer;

const  

x: mas=((1,2,3,4,5),

(5,4,3,2,1),

(6,7,8,9,10),

(11,12,13,14,15),

(10,9,8,7,6));

var q,a: mas;

i,j: integer;

function naim(var chislo: integer): integer;

var i,j,imin: integer;

begin

imin: =chislo;

for i: =1 to 5 do

for j: =1 to 5 do

if imin> x[i,j] then imin: =x[i,j];

naim: =imin

end;

procedure udv(var stolb: integer);

begin

stolb: =stolb*2;

end;

begin

writeln('исходный массив');

for i: =1 to 5 do begin writeln;

for j: =1 to 5 do write(x[i,j],' ');

end;

writeln;

writeln('преобразованный массив');

for i: =1 to 5 do begin

writeln;

for j: =1 to 5 do begin

if (not odd(j)) then udv(x[i,j]);

write(x[i,j],' ');

end;

end;

writeln;

writeln('наименьшее число: ',naim(x[1,1]));

end.

полностью готовая программа, пришлось подправлять еще и функцию naim

inulikb

суть программы в том, чтобы пройти цикл, в условии которого спрашивается, является ли разность переменных n и s больше нуля. в этом цикле каждый раз происходит увеличение s на 20, а n на 15. давай пройдем этот цикл:

s = 127, n = 250

n - s = 250 - 127 > 0, проходим цикл

s = 127 + 20 = 147, n = 250 + 15 = 265

так цикл будет повторяться до тех пор (а это событие произойдёт, поскольку к s прибавляется больше, чем к n, так что переменная s в какой-то момент перегонит n), пока s не станет больше n - тогда разность s и n будет меньше нуля и цикл уже не выполнится. я так понял, нужно вывести s, при котором цикл уже работать не будет. здесь ничего не остаётся, кроме как считать. я этого здесь делать не буду, потому что всё даже не поместится. я лишь выполнил эту программу. ответом будет число s = 627. прошло всего 25 циклов.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Нужно решить что нибудь из этого на c++, чем больше тем лучше, в идеале всё. !
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

clic1968420
Bolshakova Shigorina
ilplakhotin8734
vitbond12
Андрееевич787
rukodelnizza1
Nonstop788848
tarasova
AHO436
udalova-yelena
kuzinnv1968
Державина
pannotolstova488
emilmishin1032
Pavlovna-Golovitinskaya378