VBNet - Форум - Помогите Visual basic

Вопрос: Помогите Visual basic Добавлено: 13.04.06 23:58

Автор вопроса: studen

Буду чрезмерно благодарен если поможете в решении:
(ЧИСЛЕННОЕ РЕШЕНИЕ УРАВНЕНИЙ)Решить методом итераций уравнение x=ln(x+2,5)
(ОБРАБОТКА МАССИВОВ ДАННЫХ В СРЕДЕ VISUAL BASIC) Вывести среднее арифметическое положительных элементов произвольно заданного массива размерностью 3 X (5 + n)

Возможно для некоторых из вас это чистый пустяк, который не заслуживает вашего внимания, но умоляю помогите.
Ответить

Ответы Всего ответов: 7

Номер ответа: 1 Автор ответа: mich ICQ: 261800349 Вопросов: 19 Ответов: 148	Web-сайт: belkyokushin.net Профиль \| \| #1	Добавлено: 14.04.06 00:05
	Вот халявщик. Учись!!! Ответить

Номер ответа: 2 Автор ответа: mich ICQ: 261800349 Вопросов: 19 Ответов: 148	Web-сайт: belkyokushin.net Профиль \| \| #2	Добавлено: 14.04.06 00:29
	tpx: (заодно глянем как подсветка кода сработает) program m_iter_sys; Uses Crt; label 1,2; const n=4; e=0.001; var i,j,k,t:integer; sum1:real; f:boolean; a,c:array [1..n,1..n] of real; s1,x,x0,d,b:array [1..n] of real; begin ClrScr; for i:=1 to n do begin writeln ('введите коэффициенты в ',i,' строке'); for j:=1 to n do readln (a[i,j]; end; writeln; writeln ('введите свободные члены'); for i:=1 to n do readln (b[i]; ClrScr; for i:=1 to n do for j:=1 to n do begin if i=j then c[i,j]:=0 else c[i,j]:=-a[i,j]/a[i,i]; end; for i:=1 to n do d[i]:=b[i]/a[i,i]; {проверка сходимости} for i:=1 to n do begin sum1:=0; for j:=1 to n do sum1:=sum1+c[i,j]; s1[i]:=sum1; end; sum1:=s1[1]; for i:=2 to n do if s1[i]>sum1 then sum1:=s1[i]; if abs(sum1)<1 then begin {конец проверки} for i:=1 to n do x0[i]:=d[i]; for i:=1 to n do begin x[i]:=0; for j:=1 to n do x[i]:=x[i]+c[i,j]x0[j]; end; for i:=1 to n do x[i]:=x[i]+d[i]; 1: begin for i:=1 to n do x0[i]:=x[i]; for i:=1 to n do begin x[i]:=0; for j:=1 to n do x[i]:=x[i]+c[i,j]x0[j]; end; for i:=1 to n do x[i]:=x[i]+d[i]; t:=0; for i:=1 to n do if abs(x[i]-x0[i]<e then t:=t+1; if t=n then goto 2 else goto 1 end; 2: writeln ('Ответ:'); for i:=1 to n do write (x[i]:2:2,' '); writeln; end else writeln ('система не сходится'); readln end. Ответить

Номер ответа: 3 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #3	Добавлено: 14.04.06 01:46
	5 WMZ Ответить

Номер ответа: 4 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #4	Добавлено: 14.04.06 10:03
	ну подсветка у нас явно не для паскаля Кстати, у мя акция! 4,5 WMZ ^)))))))))))))) Ответить

Номер ответа: 5 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #5	Добавлено: 14.04.06 11:38
	4.4 WMZ. И, ребята, не демпингуйте, неприлично как-то Ответить

Номер ответа: 6 Автор ответа: ViktorZ ICQ: 271202919 Вопросов: 56 Ответов: 837	Профиль \| \| #6	Добавлено: 14.04.06 13:59
	100WMZ + бесплатная поодержка в течение месяца )) Ответить

Номер ответа: 7 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #7	Добавлено: 14.04.06 14:50
	Sharp, OK )) Ответить

Страница: 1 |