Реферат Об'єктно-орієнтоване програмування. Розробка програмного забезпечення

er: TObject); Edit1. text lt; gt; 0 then Edit1. text:=Edit1. text + 0 raquo ;;; TForm1. Button11Click (Sender: TObject); pos (, , Edit1. Text)=0 then Edit1. text:=Edit1. Text + , raquo ;;; TForm1. Button12Click (Sender: TObject); if (x=0) and (y=0) then begin x:=strtofloat (edit1. Text); Edit1. Text:= raquo ;; end else begin:=strtofloat (edit1. text) ;:=x + y; Edit1. Text:= raquo ;;; k then begin x:=x-y; end ;:=floattostr (x) ;:=1 ;; TForm1. Button13Click (Sender: TObject); l of

: begin y:=strtofloat (edit1. text); x:=x + y; a:=floattostr (x); k:=true; end;

: begin y:=strtofloat (edit1. text); x:=x * y; a:=floattostr (x); k:=true; end;

: begin y:=strtofloat (edit1. text); if y lt; gt; 0 then begin x:=x/y; a:=floattostr (x); k:=true; end else begin showmessage ( error input ); k:=false; x:=0; y:=0; end; end;

: begin y:=strtofloat (edit1. text); x:=x-y; a:=floattostr (x); k:=true; end ;;. Text:=a; y:=0 ;; TForm1. Button14Click (Sender: TObject); if (x=0) and (y=0) and (not (k)) then begin x:=strtofloat (edit1. Text); Edit1. Text:= raquo ;; end else begin:=strtofloat (edit1. text); not ((k) and (x=0)) then x:=x * y; Edit1. Text:= raquo ;;; (k) and (x lt; gt; 0) then begin x:=x/y; end ;:=floattostr (x) ;:=2 ;; TForm1. Button15Click (Sender: TObject); q: real; q:=strtofloat (edit1. Text); q gt; 0 then q:=ln (q) ;. Text:=floattostr (q) ;; TForm1. Button16Click (Sender: TObject); (x=0) and (y=0) and (not (k)) then begin x:=strtofloat (edit1. Text); Edit1. Text:= raquo ;; end else begin:=strtofloat (edit1. text); not ((k) and (x=0)) then if y lt; gt; 0 then begin x:=x/y; Edit1. Text:= raquo ;; end else begin showmessage ( error input ); edit1. Text:= raquo ;; x:=0; y:=0; k:=false; end ;; (k) and (x lt; gt; 0) and (y lt; gt; 0) then x:=x * y ;:=floattostr (x) ;:=3 ;; TForm1. Button17Click (Sender: TObject); q: real; q:=strtofloat (edit1. Text) ;:=sqr (q) ;. Text:=floattostr (q) ;; TForm1. Button18Click (Sender: TObject) ;. Text:= 0 raquo ;;:=0; y:=0; l:=0; k:=false ;; TForm1. Button19Click (Sender: TObject); q: string; q:=edit1. Text; (length (q) gt; 1) then delete (q, length (q), 1) else q:= 0 raquo ;; x:=strtofloat (q) ;. Text:=q ;; TForm1. Button1Click (Sender: TObject); Edit1. text= 0 then Edit1. text:= 7 else Edit1. text:=Edit1. text + 7 raquo ;;; TForm1. Button20Click (Sender: TObject); (x=0) and (y=0) then begin x:=strtofloat (edit1. Text); Edit1. Text:= raquo ;; end else begin:=strtofloat (edit1. text) ;:=x-y; Edit1. Text:= raquo ;;; k then x:=x + y ;:=floattostr (x) ;:=4 ;; TForm1. Button21Click (Sender: TObject); q: real; q:=strtofloat (edit1. Text) ;:=sqrt (q) ;. Text:=floattostr (q) ;; TForm1. Button2Click (Sender: TObject); Edit1. text= 0 then Edit1. text:= 8 else Edit1. text:=Edit1. text + 8 raquo ;;; TForm1. Button3Click (Sender: TObject); Edit1. text= 0 then Edit1. text:= 9 else Edit1. text:=Edit1. text + 9 raquo ;;; TForm1. Button4Click (Sender: TObject); Edit1. text= 0 then Edit1. text:= 4 else Edit1. text:=Edit1. text + 4 raquo ;;; TForm1. Button5Click (Sender: TObject); Edit1. text= 0 then Edit1. text:= 5 else Edit1. text:=Edit1. text + 5 raquo ;;; TForm1. Button6Click (Sender: TObject); Edit1. text= 0 then Edit1. text:= 6 else Edit1. text:=Edit1. text + 6 raquo ;;; TForm1. Button7Click (Sender: TObject); Edit1. text= 0 then Edit1. text:= 3 else Edit1. text:=Edit1. text + 3 raquo ;;; TForm1. Button8Click (Sender: TObject); Edit1. text= 0 then Edit1. text:= 2 else Edit1. text:=Edit1. text + 2 raquo ;;; TForm1. Button9Click (Sender: TObject); Edit1. text= 0 then Edit1. text:= 1 else Edit1. text:=Edit1. text + 1 raquo ;;;.

. Анкета

Unit1 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, ExtCtrls;=class (TForm): TButton ;: TEdit ;: TComboBox ;: TGroupBox ;: TRadioGroup ;: TRadioGroup ;: TRadioGroup ;: TRadioGroup ;: TRadioGroup ;: TRadioGroup ;: TButton ;: TGroupBox ;: TRadioGroup ;: TRadioGroup ;: TRadioGroup ;: TRadioGroup ;: TRadioGroup ;: TRadioGroup ;: TMemo; ComboBox1Change (Sender: TObject); Button2Click (Sender: TObject) ; Edit1Click (Sender: TObject); Button1Click (Sender: TObject); FormCreate (Sender: TObject) ;: integer ;: boolean;

{Public declarations} ;: TForm1;

{$ R *. dfm} TForm1. Button1Click (Sender: TObject); s: string ;:=Edit1. Text; (s= ) or (s= Ваше Ім * я ) then showmessage ( Введіть свое ім * я ) elsecombobox1. ItemIndex=- 1 then showmessage ( Віберіть тест ) elsecombobox1. ItemIndex of

: begin groupbox1. Enabled:=true; groupbox1. Enabled:=true; start:=true; end;

: begin groupbox1. Visible:=true; groupbox2. Enabled:=true; groupbox2. Visible:=true; start:=true; groupbox1. Enabled:=true; end ;;:=0 ;; TForm1....