14.12.2011, 15:36 | #1 (permalink) |
Новичок
Регистрация: 14.12.2011
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите создать блок-схему
Тут представлен код программы: unit Unit1; interface uses Windows, Math, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Edit1: TEdit; Edit2: TEdit; Label1: TLabel; Edit3: TEdit; Label2: TLabel; Edit4: TEdit; Label3: TLabel; Edit5: TEdit; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Button5: TButton; Button6: TButton; Label8: TLabel; Label9: TLabel; Edit6: TEdit; Edit7: TEdit; Label10: TLabel; Label11: TLabel; Edit8: TEdit; Edit9: TEdit; Label12: TLabel; Label13: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var a,d: array of integer; n,i,j:integer; t,z:integer; Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); //sozdat' massiv begin edit2.Clear; setlength(d,0); n:=strtoint(edit1.Text); setlength(d,n); randomize; for i:=0 to n-1 do begin d[i]:=round(40*random-20); edit2.text:=edit2.text+inttostr(d[i])+' '; end; end; procedure TForm1.Button2Click(Sender: TObject); //summa otrecatel'nih elementov var s:integer; begin s:=0; for i:=0 to n-1 do begin if d[i] < 0 then s:=s+d[i]; end; edit3.Text:=inttostr(s); end; procedure TForm1.Button4Click(Sender: TObject); //sortirovla Massivka var i,j,t,z :integer; begin edit5.Clear; for i:=0 to n-1 do begin for j:=i+1 to n-1 do begin if d[i] > d[j] then begin t:=d[i]; d[i]:=d[j]; d[j]:=t; end; end; end; for z:=0 to n-1 do edit5.Text:=edit5.text+inttostr(d[z])+' '; end; procedure TForm1.Button5Click(Sender: TObject); //exit begin form1.Close; end; procedure TForm1.Button6Click(Sender: TObject); //cleanse begin edit1.Text:=inttostr(0); edit2.Clear; edit3.clear; edit4.clear; edit5.clear; edit6.clear; edit7.clear; edit8.clear; edit9.Clear; end; procedure TForm1.Button3Click(Sender: TObject); //proizvedenie var maxv,minv,maxi,mini,pr:integer; begin maxv:=d[0]; minv:=d[0]; maxi:=0; mini:=0; for i:=0 to N-1 do begin if d[i] > maxv then begin //nahodim max element matrici maxv:=d[i]; maxI:=i; end; if d[i] < minv then begin //nahodim min element matrici minv:=d[i]; minI:=i; end; end; pr:=1; //proizvedenie mezhdu! if abs(maxi-mini)=1 then edit4.Text:='Íåò ìíîæèòåëåé' else begin if maxI > minI then For I:=minI+1 To MaxI-1 Do Pr:=pr*d[i] else For I:=maxI+1 To minI-1 Do Pr:=pr*d[i]; edit4.Text:=inttostr(pr); end; edit7.text:=inttostr(minv); edit6.text:=inttostr(maxv); edit8.text:=inttostr(mini); edit9.text:=inttostr(maxi); end; end. |
14.12.2011, 15:36 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Можно упростить решение проблемы путем просмотра аналогичных тем Составить блок-схему Помогите составить программу в Pascal и блок-схему Помогите пожалуйста составить блок-схему! Помогите написать программу и блок схему в Паскале Помогите написать алгоритм и блок-схему Помогите сделать блок-схему |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|