19.12.2013, 07:31 | #1 (permalink) |
Новичок
Регистрация: 11.12.2013
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задачи по матрицам
|
19.12.2013, 07:31 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Так же полезную информацию вы можете найти тут Задачи Задачи по массивам |
19.12.2013, 14:30 | #2 (permalink) |
Специалист
Регистрация: 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. Код:
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. Код:
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. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|