Массив- найти сумму элементов на главной матрице
ComboBox1: TComboBox;
ComboBox2: TComboBox;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Button3Click(Sender: TObject);
var
Form1: TForm1; i, max, min, maxi,mini:integer;
a:array[1..10] of integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
comboBox1.Clear;
combobox2.Clear;
combobox1.TabOrder:=0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
combobox1.items.add(combobox1.Text);
i:=i+1;
a[i]:=strtoint(combobox1.Text);
combobox1.SetFocus;
end;
procedure TForm1.Button2Click(Sender: TObject);
var s,k:integer;
begin
for k:=1 to 10 do
combobox2.Items.Add(inttostr(a[k]));
combobox2.DroppedDown:=true;
end;
procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then button1.SetFocus;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
end.
Решить квадратное уравнение
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,x,y,d:real;
begin
a:=Strtofloat( Edit1.Text);
b:=Strtofloat( Edit2.Text);
c:=Strtofloat( Edit3.Text);
D:= sqr(b)-4*a*c;
if (D>0) then
begin
x:= (-b+sqrt(D))/(2*a);
y:= (-b-sqrt(D))/(2*a);
Memo1.Lines.Add(floattostr(x));
Memo1.Lines.Add(floattostr(y))
end
else if( D<0) then
Memo1.Lines.Add('нету решений')
else
x:= (-b)/(2*a);
y:= (-b)/(2*a);
Memo1.Lines.Add(floattostr(x));
Memo1.Lines.Add(floattostr(y));
end;
end.
Провести линию из точки в точку и рядом вывести стиль линии
begin
with Canvas do
begin
Pen.Style:=psSolid;
Moveto( 10,20)
Lineto(200,20)
Textout(220,20,’solid’)
Создать текстовый редактор он позволяет сохранить открыть и изменить характеристики шрифта
TForm1 = class(TForm)
OpenDialog1: TOpenDialog;
|
|
SaveDialog1: TSaveDialog;
OpenPictureDialog1: TOpenPictureDialog;
SavePictureDialog1: TSavePictureDialog;
FontDialog1: TFontDialog;
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
with openDialog1 do
begin
if not Execute then exit;
memo1.lines.loadFromFile(FileName)
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
with
saveDialog1 do
begin
if not Execute then exit;
memo1.lines.savetoFile(FileName)
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
with fontDialog1 do
begin
if not Execute then exit;
memo1.font:=font;
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
close;
end;
end.
Описать класс транспортные средства
type
TCarrier=class
Private
Fname:string
Fspeeed:integer;
Fmaxspedd:integer;
Fpasscount:integer;
Protected
Procedure MoveFaster;
Procedure Setmax;
Procedure MoveSlower;
End;
Procedure TCarrier.SetSpeed( vel:integer)
Begin
Speed:=vel;
End;
Procedure TCarrier.Setmaxspeed(vel:Integer)
Begin
Maxspeed:=20;
End;
Procedure TCarrier.MoveFaster( ssp:integer)
Begin
If speed< maxspeed then
Inc(speed)
Else
Speed:=maxspeed;
Ssp:=maxspeed;;
Procedure TFORM1.Button1.Click
Begin
Vel:= strrtoint(edit1.text)
Carrier.setspeed(vel)
Carrier.movefaster(ssp)
Label1.Caption:=inttoste(ssp)
End;
С заголовком Header
procedure TForm1.Button1Click(Sender: TObject);
begin
checklistbox1.HeaderColor:=clgreen;
checklistbox1.HeaderBackgroundColor:=clyellow;
checklistbox1.Header[0]:=true;
checklistbox1.HeaderColor:=clwhite;
checklistbox1.HeaderBackgroundColor:=clred;
checklistbox1.Header[3]:=true;
|
|
checklistbox1.Header[6]:=true;
end
Вывести на StatusBar фамилия имя студента а также дата время сегодняшние-системную информацию
procedure TForm1.Timer1Timer(Sender: TObject);
begin
statusbar1.Panels[0].Text:=datetostr(now)+' '+timetostr(now)+' '+ +' '+'Разработчик приложения Ташибаева Айнур Ерланкызы';
34. Из полного имени файла, которое содержится в Edit1 формируются 2 строки-одна содержит путь к файлу включая им диска и название каталога а другая его имя ирасширение.
Var
Drive:Char;
Dirpart,filepart:string;
Begin
ProcessPath( Edit1.Text,Drive, dirpart,filepart)
Label1.Caption:=Drive+’:’+ dirpath+’’
Label2.Caption:=filepart;
2 способ- с помощью Extract
Var
Filename:string;
Begin
Filename:=edit1.text;
Label1.Caption:=extractfilepath(filename)
Label2.caption:=extractfilename(filename);
35.Cформировать массив стоимость. Результат из этого массива в файл Total.
Var f:textfile;
S:string[16];
i,k,cena,name.kol:integer;
stoim:array[1..10] of integer;
begin
i:=0;
assignfile(f,’mark.txt’)
reset(f);
readln(f);
while not eof(f) do
begin
inc(i);
read(f,s,cena,kol);
stoim[i]:=cena*kol;
readln(f);
end;
k:=I;
close(f);
end.
Дата добавления: 2018-04-15; просмотров: 181; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!