Вернуться   Компьютерный форум > Компьютеры > Программы > Программирование
 
 
Опции темы
Старый 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.
spek вне форума  
Ads
 


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
нужна помощь по 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


Текущее время: 11:26. Часовой пояс GMT +4. Powered by vBulletin® Version 5.8.9
Copyright ©2000 - 2016, Jelsoft Enterprises Ltd.