Построение блок схем алгоритмов. Алгоритмические языки высокого уровня
Построение блок схем алгоритмов. Алгоритмические языки высокого уровня
#include
#include
void main()
{
float dx=0.25,y,x;
for (x=2.0;x<=5.0 +0.5*dx;x+=dx)
{
if (x<=3.5)
y=cos(x)*cos(x);
else
y=sin(x)*log(x);
cout<<"Y= "< } } Program lab_2; Uses Crt; Const dx=0.25; Var x,y:real; Begin clrscr; x:=2.0; while x<5.0+dx/2 do begin if x<=3.5 then begin y:=sqr(cos(x)); end else y:=sin(x)*ln(x); writeln(y:3:5); x:=x+dx; end; readln; End. unit Unit1; interface uses Windows, Messages, SysUtils,>
StdCtrls; type TForm1 =>
ListBox1: TListBox; Button1: TButton; Button2: TButton; Button3: TButton; procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; Const dx=0.25; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button2Click(Sender: TObject); begin Close(); end; procedure TForm1.Button1Click(Sender: TObject); var Code:integer; x,y:real; s:string[11]; begin x:=2.0; while (x<5.0+0.5*dx) do begin if x<=3.5 then y:=sqr(cos(x)) else y:=sin(x)*ln(x); x:=x+dx; Str(y:2:7,s); Listbox1.Items.Add(s); end; end; procedure TForm1.Button3Click(Sender: TObject); begin Listbox1.Items.Clear; end; end.