Const N = 20; Var A:array[1..N] of byte; type Form1 = class(Form) procedure button1_Click(sender: Object; e: EventArgs); procedure button2_Click(sender: Object; e: EventArgs); {$region FormDesigner} private {$resource Unit1.Form1.resources} button1: Button; button2: Button; label1: &Label; {$include Unit1.Form1.inc} {$endregion FormDesigner} public constructor; begin InitializeComponent; end; end;
implementation
procedure Form1.button1_Click(sender: Object; e: EventArgs); Var i:byte; begin Randomize; label1.Text:=''; For i:= 1 to N do Begin A[i]:=PABCSystem.Random(90)+10; label1.Text+=A[i]+' '; End end;
procedure Form1.button2_Click(sender: Object; e: EventArgs); Var i:byte; begin label1.Text:=''; For i:= 1 to N div 5 do A[i*5]:=1; For i:= 1 to N do label1.Text+=A[i]+' '; end; end.
procedure nod( var dv,tr,pt,dv1,tr1,pt1,dv2,tr2,pt2 :real; ); var a:array[1..6] of real; i : integer; begin dv1:=100; tr1:=100; pt1:=100; for i:= low(a) to high (a) do begin readln(a[i]); repeat if( (a[i] mod 2) =0) then begin a[i]:=a[i]/2; dv:=dv+1; end else if( ( a[i] mod 3)=0) then begin a[i]:=a[i]/3; tr:=tr+1; end else if ( ( a[i] mod 5)=0) then begin a[i]:=a[i]/5; pt:=pt+1; end;
untill(a=1); if dvif trif ptdv:=0; tr:=0; pt:=0; end; if dv1>0 then dv2:=dv1*2 else dv2:=1; if tr1>0 then tr2:=tr1*3 else tr2:=1; if pt1>0 then pt2:=pt1*5 else pt2:=1; nod:=dv2*tr2*pt2; writeln(nod); end; begin nod( dv,tr,pt,dv1,tr1,pt1,dv2,tr2,pt2 ); end.
Задача №1 //PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016) Var n, i: integer; Begin writeln ('Введите число'); readln(n); writeln('Делители числа:'); for i := 1 to n div 2 do if (n mod i) = 0 then begin write(i,' '); end; End.
Задача №2 (алгоритм не очень шустрый, но работает и понятный) //PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016) var a, b, x, y, nod: integer;
begin writeln('Введите a,b'); readln(a, b); x := a;y := b; while x <> y do if x > y then x := x - y else y := y - x; nod := x; writeln('NOD(', a, ',', b, ')=', nod); end.
Unit Unit1;
interface
uses System, System.Drawing, System.Windows.Forms;
Const
N = 20;
Var
A:array[1..N] of byte;
type
Form1 = class(Form)
procedure button1_Click(sender: Object; e: EventArgs);
procedure button2_Click(sender: Object; e: EventArgs);
{$region FormDesigner}
private
{$resource Unit1.Form1.resources}
button1: Button;
button2: Button;
label1: &Label;
{$include Unit1.Form1.inc}
{$endregion FormDesigner}
public
constructor;
begin
InitializeComponent;
end;
end;
implementation
procedure Form1.button1_Click(sender: Object; e: EventArgs);
Var
i:byte;
begin
Randomize;
label1.Text:='';
For i:= 1 to N do
Begin
A[i]:=PABCSystem.Random(90)+10;
label1.Text+=A[i]+' ';
End
end;
procedure Form1.button2_Click(sender: Object; e: EventArgs);
Var
i:byte;
begin
label1.Text:='';
For i:= 1 to N div 5 do
A[i*5]:=1;
For i:= 1 to N do
label1.Text+=A[i]+' ';
end;
end.