02.12.2013, 03:48 | #1 (ссылка) |
Новичок
Регистрация: 03.03.2013
Сообщений: 41
Репутация: 0
|
нужна помощь с формой паскаля абс
вот сам код и он работает, т.е. в правильность формул не вдавайтесь=). мне нужна помощь с формой, вообще во всем. я не знаю как она программируется. не нагуглил ничего путного, так один видеоурок, но его мало. хочу чтобы выглядело примерно так:
т.е. слева вверху все вводиться, остальное считается. две длинные полосы и большое окно должны прокручиваться горизонтально и вертикально соответственно, т.к. в них много символов будет. очень=) только с кодировкой траблы, русский текст не переносит=) но это не такая и помеха) Код:
var n, i, j, m, x, min, max,a,t,n2,sigma: integer; tfile,kfile: text; s,kk,sum10,safull,sa10,y,y2,D,D2,stando:real; begin assign(tfile,'text.txt'); rewrite(tfile); assign(kfile,'text2.txt'); rewrite(kfile); write('à= '); readln(a); write('sigma= '); readln(sigma); write('äåëüòà t= '); readln(t); write('y(0)= '); readln(y); write('Min ýëåìåíò: '); readln(min); write('Max ýëåìåíò: '); readln(max); max:=max+1; write('Êîëè÷åñòâî Ñ×: '); readln(n); m:=n*10; randomize; writeln('ðàâíîìåðíûé ðÿä ïñåâäîñëó÷àéíûõ ÷èñåë n*10:'); for i:=1 to m do begin x:=random(max-min)+min; write (x:2); writeln (tfile, x); end; reset(tfile); writeln; writeln('ñòàíäàðòíî íîðìàëüíûé ðÿä ïñåâäîñëó÷àéíûõ ÷èñåë:'); for i:=1 to n do begin sum10:=0; sa10:=0; for j:=1 to 10 do begin readln(tfile,s); sum10:=sum10+s; end; sa10:=sum10/10; write(sa10,' '); writeln (kfile, sa10); end; reset(kfile); writeln; safull:=0; for i:=1 to n do begin readln (kfile,kk); safull:=safull+kk; end; writeln('ñðåäíåå àðèôìåòè÷åñêîå ðÿäà = ',safull); reset(kfile); D2:=0; for i:=1 to n do begin readln(kfile,kk); D2:=power(kk-safull,2)+D2; end; D:=D2/n; stando:=sqrt(D); writeln('Äèñïåðñèÿ D= ',D); writeln('Ñòàíäàðòíîå îòêëîíåíèå ñèãìà= ',stando); reset(kfile); writeln('y(0)= ',y); n2:=1; y2:=0; for i:=1 to n do begin readln(kfile,kk); y2:=exp(-a*t)*y*y2+sigma*sqrt(1-exp(-2*a*t))*kk; writeln('y(',n2,')= ',y2); y:=0; n2:=n2+1; end; close (tfile); close (kfile); end. |
Ads | |
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
Опции темы | |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
нужна помощь по HDD / помощь по работе с HDAT2 | ruslanlook | Железо | 7 | 20.11.2013 15:07 |
Нужна ПомоЩь !!! | azgard99 | Windows XP | 3 | 17.07.2012 22:01 |
Нужна помощь. | garaninsl | Безопасность | 8 | 23.02.2012 20:53 |
Сделаю блок-схемы для делфи-паскаля. Бесплатно и не очень!!! | diamFC | Реклама, объявления | 0 | 05.08.2011 09:52 |
Нужна помощь ! | Bapejke | Windows XP | 2 | 14.09.2010 23:04 |