Похожие работы на «Создание теста в Delphi»

Создание теста в Delphi
Программирование и комп-ры, Создание теста в Delphi, Курсовая ... 0); error:=true; end else error:=false; if edit2.Text='' then begin messagedlg('Введите имя',mterror,[mbok],0); error:=true; end else error:=false; if ...
... begin Aa:=aa+2;bb:=bb+2;end; 1:begin aa:=aa+1;bb:=bb+1;end; 2:begin aa:=aa+2;bb:=bb+2;end; end; end; case nomer of {AA} 27,52,76,101,126,151,176:begin ...


Моделирование игровых программ [нестрогое соответствие]
Программирование и комп-ры, Моделирование игровых программ, Курсовая ... 1; Finish:= True; for i:=1 to 15 do begin if pole[row,col] <> i then begin Finish:=False; break; end; if col < 4 then inc(col) else begin col :=1; inc ...
... Pole[ey,ex]:=Pole[cy,cx]; Pole[cy,cx]:=0; ex:=cx; ey:=cy; Form1.ShowPole; if Finish then begin pole[H,W]:=H*W; Form1.ShowPole; r:=MessageDlg('Цель ...


Разработка программы- тренажера Управление электросетями [нестрогое соответствие]
Программирование и комп-ры, Разработка программы- тренажера Управление электросетями , Работа Выпускная ... with AOwner.Canvas do begin Pen.Color:=clWhite; MoveTo(9,6); LineTo(9,11); Pen.Width:=2; Pen.Color:=clBlack; Rectangle(1,1,17,17); MoveTo(6,8); LineTo ...
... E[i]=F[i] then Error:=Error+1; if Error=0 then s:='Хорошо'; if Error=1 then s:='Удовлетворительно'; if Error>2 then s:='Неудовлетворительно'; Results. ...


Программ-игра "Морской бой", с использованием анимированных графических объектов и возможностью управлять их движением с помощью клавиатуры [нестрогое соответствие]
Программирование и комп-ры, Программ-игра "Морской бой", с использованием анимированных графических объектов и возможностью управлять их движением с ... ... crx,cr_type,false); | |if promah then promah:=false; | |end else begin | |if cr_ind mod cr_type*5=0 then begin | |if promah then begin | |if flang=0 ...
... Sheep(crx,cr_type,true) | |else begin | |Sheep(crx,cr_type,false); | |swim:=false; | |end; | |end else begin | |crx:=crx+1; | |Sheep(croldx,cr_type, ...


Экспертная система [нестрогое соответствие]
Программирование и комп-ры, Экспертная система, Курсовая ... n of 1: begin Form1.Button1.Visible := true; Form1.Button1.Caption := str; end; 2: begin Form1.Button2.Visible := true; Form1.Button2.Caption := str; ...
... false; 3: Form1.Button3.Visible := false; 4: Form1.Button4.Visible := false; end; end; closefile (Namebzd); end; procedure TForm1.ExitClick(Sender:


Программная система обработки и анализа изображений [нестрогое соответствие]
Программирование и комп-ры, Программная система обработки и анализа изображений, Курсовая TObject); begin if OpenDialog.Execute then begin Image.ImageName := OpenDialog.FileName; NSelect.Enabled := True; end else NSelect.Enabled := False; ...
... TMainForm.DefGradient(var Gx, Gy: real; x,y: word); var a, b, c, d, e, g, h, i: byte; begin with Image.Canvas do begin if Pixels[x-1,y-1] = clBlack ...


Разработка системы автоматизации документооборота [нестрогое соответствие]
Делопроизводство, Разработка системы автоматизации документооборота, Диплом TObject); begin if Table1.Modified then Table1.Post; if Table2.Modified then Table2.Post; if Table3.Modified then Table3.Post; if Table4.Modified then ...
... Table1.Locate('VidDoc', Edit1.Text, [loPartialKey]) else if RadioButton3.Checked=true then Table1.Locate('DataPost', Edit1.Text, [loPartialKey]) else ...


HTML и базы данных [нестрогое соответствие]
Программирование и комп-ры, HTML и базы данных , Работа Курсовая ... Values['Gr1'],0); gn2 := StrToIntDef(Values['Gr2'],0); end; //with if gn1=0 then Response.Content := CommonLook+CreateGroupList(gn1,gn2,OperKind) else ...
... OperKind>0) and (CellColumn=0) and (CellRow>0) then begin CellData := '' +CellData; end; if (OperKind>0) and (CellColumn=StoreQTP.Columns.Count-1) and ...


Тригонометричні ефемериди планет Сонячної системи [нестрогое соответствие]
Программирование и комп-ры, Тригонометричні ефемериди планет Сонячної системи, Курсовая ... 13+'По замовчуванню буде вибрана Земля.' ,mtError,[mbOK],0)=mrOK then begin RadioButton3.Checked:=true; PLN:=3; Image1.Picture.LoadFromFile('eath.jpg' ...
... AR)-sqr(ER))/ (2*AV*AR)))*180/PI; AAD:=sqrt(abs(sqr(AAD0)-sqr(ABD))); If AAD1<0 then begin AAD:=-AAD; end; AA:=(AG+AAD)/15; //пряме піднесення Марса ...


Разработка программы психотестирования [нестрогое соответствие]
Программирование и комп-ры, Разработка программы психотестирования, Курсовая ... f:file of TResult; r:tresult; begin inc(defque); if defque=testnum then begin assignfile(f,copy(testfilename,1,length(testfilename)-3)+'rts'); reset(f ...
... read(f,test[testnum]); inc(testnum) end; statictext1.Caption:='Всего вопросов '+inttostr(testnum); closefile(f); spinedit1.value:=1; spinedit1change( ...