Sephiroth
Удален
|
   
У меня установлена Delphi 5.0, вряд ли кто-то еще пользуется этим старьем, но мне приходится. У меня есть просьба: помогите пожалуйста решить задачу в Delphi. Набросок я сделал, дальше сам не могу. Помогите кто сможет! Если кто-нибудь сможет помочь, то скопируйте пожалуйста текст из Unit1.pas и вставьте в форум.
Задача: внешняя ссылка удалена
Шаблон:http://kreedgallery.narod.ru/NewButtonProject.rar
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 23 марта 2005 15:51 | IP
|
|
nevr
Удален
|
Держи. Надеюсь, я правильно понял, что , собственно, требовалось ;-)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Menus,Math;
type
TForm1 = class(TForm)
RadioGroup1: TRadioGroup;
Edit1: TEdit;
Label1: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Label2: TLabel;
Label3: TLabel;
RadioGroup2: TRadioGroup;
Memo1: TMemo;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure N2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.text:='Введите значение';
Edit2.text:='Введите значение';
end;
procedure TForm1.N2Click(Sender: TObject);
var x,p,a: integer;
begin
x:=strtoint(Edit1.Text);
p:=strtoint(Edit2.Text);
Case RadioGroup1.ItemIndex of
0:
Case RadioGroup2.ItemIndex of
0:
begin
if x>abs(p) then
begin
a:=round(power((2*sin(x)),1/3)+3*power(p,2));
Edit3.Text:=IntToStr(a)
end else
begin
Edit3.Text:='введите другие Х и Р!!!';
end;
end;
1:
begin
if (x<abs(p)) and (x>3) then
begin
a:=round(abs(sin(x)-p));
Edit3.Text:=IntToStr(a)
end else
begin
Edit3.Text:='введите другие Х и Р!!!';
end;
end;
2:
begin
if x=abs(p) then
begin
a:=round(sqr(abs(sin(x)-p)));
Edit3.Text:=IntToStr(a)
end else
begin
Edit3.Text:='введите другие Х и Р!!!';
end;
end;
end;
1:
Case RadioGroup2.ItemIndex of
0:
begin
if x>abs(p) then
begin
a:=round(power((2*sqr(x)),1/3)+3*power(p,2));
Edit3.Text:=IntToStr(a)
end else
begin
Edit3.Text:='введите другие Х и Р!!!';
end;
end;
1:
begin
if (x<abs(p)) and (x>3) then
begin
a:=round(abs(sqr(x)-p));
Edit3.Text:=IntToStr(a)
end else
begin
Edit3.Text:='введите другие Х и Р!!!';
end;
end;
2:
begin
if x=abs(p) then
begin
a:=round(sqr(abs(sqr(x)-p)));
Edit3.Text:=IntToStr(a)
end else
begin
Edit3.Text:='введите другие Х и Р!!!';
end;
end;
end;
2:
Case RadioGroup2.ItemIndex of
0:
begin
if x>abs(p) then
begin
a:=round(power((2*exp(x)),1/3)+3*power(p,2));
Edit3.Text:=IntToStr(a)
end else
begin
Edit3.Text:='введите другие Х и Р!!!';
end;
end;
1:
begin
if (x<abs(p)) and (x>3) then
begin
a:=round(abs(exp(x)-p));
Edit3.Text:=IntToStr(a)
end else
begin
Edit3.Text:='введите другие Х и Р!!!';
end;
end;
2:
begin
if x=abs(p) then
begin
a:=round(sqr(abs(exp(x)-p)));
Edit3.Text:=IntToStr(a)
end else
begin
Edit3.Text:='введите другие Х и Р!!!';
end;
end;
end;
end;
end;
end.
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 24 марта 2005 20:09 | IP
|
|
TERRATOR
Новичок
|
Люди добрые! помогите пожалуйста разобраться с задачей.
Не могу найти нужного абонента по заданному телефону.
Текст условия задачи:
1)Создать типизированный файл, который позволяет пользователю записывать данные, что соответствуют условию задачи.
2) файл должен находится в текущей папке программы
3) В заданном файле про каждого из абонентов АТС известны фамилия и номер телефона. Сформировать на фроме список в алфавитном порядке. По заданному номеру найти фамилию абонента и выделить ее в списке.
Код программы:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Grids, ValEdit, ExtCtrls;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
ListBox1: TListBox;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
LabeledEdit1: TLabeledEdit;
LabeledEdit2: TLabeledEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
gf,tel:array[1..10000] of string;
fl:text;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer; ad:array[1..10000] of integer;
begin
// здесь в массиве gf фамилии абонентов
gf[1]='Àíòîíîâ';
gf[2]='Êîëîìîéöåâ';
gf[3]='Ïåòðîâ';
gf[4]='Ìàòâååâ';
gf[5]='Àâäååâà';
gf[6]='Íîâèêîâ';
gf[7]='Ñìèðíîâà';
gf[8]='Òåñëþê';
gf[9]='Ìàãàðû÷';
gf[10]='Òèðàíîâ';
gf[11]='Ìàñëþê';
gf[12]='Åðåìååâ';
gf[13]='Êîñîâ';
gf[14]='Ðåçíè÷åíêî';
gf[15]='Åðìàêîâà';
// в массиве tel телефоны абонентов
tel[1]='273214';
tel[2]='273782';
tel[3]='274821';
tel[4]='278625';
tel[5]='278254';
tel[6]='271631';
tel[7]='273216';
tel[8]='277937';
tel[9]='272167';
tel[10]='273699';
tel[11]='271398';
tel[12]='275891';
tel[13]='271564';
tel[14]='271547';
tel[15]='275326';
for i:=1 to 15 do begin
Listbox1.Items.Add(gf[ i ]+^I+tel[ i ]);
end;
assignfile(fl,'a.txt');
rewrite(fl);
for i:=1 to 15 do begin
writeln(fl,'':1,gf[ i ],'':1,tel[ i ]);
end;
closefile(fl);
labeledEdit1.SetFocus;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if closequery then close;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
listbox1.Items.Clear;
end;
procedure TForm1.Button5Click(Sender: TObject);
var i:integer;
begin
listbox1.Sorted:=true;
assignfile(fl,'b.txt');
rewrite(fl);
for i:=1 to 15 do begin
writeln(fl,'':1,gf[ i ],'':1,tel[ i ]);
end;
closefile(fl);
end;
procedure TForm1.Button4Click(Sender: TObject);
var
gf,tel:array[1..10000] of string;
k,i:integer; rd:string;
begin
If listbox1.Sorted = false then begin
assignfile(fl,'a.txt');
reset(fl);
for i:=1 to 15 do begin
readln(fl,gf[ i ]);
readln(fl,tel[ i ]);
end;
for i:=1 to 15 do begin
if tel[ i ] = LabeledEdit1.Text
then begin
k:=i;
LabeledEdit2.Text:=gf[k];
listbox1.Selected[k-1]:=true;
end;
end;
closefile(fl);
end
else begin
AssignFile(fl,'b.txt');
reset(fl);
for i:=1 to 15 do begin
readln(fl,gf[ i ]);
readln(fl,tel[ i ]);
end;
for i:=1 to 15 do begin
if tel[ i ] = LabeledEdit1.Text
then begin
k:=i;
LabeledEdit2.Text:=gf[k];
listbox1.Selected[k-1]:=true;
end;
end;
closefile(fl);
end;
end;
end.
(Сообщение отредактировал TERRATOR 8 окт. 2009 0:22)
(Сообщение отредактировал TERRATOR 8 окт. 2009 0:24)
|
Всего сообщений: 4 | Присоединился: май 2009 | Отправлено: 8 окт. 2009 0:20 | IP
|
|
Trash91
Новичок
|
Помогите пожалуйста решить наипростейшую задачу:
найти сумму произведений компонентов двух массивов.
|
Всего сообщений: 1 | Присоединился: январь 2010 | Отправлено: 25 янв. 2010 23:45 | IP
|
|
|
Форум
Задача в Delphi
