12.05.2010, 21:56 | #1 (permalink) |
Новичок
Регистрация: 12.05.2010
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Массивы
№1.Дана действительная квадратная матрица модуль a ij,где i,j=1....n . Получить две квадратные матрицы модуль b ij где i,j=1...n ;модуль c ij,где i,j=1...n , для которых b ij=a ij ,если j=>i и b ij=-a ij ,если j<i ;c ij=a ij,если j<i и c ij=-a ij,если j=>i не знаю понятно или нет,не копируются формулы из задания((( №2.Даны целые числа a1, a2, … ,a45. Получить число отрицательных членов последовательности a1, a2, … ,a35 и число нулевых членов всей последовательности a1, a2, … ,a45. Последний раз редактировалось kazax; 12.05.2010 в 23:40 |
12.05.2010, 21:56 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Моя рекомендация - обратите внимание на похожие темы Массивы Массивы Массивы Массивы |
12.05.2010, 22:48 | #2 (permalink) | ||
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Цитата:
Цитата:
Код:
uses crt; const n=45; var a:array [1..n] of integer; kneg,knil,i:byte; begin clrscr; writeln ('Type ',n,' numbers: '); for i:=1 to n do begin read(a[i]); if i<=35 then if a[i]<0 then inc(kneg,1); if a[i]=0 then inc(knil,1); end; writeln; writeln ('Amount of negative numbers: ',kneg,'; Amount of nils: ',knil); readkey; end. |
||
12.05.2010, 23:43 | #5 (permalink) |
Новичок
Регистрация: 12.05.2010
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
а с блок схемами можите помочь?
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
12.05.2010, 23:43 | #6 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
А это не имеет никакого отношения к массивам, это просто имена переменных, которые можно назначать любые. kneg - это сокращение от смеси русско-английских слов kol-vo negative (количество отрицательных), а knil - kol-vo nil (количество нулей). Вот и все премудрости.
С блок-схемами могу помочь, но на ближайшие сутки свободного времени не осталось. Вам к какому сроку? |
13.05.2010, 00:17 | #8 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
До пятницы блок-схему не успею. Программа хочет, что бы ты ввел 45 элементов а к первой задаче задание не очень понятное, лучше картинкой приложи. Взяться за нее сейчас не смогу
|
13.05.2010, 10:36 | #9 (permalink) | ||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Цитата:
Код:
const n=8; var i,j:integer; a,b,c:array[1..n,1..n] of real; begin Randomize; for i:=1 to n do for j:=1 to n do a[i,j]:=Random*100-50; WriteLn('Matrix A:'); for i:=1 to n do begin for j:=1 to n do Write(a[i,j]:8:3); writeln; end; WriteLn('Press "Enter" to continue'); ReadLn; for i:=1 to n do for j:=1 to n do If j>=i then b[i,j]:=a[i,j] else b[i,j]:=-a[i,j]; for i:=1 to n do for j:=1 to n do If j<i then c[i,j]:=a[i,j] else c[i,j]:=-a[i,j]; WriteLn('Matrix B:'); for i:=1 to n do begin for j:=1 to n do Write(b[i,j]:8:3); writeln; end; WriteLn('Press "Enter" to continue'); ReadLn; WriteLn('Matrix C:'); for i:=1 to n do begin for j:=1 to n do Write(c[i,j]:8:3); writeln; end; ReadLn; end. |
||
13.05.2010, 14:41 | #10 (permalink) |
Новичок
Регистрация: 12.05.2010
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
спасибо Vladimir_S ,а с блок схемами пожите?
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|