Перейти к содержимому


- - - - -

Помогите сделать блок-схему. Delphi.


  • Авторизуйтесь для ответа в теме
В этой теме нет ответов

#1 Арслан

Арслан
  • Новичок

  • Новичок
  • 1 сообщений
  • Пол:Мужчина

Отправлено 02.03.2014 - 07:23

type
  TForm1 = class(TForm)
    Label1: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TPerson=class
fname:string;
constructor Create(Name:String);
function Info:string; virtual;
end;
Tstud=class(Tperson)
Fgr:integer;
constructor Create(Name:string; gr:integer);
function info: string; override;
end;
Tprof=class(TPerson)
fdep:string;
constructor Create(Name:string; dep:string);
Function info:string; override;
end;
const SZL=10;
var
  Form1: TForm1;
  List:array[1..SZL] of Tperson;
  n:integer=0;
implementation
{$R *.dfm}
Constructor Tperson.Create(name:string);
begin fName:=name;
end;
Constructor TStud.Create(name:string; gr:integer);
begin
inherited create(name);
fGr:=gr;
end;
constructor TProf.Create(name:string; dep:string);
begin
inherited create(name);
fdep:=dep;
end;
function Tperson.Info:string;
Begin
result:=fname;
end;
function Tstud.info:string;
begin
result:=fname+'гр.'+intToStr(fgr);
end;
Function Tprof.info:string;
begin
result:=fname+'каф.'+fdep;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if n < SZL then begin
inc(n);
if radiobutton1.Checked then
   list[n]:=Tstud.Create(Edit1.Text, StrTolnt(Edit2.Text))
   else
   List[n]:=Tprof.Create(Edit1.Text, Edit2.Text);
Edit1.Text:=''; Edit2.Text:='';
Edit1.SetFocus;
End else showMessage('Список заполнен');
end;
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
st:string;
begin
for i:=1 to SZL do if List[i]<>NIL then st:=st+list[i].Info+#13;
ShowMessage('Список'+#13+st);
end;
end.




Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 скрытых пользователей