Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 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
Рустам591 вне форума   Ответить с цитированием

Старый 15.05.2010, 20:47
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 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:08   #3 (permalink)
Рустам591
Новичок
 
Регистрация: 15.05.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от Miramax Посмотреть сообщение
Свой вариант решения приведите пожалуйста. Или хотя-бы попытки сделать это.
вы что...я даңе не умею это решать,а мне в понедельник это уже сдавать..просто щас зачетная неделя...не успеваю..а информатику не знай как сдавать...хотя бы допуск взять(((
Рустам591 вне форума   Ответить с цитированием
Старый 15.05.2010, 22:23   #4 (permalink)
MrSTEP
一步一步地会到目的
 
Аватар для MrSTEP
 
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,917
Записей в дневнике: 10
Сказал(а) спасибо: 139
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
По умолчанию

хоть бы не говорили так, "вы что?" Как вы собираетесь дальше учиться, если не знаете даже элементарного?
MrSTEP вне форума   Ответить с цитированием
Старый 15.05.2010, 22:50   #5 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,858
Сказал(а) спасибо: 317
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Ладно, живите. Но вообще-то беритесь-ка за ум, причем желательно собственный. Чужим, знаете ли, не проживешь.
Код:
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.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 15.05.2010, 23:40   #6 (permalink)
Рустам591
Новичок
 
Регистрация: 15.05.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от 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.
спасибо большое..вы мегня просто спасли....огромное спасибо
Рустам591 вне форума   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




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

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.