Материалы, похожие на работу «Вычисление интеграла методом Ньютона-Котеса (теория и программа на Паскале)»

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ УКРАИНЫ ТАВРИЧЕСКИЙ НАЦИОНАЛЬНЫЙ УНИВЕРСИТЕТ им. В.И.Вернандского МАТЕМАТИЧЕСКИЙ ФАКУЛЬТЕТ КАФЕДРА ИНФОРМАТИКИ ...
OutTextXY(210,240,'Domain 3.1')
if second then begin...
... Приведём простейший пример программы, единственная цель которой ( вывести на экран какое-нибудь приветствие: program Hello; begin writeln('Hello, ...
Перепишем его с использованием процедуры: program Max2; var a,b,c,m: integer; procedure FindMax; begin if a>b then m:=a else m:=b; if c>m then m:=c; end; begin write('Введите a ...
function DeleteItemAfter(var l: tItemPtr; num: word): boolean; var p,q: tItemPtr; i: word; begin i:=1; p:=l; while (inum)and(pnil) do begin i:=i+1; p:=p^.next; end; if pnil then ... ...
Разработка системы управления асинхронным двигателем с детальной разработкой программ при различных законах управления Описан объект автоматического ...
if PsisRAngle<0 then PsisRAngle:=360+PsisRAngle;
if AComponent<>0 then IntAngle:=round(180/Pi*ArcTan(BComponent/AComponent))...
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ УКРАИНЫ ТАВРИЧЕСКИЙ НАЦИОНАЛЬНЫЙ УНИВЕРСИТЕТ им. В.И.Вернандского МАТЕМАТИЧЕСКИЙ ФАКУЛЬТЕТ КАФЕДРА ИНФОРМАТИКИ ...
OutTextXY(210,240,'Domain 3.1')
if second then begin...
Оглавление. |стр.| |1. Аннотация (Annotation) |2 | |2. Общий раздел |3 | | 2.1. История развития метрополитена. Метрополитен|4 | |сегодня. | 2.2 ...
B := FieldByName('B').AsFloat; end; if RadioButton1.Checked then begin
UsersTable.Open; if UserName '' then begin if not UsersTable.FindKey([UserName]) then raise Exception.Create(SNotFound); end; dsUsers.DataSet := UsersTable; end; if IsNew then ... ...
Object Pascal — Реферат
Object Pascal 1. Основы языка Object Pascal 1.1. Алфавит языка Основными символами языка Object Pascal являются: символы _ 26 больших и 26 малых ...
if RecRead then begin {если запись есть}
If not (L mod Siz = 0) then Writeln('Файл ' + nF + имеет другой тип')...
Обделка вертикальных стволов — Дипломная работа
ВЫБОР МАТЕРИАЛА И РАСЧЕТ ПАРАМЕТРОВ ОБДЕЛОК ВЕРТИКАЛЬHЫХ СТВОЛОВ МЕТРОПОЛИТЕHОВ Общий раздел ИСТОРИЯ РАЗВИТИЯ МОСКОВСКОГО МЕТРОПОЛИТЕНА. МЕТРОПОЛИТЕН ...
if RadioButton1.Checked then begin
if TableDATA.FieldByName('Stuff').AsInteger = 0 {Железо-бетон} then begin...
Решение задачи о кратчайшем маршруте методом Форда 1. Постановка сетевой транспортной задачи. На практике часто встречается задача определения ...
outtextxy(180,130,'Опeрация произведена')
if i>9 then outtextxy(round(coord_point[i,1]-12),...
Содержание. Введение 1. Анализ возможности использования автодинов на полупроводниковых активных СВЧ-элементах для контроля параметров материалов и ...
OutTextxy(XGMIN,YGMIN-10,'Спектр тока на диоде')
if k=1 then begin sign0:=s0/500; s0:=0; end;...
ИССЛЕДОВАНИЕ ЭФФЕКТА АВТОДИННОГО ДЕТЕКТИРОВАНИЯ В МНОГОКОНТУРНОМ ГЕНЕРАТОРЕ НА ДИОДЕ ГАННА Введение. В связи с развитием современных технологий ...
OutTextxy(XGMIN,YGMIN-10,'Спектр тока на диоде')
if k=1 then begin sign0:=s0/500; s0:=0; end;...
Технология строительства метрополитена Оглавление. 1. Аннотация (Annotation) стр. 2 2. Общий раздел 3 2.1. История развития метрополитена ...
if RadioButton1.Checked then begin
if TableDATA.FieldByName('Stuff').AsInteger = 0 {Железо-бетон} then begin...
Задание на курсовую работу Разработать обучающую программу на тему "Взаимодействие основных частей ЭВМ при выполнении программы". Руководитель ...
OutTextXY(X0 + 360, Y0 + 150, 'У.Ввода')
OutTextXY(XC + 60, YC + 180, ' процессора (ЦПУ)'...
ПРОГРАММА ЭМУЛЯЦИИ РАЗВИТИЯ ЖИВОТНЫХ 1. ВВЕДЕНИЕ. Ради интереса было дано задание написать программу типа "Жизнь", но с некоторыми изменениями в ...
if ((z mod 365)=180)and(g>0)and(m>0) then
bar(0,240,640,260);...
Институт Переподготовки Кадров Уральского Государственного Технического Университета Кафедра микропроцессорной техники Курсовая работа ПРОГРАММА ...
if ((z mod 365)=180)and(g>0)and(m>0) then
bar(0,240,640,260);...
Решение задачи о кратчайшем маршруте методом Форда 1. Постановка сетевой транспортной задачи. На практике часто встречается задача определения ...
outtextxy(180,130,'Опeрация произведена')
if i>9 then outtextxy(round(coord_point[i,1]-12),...
Лист задания Аннотация Пояснительная записка курсовой работы "Обработка экономической информации с помощью файлов" содержит в себе постановку задачи ...
Если битовое изображение достигло заданных границ экрана, то идет обнуление координат вывода этого изображения на экран if k>getmaxx-100 then begin k:=0; kk:=0 end;
procedure zast; var xm,ym:integer; {xm,ym,x,y-координаты } size:integer; saucer:pointer; {size,saucer,k,kk-для движения} k,kk:integer; begin clrscr; textmode(Co80); textcolor(white ... ...
Электрическое поле Электрическое поле - особый вид материи, создаваемый электрическими зарядами, основное свойство которого заключается в действии на ...
If Qrc[I,3]=1 then For P:=1 to Z do ElTrack(Qrc[I,1]+3*Cos(((P-1)*360/Z)*Pi/180),Qrc[I,2]+3*Sin(((P-1)*360/Z)*Pi/180),I,-1);
If Dist0 then Tmp:=Tmp+(Qrc[I,3]/Dist) else begin Potenc:=0; Exit; end;...
Государственный комитет Российской Федерации по высшему образованию Кубанский государственный технологический университет Кафедра ? ПОЯСНИТЕЛЬНАЯ ...
x,y:integer); begin asm push ax push bx push cx push dx mov bx,x mov cx,y mov es,segm mov dx,ofst mov ax,09h int 33h pop dx pop cx pop bx pop ax end end; procedure Get_Mouse_State ...
33h lds di,bt mov [di],bx lds di,x mov [di],cx lds di,y mov [di],dx pop dx pop cx pop bx pop ax end end; procedure Get_Web_State; begin r := 0; for counter:= 0 to 5 do if (mask ... ...
Государственный комитет Российской Федерации по высшему образованию Саратовский ордена Трудового Красного Знамени государственный университет им. Н.Г ...
if z=visir_f1) then begin if (visir_f10) then begin setcolor(0); outtextxy(540,75,'_'); setcolor(13); line(540,70,620,70); str((visir_f/visir_f1):5:3,s); outtextxy(540,75,s); end ...
{ вывод графиков токов и напряжений } if(iii1>0) then begin an3; if(iii1=loop*1000) then begin loop:=loop+1; setfillstyle(0,0); bar(xgmin+1,ygmin+1,xgmax-1,ygmax-1); scal;...
©2007—2016 Пуск!by | По вопросам сотрудничества обращайтесь в contextus@mail.ru