МАССИВЫ

[Asira]

Дан двумерный массив действительных чисел размером NxM. Поменять местами строки с номерами 1 и 3, 2 и 4, 5 и 7, 6 и 8 и т. д. Мой вариант

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const N=5;M=7;
type mas=array[1..N,1..M] of integer;
var l:mas; i,j:integer;

 procedure vvod(var l:mas);
var i,j: integer;
begin
randomize;
for i:=1 to N do
for j:=1 to M do
l[i,j]:=random(100);
end;

procedure vivod(l:mas);
var i,j: integer;
begin
for i:=1 to N do begin
for j:=1 to M do
write(l[i,j]:4,' ');  writeln; end;
end;

procedure ioke(var l:mas);
var i,j,p: integer;
begin
i:=1;
while i< = m -2 do
begin
for j:=1 to n do begin
p:=l[i,j];
l[i,j]:=l[i+2,j];
l[i+2,j]:=p;
end;
if i mod 2=0 then i:=i+3
else i:=i+1;end;
end;
begin
vvod(l);vivod(l);
ioke(l);
writeln(' ');
vivod(l);
readln;
end.

Помогите найти ошибку!! Программа работает но из-за того что M >N в последней строке получаются 0 Подскажите как можно это исправить

[Serebro]

Сообщение от Asira

Дан двумерный массив действительных чисел размером NxM. Поменять местами строки с номерами 1 и 3, 2 и 4, 5 и 7, 6 и 8 и т. д. Мой вариант

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const N=5;M=7;
type mas=array[1..N,1..M] of integer;
var l:mas; i,j:integer;

 procedure vvod(var l:mas);
var i,j: integer;
begin
randomize;
for i:=1 to N do
for j:=1 to M do
l[i,j]:=random(100);
end;

procedure vivod(l:mas);
var i,j: integer;
begin
for i:=1 to N do begin
for j:=1 to M do
write(l[i,j]:4,' ');  writeln; end;
end;

procedure ioke(var l:mas);
var i,j,p: integer;
begin
i:=1;
while i< = m -2 do                //    Здесь должно быть   i <= n-2
begin
for j:=1 to n do                   //    Здесь должно быть   for j:=1 to m do 
begin
p:=l[i,j];
l[i,j]:=l[i+2,j];
l[i+2,j]:=p;
end;
if i mod 2=0 then i:=i+3
else i:=i+1;end;
end;
begin
vvod(l);vivod(l);
ioke(l);
writeln(' ');
vivod(l);
readln;
end.

Помогите найти ошибку!! Программа работает но из-за того что M >N в последней строке получаются 0 Подскажите как можно это исправить

Будь внимательнее. Путаешь m и n.

P.S. В задании было про 8 строк, а в коде программы только 5.

[eldarik]

помогите перевести из Паскаля в Дельфи прграмму: "составить проект заменяющий символы в файле Text.in соответствющими цифрами в алфавитном порядке в файл Text.out."
uses crt;
VAR
fIn, fOut: Text;
S,S1,S2: String;
i,n:integer;
A:array[1..26] of string;
BEGIN
Cls;

for i:=65 to 90 do begin
A[i-64]:=chr(i);
end;

ASSIGN(fIn,'d:\Text.in');
ASSIGN(fOut,'d:\Text.out');
RESET(fIn);

WHILE NOT EOF (fIn) DO BEGIN
READLN(fIn,S);
END;

For i:=1 to length(S) do begin
S1:=UpperCase(copy(S,i,1));
for n:=1 to 26 do begin
if S1=' ' then begin S2:=S2+' '; break; end
else if S1=A[n] then begin S2:=S2+IntToStr(n)+','; break; end;
end;
end;

ReWrite(fOut);
Writeln(fOut,S2);

Close(fOut);
Close(fIn);
END.

[alex1992]

А). В одномерном массиве, состоящем из n вещественных элементов вычислить:
сумму положительных элементов массива;
произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами.
Упорядочить элементы массива по убыванию.
B). Дана целочисленная прямоугольная матрица. Определить кол-во столбцов, не содержащих ни одного нулевого элемента.
Характеристикой строки целочисленной матрицы назовем сумму ее положительных четных элементов. Переставляя строки заданной матрицы, расположить их в соответствии с ростом характеристик.

НИКАК НЕ МОГУ СДЕЛАТЬ!!!!!!! ПОМОГИТЕ ПЛИЗ РЕШИТЬ

[Dariya1990]

1.Даны действительные числа А1,..,Аn. Требуется найти В равное максимальному значению из чисел А1,..,Аn и отклонение от максимального для каждого из чисел.
2.Задана квадратная матрица А. Поменять местами строку с максимальным элементом на главной диагонали со строкой с заданным номером n.

Заранее Спасибо.

[Nur_lan_]

Сообщение от Asira

Дан двумерный массив действительных чисел размером NxM. Поменять местами строки с номерами 1 и 3, 2 и 4, 5 и 7, 6 и 8 и т. д. Мой вариант

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const N=5;M=7;
type mas=array[1..N,1..M] of integer;
var l:mas; i,j:integer;

 procedure vvod(var l:mas);
var i,j: integer;
begin
randomize;
for i:=1 to N do
for j:=1 to M do
l[i,j]:=random(100);
end;

procedure vivod(l:mas);
var i,j: integer;
begin
for i:=1 to N do begin
for j:=1 to M do
write(l[i,j]:4,' ');  writeln; end;
end;

procedure ioke(var l:mas);
var i,j,p: integer;
begin
i:=1;
while i< = m -2 do
begin
for j:=1 to n do begin
p:=l[i,j];
l[i,j]:=l[i+2,j];
l[i+2,j]:=p;
end;
if i mod 2=0 then i:=i+3
else i:=i+1;end;
end;
begin
vvod(l);vivod(l);
ioke(l);
writeln(' ');
vivod(l);
readln;
end.

Помогите найти ошибку!! Программа работает но из-за того что M >N в последней строке получаются 0 Подскажите как можно это исправить

Может M>=N

[(= KiTTy =)]

1. Сформулировать в программе массив из целых чисел от 2 до N. Подсчитать сумму квадратов четных чисел и сумму квадратов нечетных чисел.
2.Дана матрица А размера 6*6. Для заданной целой матрицы размером n*m напечатать индексы всех ее седловых точек. Элементы матрицы назовем седловой точкой, если он является наименьшим в своей строке и одновременно наибольшим в своем столбце или, наоборот, является наибольшим в своей строке и наименьшим в своем столбце.

[Базиля]

591927897 аська, пиши

[Stilet]

Одна тема - один автор.
Закрываю.