Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Помогите пожалуйста! Очень надо решить массивы. (http://www.tehnari.ru/f41/t36073/)

Рустам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 (Сообщение 334810)
Свой вариант решения приведите пожалуйста. Или хотя-бы попытки сделать это.
вы что...я даңе не умею это решать,а мне в понедельник это уже сдавать..просто щас зачетная неделя...не успеваю..а информатику не знай как сдавать...хотя бы допуск взять(((

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 (Сообщение 334848)
Ладно, живите. Но вообще-то беритесь-ка за ум, причем желательно собственный. Чужим, знаете ли, не проживешь.
Код:
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.
спасибо большое..вы мегня просто спасли....огромное спасибо


Часовой пояс GMT +4, время: 04:07.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.