14.12.2011, 16:38 | #1 (permalink) |
Новичок
Регистрация: 14.12.2011
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Нужно создать блок-схемы по кодам программы. Delphi
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, Buttons, ExtCtrls, ComCtrls; type TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; Edit2: TEdit; Button1: TButton; Label2: TLabel; Edit3: TEdit; Edit4: TEdit; Label3: TLabel; Label4: TLabel; Label5: TLabel; Edit5: TEdit; Button2: TButton; Button3: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var a:array of real; i:integer; temp,min,summ:real; j,mini,first,second:integer; begin Edit2.Clear; Edit3.Clear; Edit4.Clear; Edit5.Clear; setlength(a,strtoint(edit1.text)); first:=-1; second:=-1; min:=40; mini:=0; for i:=0 to strtoint(edit1.text)-1 do begin a[i]:=Random(40)-20+random; if (a[i]<0) and (first=-1) then first:=i else if (a[i]<0) and (second=-1) then second:=i; if a[i]<min then begin min:=a[i]; mini:=i; end; Edit2.Text:=Edit2.text+' '+floattostrf(a[i],ffFixed,5,3); end; summ:=0; for i:=first+1 to second-1 do summ:=summ+a[i]; edit3.Text:=floattostrf(summ,ffFixe d,5,3); for i:=0 to strtoint(edit1.text)-1 do for j:=i to strtoint(edit1.text)-1 do if a[i]>a[j] then begin temp:=a[i]; a[i]:=a[j]; a[j]:=temp; end; for i:=0 to strtoint(edit1.text)-1 do Edit4.Text:=Edit4.Text+' '+floattostrf(a[i],ffFixed,5,3); Edit5.Text:=inttostr(mini+1); end; procedure TForm1.Button3Click(Sender: TObject); begin Edit1.Clear; Edit2.Clear; Edit3.Clear; Edit4.Clear; Edit5.Clear; end; procedure TForm1.Button2Click(Sender: TObject); begin halt; end; end. |
14.12.2011, 16:38 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Это созданные ранее темы - обязательно прочитайте Помогите написать программы на Delphi Блок-схемы, Паскаль Нужно описать принцип действия принципиальной схемы Помогите, нужно написать принцип действия схемы |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|