|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.10.2017, 20:25 | #1 |
Новичок
Джуниор
Регистрация: 17.10.2017
Сообщений: 0
|
Блок-схемы
Program N679;
begin var n:=ReadInteger('Количество строк/столбцов в матрицах:'); Writeln('*** Исходная матрица A ***'); Randomize; var a:=MatrGen(n,n,(i,j)->(Random(101)-50)*0.5); a.Println(9,2); Writeln(9*a.ColCount*'-'); Writeln('*** Исходная матрица B ***'); var b:=MatrGen(n,n,(i,j)->(Random(101)-50)*0.5); b.Println(9,2); Writeln(9*a.ColCount*'-'); var v:=b.Rows.Select(r->r.Max).ToArray; for var i:=0 to n-1 do for var j:=0 to n-1 do a[i,j]*=v[i]; Writeln('*** Результирующая матрица A ***'); a.Println(9,2) end. Program N692; begin var n:=ReadInteger('Количество строк/столбцов в матрице:'); Writeln('*** Исходная матрица ***'); Randomize; var a:=MatrGen(n,n,(i,j)->(Random(101)-50)*0.5); a.Println(9,2); Writeln(9*a.ColCount*'-'); var max:=real.MinValue; for var i:=0 to n-1 do for var j:=i to n-1 do if a[i,j]>max then max:=a[i,j]; Writeln('Найдено максимальное значение ',max:0:1) end. Program N694; begin var n:=ReadInteger('Количество строк/столбцов в матрице:'); var a:=MatrFill(n,n,0); a[(n-1) div 2, (n-1) div 2]:=1; a.Println(2) end. Program N758; Begin var x3:=Power(ReadReal('x='),3); var (eps,s,k):=(1e-6,0.0,1); repeat var p:=1/(x3*k*k); if p<eps then break; s+=p; k+=1 until false; Writeln(s) End. Program N136; var n: integer; s: real; begin n:=ReadInteger('n='); s:=ReadSeqReal('Введите '+n+' чисел:',n).Select(x->Abs(x)).Sum; Writeln('Сумма модулей равна ',s); end. Program N201; Begin var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println; Writeln('Min =',a.Where((x,i)->i.isEven).Min) End. Program N769; Begin var(n,r):=(0,0.0); while true do begin n:=0; var s:=ReadSeqRealWhile('Вводите:',x->begin n+=1; Result:=x>=0 end).Sum; if n>1 then begin if s>0 then r+=1/s end else if n=1 then break end; if r<>0 then Writeln('R=',1/r) else Writeln('Сопротивление цепи бесконечно') End. {Пример. Вводите: 5.2/2.7/-1 или 6/3.5/9.2/8/1.4/-2 и тд.} Помогите пожалуйста с блок-схемами буду очень благодарен |
17.10.2017, 20:26 | #2 |
Форумчанин
Регистрация: 31.05.2009
Сообщений: 786
|
24na7Mypka, обращайтесь e-mail: informatik101@mail.ru vk.com/alexcoder1
|
17.10.2017, 23:02 | #3 |
Новичок
Джуниор
Регистрация: 10.06.2014
Сообщений: 0
|
*
|
17.10.2017, 23:50 | #4 |
Пользователь
Регистрация: 21.12.2011
Сообщений: 54
|
Если еще актуально, пишите: stealth(собака)bigmir.net
Сразу указывайте на когда нужна работа и предполагаемый бюджет. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Блок схемы - построение схемы по коду на C# | Boogeman | Помощь студентам | 1 | 06.06.2017 08:37 |
блок-схемы | bwitcher | Фриланс | 0 | 07.06.2013 08:27 |
Блок схемы... | Serega13 | Помощь студентам | 2 | 03.06.2013 20:53 |
Блок схемы в С++ | Денис999 | Помощь студентам | 2 | 17.12.2011 15:08 |
блок-схемы | Lenka455 | Помощь студентам | 2 | 23.12.2010 18:03 |