В матрице размером m х n в каждой строке сделать перестановку: поменять местами первый и последний элементы, второй и предпоследний и т.д.

@Mephisto_92 · Регистрация: 14.04.2011

Author24 — интернет-сервис помощи студентам

Помогите плиз!!!!!!!

задание на тему "Обработка массивов"

В матрице размером m х n в каждой строке сделать перестановку: поменять местами первый и последний элементы, второй и предпоследний и т.д.

@KaiTheCat · 14.04.2011, 21:05

Pascal

var
  a: array[1..100,1..100] of integer;
  i,j,m,n,k: integer;
Begin
  randomize;
  readln(m,n);
  for i:=1 to m do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(80)+10;
          write(a[i,j],' ');
        end;
      writeln;
    end;
  writeln;
  for i:=1 to m div 2 do
  for j:=1 to n do
    begin
      k:=a[i,j];
      a[i,j]:=a[m-i+1,n-j+1];
      a[m-i+1,n-j+1]:=k;
    end;
  if odd(m)=true then
    begin
      i:=n div 2+1;
      for j:=1 to n div 2 do
        begin
          k:=a[i,j];
          a[i,j]:=a[i,n-j+1];
          a[i,n-j+1]:=k;
        end;
 for i:=1 to m do
    begin
      for j:=1 to n do
        write(a[i,j],' ');
      writeln;
    end;
  readln;
End.

@Mephisto_92 · 21.04.2011, 17:13 **[ТС]**

KaiTheCat,

Привет,ты не мог бы решить вот эту задачу...очень нужно (((

Во введённой пользователем строке все строки вида .ХХ. (Х – произвольная цифра) замените на название соответствующего месяца в пробелах. Например, исходная строка «сегодня – 10.02.2003», результат – «сегодня 10 февраль 2003».

@dmitriyzryuev · 19.05.2011, 18:55

program mesyaci;
uses crt;
const mes:array[1..12] of string[15]=('п*ў*ам','дҐўа*«м','¬*ав','*ЇаҐ«м',
'¬*©','Ёо*м','Ёо«м','*ўЈгбв','бҐ*впЎам','®ЄвпЎам','*®пЎам','¤ҐЄ*Ўам');
const cf=['0'..'9'];
var s,s1:string;
i,t,c,k:integer;
begin
clrscr;
writeln('ўўҐ¤ЁвҐ бва®Єг,б®¤Ґа¦*йго ¤*вг ў д®а¬*вҐ „„.ЊЊ.ѓѓѓѓ:');
write ('бҐЈ®¤*п- ');
readln(s);
for i:=length(s) downto 1 do
if(s[i]='.')and(s[i+3]='.')and(s[i+1] in cf)and(s[i+2] in cf)then
begin
k:=1;
s1:=s[i+1]+s[i+2];
val(s1,t,c);
if t in [1..12] then
begin
delete(s,i,4);
insert(mes[t],s,i);
end;
end;
write('бҐЈ®¤*п- ', s);
readln
end.

@Mephisto_92 0 / 0 / 0 Регистрация: 14.04.2011 Сообщений: 45
		1
	В матрице размером m х n в каждой строке сделать перестановку: поменять местами первый и последний элементы, второй и предпоследний и т.д. 14.04.2011, 19:26. Показов 1215. Ответов 3 Метки нет (Все метки) Помогите плиз!!!!!!! задание на тему "Обработка массивов" В матрице размером m х n в каждой строке сделать перестановку: поменять местами первый и последний элементы, второй и предпоследний и т.д. 0

@Mephisto_92 0 / 0 / 0 Регистрация: 14.04.2011 Сообщений: 45
	21.04.2011, 17:13 [ТС]	3
	KaiTheCat, Привет,ты не мог бы решить вот эту задачу...очень нужно ((( Во введённой пользователем строке все строки вида .ХХ. (Х – произвольная цифра) замените на название соответствующего месяца в пробелах. Например, исходная строка «сегодня – 10.02.2003», результат – «сегодня 10 февраль 2003». 0

@dmitriyzryuev 0 / 0 / 0 Регистрация: 23.04.2011 Сообщений: 5
	19.05.2011, 18:55	4
	program mesyaci; uses crt; const mes:array[1..12] of string[15]=('пўам','дҐўа«м','¬ав','ЇаҐ«м', '¬©','Ёом','Ёо«м','ўЈгбв','бҐвпЎам','®ЄвпЎам','®пЎам','¤ҐЄЎам'); const cf=['0'..'9']; var s,s1:string; i,t,c,k:integer; begin clrscr; writeln('ўўҐ¤ЁвҐ бва®Єг,б®¤Ґа¦йго ¤вг ў д®а¬вҐ „„.ЊЊ.ѓѓѓѓ:'); write ('бҐЈ®¤п- '); readln(s); for i:=length(s) downto 1 do if(s[i]='.')and(s[i+3]='.')and(s[i+1] in cf)and(s[i+2] in cf)then begin k:=1; s1:=s[i+1]+s[i+2]; val(s1,t,c); if t in [1..12] then begin delete(s,i,4); insert(mes[t],s,i); end; end; write('бҐЈ®¤п- ', s); readln end. 0

Опции темы