Помогите, две задачки по Pascal

TpaXmopucm · 07.12.2011, 21:19

Первая : дан массив А[1..3,1..15].Известно что среди его элементов два и только два равны между собой.Напечатать их индексы,
Запутался канкретно : помогите я написал что то вроде этого но не работает чето

Цитата:

program p1;
uses crt;
var a:array[1..3,1..15] of integer;

i,j,i1,j1:integer;
begin
clrscr;
writeln('Введите эл-ты массива');
for i:=1 to 3 do
for j:=1 to 15 do
readln(a[i,j]);

for i1:=1 to 3 do for j1:=1 to 15 do begin

for i:=1 to 3 do for j:=1 to 15 do
if a[i1,j1]=a[i,j] then begin
writeln('Эти числа:',a[i,j]:4,a[i1,j1]:4); readln; exit;
end; end;

readln;
end.

И вторая:составьте программу циклической перестановке столбцов двумерного массива.Л,при которой 1-ый столбец i+1-м,а последнийй столбец становится первым
Помогите пожалуйста .... времени просто нету разобраться ... сдавать завтра !!!

Vladimir_S · 08.12.2011, 10:13

Цитата:

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

Первая : дан массив А[1..3,1..15].Известно что среди его элементов два и только два равны между собой.Напечатать их индексы, Запутался канкретно : помогите я написал что то вроде этого но не работает чето

Поня, че не рабо.
Исправил. Там во-первых, неправильно сформулировано логическое условие (требуется исключить самосовпадения), а во-вторых, выведено не то, что требуется. Кроме того, убрал "слепой" ввод массива - ну ведь так это неудобно! Неужто трудно добавить подсказку? Ввел.

Код:

uses crt;
var
 a:array[1..3,1..15] of integer;
 i,j,i1,j1:integer;
begin
 clrscr;
 writeln('Введите эл-ты массива');
 for i:=1 to 3 do
  for j:=1 to 15 do
   begin
    write('a[',i:1,',',j:2,']= ');
    readln(a[i,j]);
   end;


 for i1:=1 to 3 do
  for j1:=1 to 15 do
   begin
    for i:=1 to 3 do
     for j:=1 to 15 do
      if (a[i1,j1]=a[i,j]) and Not((i=i1) and (j=j1)) then
       begin
        writeln('Эти числа: a[',i:1,',',j:2,']=a[',i1:1,',',j1:2,']=',a[i,j]);
        readln;
        exit;
       end;
   end;
end.

Vladimir_S · 08.12.2011, 10:33

Цитата:

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

И вторая:составьте программу циклической перестановке столбцов двумерного массива.Л,при которой 1-ый столбец i+1-м,а последнийй столбец становится первым Помогите пожалуйста .... времени просто нету разобраться ... сдавать завтра !!!

Так. Пальчики, значит, экономим, авось и так поймут? Ну что же, вот вероятная расшифровка задания:
Составьте программу циклической перестановки столбцов двумерного массива, при которой 1-ый столбец становится 2-м, i-й - i+1-м, а последний столбец становится первым.

Код:

uses crt;
Const
 M=3;
 N=7;
var
 a:array[1..M,1..N] of integer;
 i,j,d:integer;
begin
 clrscr;
 writeln('Введите эл-ты массива');
 for i:=1 to M do
  for j:=1 to N do
   begin
    write('a[',i:1,',',j:2,']= ');
    readln(a[i,j]);
   end;
 clrscr;

 for i:=1 to M do
  begin
   for j:=1 to N do write(a[i,j]:4);
   writeln;
  end;
 writeln;

 for i:=1 to M do
  begin
   d:=a[i,N];
   for j:=N-1 downto 1 do
    a[i,j+1]:=a[i,j];
   a[i,1]:=d;
  end;

 for i:=1 to M do
  begin
   for j:=1 to N do write(a[i,j]:4);
   writeln;
  end;

 readln;
end.

07.12.2011, 21:19
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Информативные темы, похожие на вашу Ребят помогите решить две задачки Помогите решить задачки Задачки на Pascal Pascal, две задачки, нужна помощь

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070