Похожие работы на «Лабораторная работа №2 по Delphi»

Лабораторная работа №2 по Delphi
Программирование и комп-ры, Лабораторная работа №2 по Delphi, Контрольная ... T0,TK,Q,W,Y1,Y2,Y3 :REAL; i,H :real; begin Q:=StrToFloat(Edit1.Text); W:=strToFloat(Edit2.Text); H:=StrToFloat(Edit3.Text); T0:=StrToFloat(Edit4.Text) ...
.AddXY(i,Y1,'',clTeeColor); Series2.AddXY(i,Y2,'',clTeeColor); Series3.AddXY(i,Y3,'',clTeeColor); i:=i+h; end; end; end.


Линейные списки. Стек. Дек. Очередь [нестрогое соответствие]
Программирование и комп-ры, Линейные списки. Стек. Дек. Очередь, Диплом ... Form1.Edit2.Text + ' ' + IntToStr(q^.Info); q := q^.Next; end; end; procedure DoNewEditRoundList; var q: List; begin q := RoundList^.Next; Form1.Edit7 ...
... Next <> RoundList do q := q^.Next; h := q^.Next; q^.Next := h^.Next; if h <> nil then Dispose(h); RoundList := q^.Next; end; end; if RoundList <> nil ...


Проектирование и разработка сетевых броузеров на основе теоретико-графовых моделей [нестрогое соответствие]
Программирование и комп-ры, Проектирование и разработка сетевых броузеров на основе теоретико-графовых моделей , Диплом и связанное с ним ... алгоритма будут содержаться кратчайшие длины путей из x в w для всех вершин w ?X. BEGIN D[x]:=0; For w ?X do D[w]:=d[x,w]; T:={X\{x}}; While T=\= do ...
... LeadingZero(m),':',LeadingZero(s),'.',LeadingZero(hund)); End; Function Dist (x1,y1,x2,y2:longint):longint; var temp:longint; Begin temp:=sqr(x2-x1) ...


Разработка автоматизированной системы учета выбывших из стационара [нестрогое соответствие]
Программирование и комп-ры, Разработка автоматизированной системы учета выбывших из стационара , Рефераты ... color1="W+/N,N/W,W+/N,W/N,W/N" && для меню color2="W/N,W+/N" && для gets color3="W+/N,N/W" && для кодификаторов color4="W/N,N/W" && для рамки каталога ...
... IN=STR(HOUR_END)+".00" ELSE time_END=STR(HOUR_END)+"."+STR(MINS_END) ENDIF vars[22]=time_END *_ _ALL_DAY=ALL_DAY IF !EMPTY(_DATE_END) vars[21]=vars[21 ...


Тригонометричні ефемериди планет Сонячної системи [нестрогое соответствие]
Программирование и комп-ры, Тригонометричні ефемериди планет Сонячної системи, Курсовая ... ZR1:=StrToInt(ComboBox3.Text); end; end; FI:=StrToFloat(Edit1.Text); if abs(FI)>90 then //захист від помилки begin if MessageDlg('Помилка введення ...
... 2000 or 2004 or 2008 or 2012 then //високосні роки begin i:=1 //29 лютого end; case M0 of //DR номер дня моменту спостереження 1: begin DR:=D0 ; n:=0 ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... if m<=0 then break; until x1=m end; end; end; {*} procedure tmor;{мор травоядных} begin y:=g-x; if x>0 then begin repeat j:=random(g)+1; tg[j].done; ...
... 0)and (Ch>0)and(tree>0)and (tr>0)and(kata>0)then begin start; gmenu; info; key1:=false; end; end; if (key2='o')or(key2='O') then begin Omenu; komenu; ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... if m<=0 then break; until x1=m end; end; end; {*} procedure tmor;{мор травоядных} begin y:=g-x; if x>0 then begin repeat j:=random(g)+1; tg[j].done; ...
... 0)and (Ch>0)and(tree>0)and (tr>0)and(kata>0)then begin start; gmenu; info; key1:=false; end; end; if (key2='o')or(key2='O') then begin Omenu; komenu; ...


Программирование на Object Pascal в среде Delphi [нестрогое соответствие]
Программирование и комп-ры, Программирование на Object Pascal в среде Delphi , Работа Лабораторная ... RowCount:=6; // количество строк массива X StringGrid3.RowCount:=4; // количество строк массива Y end; procedure TForm1.SpinEdit1Change(Sender:
... m; StringGrid2.RowCount:=m; p:=StrToInt(SpinEdit3.Text); q:=StrToInt(SpinEdit4.Text); // Ввод значений из таблицы в массив A for i:=1 to n do for j:=1 ...


Програмирование на Visual Basic [нестрогое соответствие]
Кибернетика, Програмирование на Visual Basic, Реферат ... Cli.ck() If Check3.Value = 0 Then Listi.Columns = 1 Else Listi.Columns = 2 End If End Sub Private Sub Check4_Click () If Check4.Value = 1 Then Check4. ...
... Chr$(10) Labell.Enabled = False Combo2.Enabled = True Label2.Enabled = True End Sub Private Sub Combo2_Click() Combo2.Enabled = False Label2.Enabled ...


Моделирование игровых программ [нестрогое соответствие]
Программирование и комп-ры, Моделирование игровых программ, Курсовая ... do stp[i,j]:=h*(i-1)+j; stp[H,W]:=0 end; procedure Move(cx, cy:integer); var r:integer; begin if not (( abs(cx-ex)=1) and (cy-ey=0) or ( abs(cy-ey)=1) ...
... x2>=1) and (x2<=h) and (y2>=1) and (y2<=w); Pole[y1,x1]:= Pole[y2,x2]; Pole[y2,x2]:=0; x1:=x2; y1:=y2; end; ex:=x1; ey:=y1; end; procedure TForm1. ...