type TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; Button1: TButton; Edit2: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1; A:array of shortint; implementation
{$R *.dfm}
Function P(A:integer):boolean; Var d,K:integer; Begin P:=true; if A < 2 then P:=false else if A < 4 then P:=true else if A mod 2 = 0 then P:=false else Begin K:=Trunc(Sqrt(A)); d:=3; While d <= K do Begin if A mod d = 0 then P:=false; d:=d+2 End; End; End;
procedure TForm1.Button1Click(Sender: TObject); Var N:integer; begin Randomize; Edit2.Text:=''; N:=StrToInt(Edit1.Text); SetLength(A,N); For N:= 0 to N-1 do Begin A[N]:=Trunc(Sin(random(20))*20); if P(A[N]) then Edit2.Text:=Edit2.Text+IntToStr(A[N])+'0 ' else Edit2.Text:=Edit2.Text+IntToStr(A[N])+' ' End; end;
Var A:array[1..10000] of real; n,i:integer; Begin Randomize; Write('n = '); ReadLn(n); Write('A(',n,'):'); For i:= 1 to n do Begin A[i]:=random*(2*n+1)-n; Write(' ',A[i]:0:1) End; WriteLn; i:=0; For n:= 1 to n-1 do if (A[n] > 0)and(A[n+1] > 0) then i:=i+1; WriteLn('k = ',i); End.
Ввод с клавиатуры, без массива:
Var A,A2:real; n,k:integer; Begin Write('n = ');ReadLn(n); Read(A); k:=0; For n:= 2 to n do Begin A2:=A; Read(A); if (A > 0)and(A2 > 0) then k:=k+1; End; WriteLn('k = ',k); End.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
A:array of shortint;
implementation
{$R *.dfm}
Function P(A:integer):boolean;
Var
d,K:integer;
Begin
P:=true;
if A < 2 then P:=false
else
if A < 4 then P:=true
else
if A mod 2 = 0 then P:=false
else
Begin
K:=Trunc(Sqrt(A));
d:=3;
While d <= K do
Begin
if A mod d = 0 then P:=false;
d:=d+2
End;
End;
End;
procedure TForm1.Button1Click(Sender: TObject);
Var
N:integer;
begin
Randomize;
Edit2.Text:='';
N:=StrToInt(Edit1.Text);
SetLength(A,N);
For N:= 0 to N-1 do
Begin
A[N]:=Trunc(Sin(random(20))*20);
if P(A[N]) then Edit2.Text:=Edit2.Text+IntToStr(A[N])+'0 '
else Edit2.Text:=Edit2.Text+IntToStr(A[N])+' '
End;
end;
end.
Var
A:array[1..10000] of real;
n,i:integer;
Begin
Randomize;
Write('n = ');
ReadLn(n);
Write('A(',n,'):');
For i:= 1 to n do
Begin
A[i]:=random*(2*n+1)-n;
Write(' ',A[i]:0:1)
End;
WriteLn;
i:=0;
For n:= 1 to n-1 do
if (A[n] > 0)and(A[n+1] > 0) then i:=i+1;
WriteLn('k = ',i);
End.
Ввод с клавиатуры, без массива:
Var
A,A2:real;
n,k:integer;
Begin
Write('n = ');ReadLn(n);
Read(A);
k:=0;
For n:= 2 to n do
Begin
A2:=A;
Read(A);
if (A > 0)and(A2 > 0) then k:=k+1;
End;
WriteLn('k = ',k);
End.