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


Ответ
 
Опции темы Опции просмотра
Старый 19.12.2013, 07:31   #1 (permalink)
Алёночка
Новичок
 
Регистрация: 11.12.2013
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Задачи по матрицам

Помогите пожалуйста решить, не понимаю их
Миниатюры
342342342.jpg   dsc00915-2-vert.jpg   dsc00940-vert.jpg   dsc00946-vert.jpg  
Алёночка вне форума   Ответить с цитированием

Старый 19.12.2013, 07:31
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Так же полезную информацию вы можете найти тут

Задачи
Задачи по массивам

Старый 19.12.2013, 14:30   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Алёночка Посмотреть сообщение
Помогите пожалуйста решить, не понимаю их
Ох, Алёночка, всыпать бы Вам розг за бездельничанье в течение семестра, причем как у Помяловского - "на воздусях" (это когда два бурсака держат наказуемого за руки и за ноги на весу, а третий порет)! Ну да времена не те, так что что уж тут поделаешь... Ладно:
1. Про реагент. Поскольку из условия задачи абсолютно не ясно, что собой изображают строки матрицы (разные реагенты? расход? и т.п.), то можете от моего имени передать гению, составившему методичку, что он (она) - гений.
2. Про треугольнички:
Код:
Const
 N=30;
Var
 A,B,C,P:Array[1..N] of Integer;
 i,Nt:Integer;
Begin
 Nt:=0;
 for i:=1 to N do P[i]:=0;
 Randomize;
 for i:=1 to N do
  begin
   A[i]:=Random(10)+1;
   B[i]:=Random(10)+1;
   C[i]:=Random(10)+1;
  end;
 for i:=1 to N do
  if ((A[i]+B[i])>C[i]) and
     ((A[i]+C[i])>B[i]) and
     ((B[i]+C[i])>A[i]) then
   begin
    Nt:=Nt+1;
    P[i]:=A[i]+B[i]+C[i];
   end;
 Writeln('Number of triangulars is ',Nt);
 Writeln('Their perimeters are:');
 for i:=1 to N do
  if P[i]>0 then write(P[i]:4);
 Readln
End.
3. Про квадратную матрицу и ее половины (над и под главной диагональю):
Код:
Const
 N=15;
Var
 A:Array[1..N,1..N] of Integer;
 Sums:Array[1..N] of Integer;
 i,j,N_h,N_l,S_h,S_l:Integer;

Begin
 S_h:=0;
 S_l:=0;
 N_h:=0;
 N_l:=0;
 for i:=1 to N do Sums[i]:=0;
 Randomize;
 for i:=1 to N do
  begin
   write('     ');
   for j:=1 to N do
    begin
     A[i,j]:=Random(20);
     write(A[i,j]:4);
    end;
   writeln;
  end;
 writeln;
 write('Sum: ');
 for j:=1 to N do
  begin
   for i:=1 to N do
    Sums[j]:=Sums[j]+A[i,j];
   write(Sums[j]:4);
  end;
 writeln;
 writeln;
 for i:=1 to N do
  for j:=1 to N do
   begin
    if (j>i) and (A[i,j]>A[i,i]) and (A[i,j]<A[j,j]) then
     begin
      N_h:=N_h+1;
      S_h:=S_h+A[i,j];
     end;
    if (j<i) and (A[i,j]>A[i,i]) and (A[i,j]<A[j,j]) then
     begin
      N_l:=N_l+1;
      S_l:=S_l+A[i,j];
     end;
   end;
 If N_h>0 then write('Medium high = ',S_h/N_h:0:5);
 If N_l>0 then write('     Medium low = ',S_l/N_l:0:5);
 Readln
End.
4. Про матрицу и вектор:
Код:
Const
 N=5;
Var
 A:Array[1..N,1..N] of Integer;
 X:Array[1..N] of Real;
 i,j,Sum:Integer;

Begin
 Sum:=0;
 Randomize;
 Writeln('Matrix A:');
 for i:=1 to N do
  begin
   for j:=1 to N do
    begin
     A[i,j]:=-5+Random(20);
     write(A[i,j]:8);
    end;
   writeln;
  end;
 for i:=1 to N do
  Sum:=Sum+A[i,N];
 writeln;
 If Sum<=0 then writeln('Sum is negative or zero!')
 else
  begin
   writeln('Array X:');
   for i:=1 to N do
    begin
     X[i]:=0;
     for j:=1 to N do
      X[i]:=X[i]+A[i,j];
     X[i]:=X[i]/N;
     write(X[i]:8:3);
    end;
  end;
 Readln
End.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

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

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

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

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




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

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