Помогите пожалуйста! Очень надо решить массивы.

Рустам591 · 15.05.2010, 20:47

№1.Даны натуральные числа n, q1, q2,…, qn. найти те члены qi последовательности q1, q2,…, qn которые при делении на 7 дают остаток 1.2 или 5.
Даны целые числа а1, а2, а3. Получить целочисленную матрицу b_ij;i,j=1,2,3,для которой b_ij=a_i-〖3a〗_j

Артём · 15.05.2010, 20:50

Свой вариант решения приведите пожалуйста. Или хотя-бы попытки сделать это.

Рустам591 · 15.05.2010, 22:08

Цитата:

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

Свой вариант решения приведите пожалуйста. Или хотя-бы попытки сделать это.

вы что...я даңе не умею это решать,а мне в понедельник это уже сдавать..просто щас зачетная неделя...не успеваю..а информатику не знай как сдавать...хотя бы допуск взять(((

MrSTEP · 15.05.2010, 22:23

хоть бы не говорили так, "вы что?" Как вы собираетесь дальше учиться, если не знаете даже элементарного?

Vladimir_S · 15.05.2010, 22:50

Ладно, живите. Но вообще-то беритесь-ка за ум, причем желательно собственный. Чужим, знаете ли, не проживешь.

Код:

CONST
 N=10;
VAR
 Q,P:ARRAY[1..N] of WORD;
 i,Np:INTEGER;
BEGIN
 Np:=0;
 For i:=1 to N do
  begin
   Write('Q[',i,']= ');
   ReadLn(Q[i]);
   If (Q[i] mod 7 = 1) or (Q[i] mod 7 = 2) or (Q[i] mod 7 = 5) then
    begin
     Inc(Np);
     P[Np]:=Q[i];
    end;
  end;
  WriteLn;
  For i:=1 to Np do
   Write(P[i],' ');
  WriteLn;
  ReadLn;
END.

Код:

VAR
 A:ARRAY[1..3] of INTEGER;
 B:ARRAY[1..3,1..3] of INTEGER;
 i,j:INTEGER;
BEGIN
 For i:=1 to 3 do
  begin
   Write('A[',i,']= ');
   ReadLn(A[i]);
  end;
 WriteLn;
 For i:=1 to 3 do
  begin
   For j:=1 to 3 do
    begin
     B[i,j]:=A[i]-3*A[j];
     Write(B[i,j]:12);
    end;
   WriteLn;
  end;
 ReadLn;
END.

Рустам591 · 15.05.2010, 23:40

Цитата:

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

Ладно, живите. Но вообще-то беритесь-ка за ум, причем желательно собственный. Чужим, знаете ли, не проживешь.

Код:

CONST
 N=10;
VAR
 Q,P:ARRAY[1..N] of WORD;
 i,Np:INTEGER;
BEGIN
 Np:=0;
 For i:=1 to N do
  begin
   Write('Q[',i,']= ');
   ReadLn(Q[i]);
   If (Q[i] mod 7 = 1) or (Q[i] mod 7 = 2) or (Q[i] mod 7 = 5) then
    begin
     Inc(Np);
     P[Np]:=Q[i];
    end;
  end;
  WriteLn;
  For i:=1 to Np do
   Write(P[i],' ');
  WriteLn;
  ReadLn;
END.

Код:

VAR
 A:ARRAY[1..3] of INTEGER;
 B:ARRAY[1..3,1..3] of INTEGER;
 i,j:INTEGER;
BEGIN
 For i:=1 to 3 do
  begin
   Write('A[',i,']= ');
   ReadLn(A[i]);
  end;
 WriteLn;
 For i:=1 to 3 do
  begin
   For j:=1 to 3 do
    begin
     B[i,j]:=A[i]-3*A[j];
     Write(B[i,j]:12);
    end;
   WriteLn;
  end;
 ReadLn;
END.

спасибо большое..вы мегня просто спасли....огромное спасибо

15.05.2010, 20:47	#1 (permalink)
Рустам591 Новичок Регистрация: 15.05.2010 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите пожалуйста! Очень надо решить массивы. №1.Даны натуральные числа n, q1, q2,…, qn. найти те члены qi последовательности q1, q2,…, qn которые при делении на 7 дают остаток 1.2 или 5. Даны целые числа а1, а2, а3. Получить целочисленную матрицу b_ij;i,j=1,2,3,для которой b_ij=a_i-〖3a〗_j

15.05.2010, 20:47
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	По содержанию ваш текст очень напоминает эти топики Помогите с Паскалем Помогите, очень срочно надо собрать компьютер

15.05.2010, 20:50	#2 (permalink)
Артём votum separatum Регистрация: 05.05.2008 Сообщений: 14,603 Записей в дневнике: 52 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 18619	Свой вариант решения приведите пожалуйста. Или хотя-бы попытки сделать это.

15.05.2010, 22:23	#4 (permalink)
MrSTEP 一步一步地会到目的 Регистрация: 09.05.2009 Адрес: Черноземье Сообщений: 10,939 Записей в дневнике: 10 Сказал(а) спасибо: 140 Поблагодарили 80 раз(а) в 33 сообщениях Репутация: 28362	хоть бы не говорили так, "вы что?" Как вы собираетесь дальше учиться, если не знаете даже элементарного?

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