Технический форум - Моя сессия в ваших руках

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Моя сессия в ваших руках (http://www.tehnari.ru/f41/t44640/)

Моя сессия в ваших руках

Цикл:Дана последовательность, состоящая из n вещественных чисел. Опре-делить является ли она возрастающей или убывающей.

Одномерные массивы:Даны натуральное число n и массив A(n). Переформировать массив, расположив вначале массива все отрицательные элементы, а потом по-ложительные.

Матрицы:Дана матрица вещественного типа D(n,m), n, m <= 20. В заданной матрице вычерк-нуть все строки, содержащие более трех отрицательных элементов. Вывести на пе-чать исходную матрицу-результат или соответствующее сообщение, если таких строк не окажется или все строки будут удовлетворять условию.

На каком языке программировать?

Цитата:

Сообщение от Ксения)777) (Сообщение 443080)

Одномерные массивы:Даны натуральное число n и массив A(n). Переформировать массив, расположив вначале массива все отрицательные элементы, а потом по-ложительные.

Код:

var

a:array [1..1000] of integer;

n,i,k,j:integer;

begin

randomize;

write ('enter n=');

readln (n);

{Формирование массива}

for i:=1 to n do begin

a[i]:=random(10)-5;

write (a[i],' ');

end;

writeln;

k:=0;

{Сортировка массива}

for i:=1 to n-1 do begin

for j:=1 to n-i do begin

if a[j]>a[j+1]then

begin 

k:=a[j];

a[j]:=a[j+1];

a[j+1]:=k;

end;

end;

end;

{Вывод получившегося на экран}

for i:=1 to n do

write (a[i],' ');

readln

end.

Цитата:

Сообщение от Ксения)777) (Сообщение 443080)

Матрицы:Дана матрица вещественного типа D(n,m), n, m <= 20. В заданной матрице вычерк-нуть все строки, содержащие более трех отрицательных элементов. Вывести на пе-чать исходную матрицу-результат или соответствующее сообщение, если таких строк не окажется или все строки будут удовлетворять условию.

Код:

var

a:array [1..20,1..20] of real;

i,j,k,c,c1,m,n:integer;

begin

randomize;

{Ввод размерности массива}

write ('m=');

readln (m);

write ('n=');

readln (n);

{Заполнение массива случайными числами}

for i:=1 to m do

begin

for j:=1 to n do begin

a[i,j]:=random*(10)-5;

write (a[i,j]:2:1,' ');

end;

writeln;

end;

writeln;

{Проверка массива}

for i:=1 to m do begin

k:=0;

for j:=1 to n do begin

if  a[i,j]<0  then inc(k);

end;

if k>=3 then begin

for c:=i to m-1 do

for c1:=1 to n do

a[c,c1]:=a[c+1,c1];

dec(m);

end;

end;

{Вывод массива}

for i:=1 to m do begin

for j:=1 to n do begin

write (a[i,j]:2:1,' ');

end;

writeln;

end;

readln

end.

Цитата:

Сообщение от Ксения)777) (Сообщение 443080)

Цикл:Дана последовательность, состоящая из n вещественных чисел. Опре-делить является ли она возрастающей или убывающей.

Код:

var

a:array [1..1000] of real;

n,i:integer;

begin

write ('n=');

readln(n);

for i:=1 to n do begin

write ('a[',i,']=');

readln (a[i]);

end;

i:=2;

while i<=n do begin

if a[i-1]>a[i] then begin

writeln ('Не возрастающая');

break;

end;

inc(i);

end;

if i=n+1 then writeln ('Возрастающая');

readln

end.