[Delphi - form]Дан динамический одномерный массив, после каждого собственного числа(Число
[Delphi - form]
Дан динамический одномерный массив, после каждого собственного числа(Число которое делится на себя и на 1) воткнуть "0".
Павел Карп
Может после каждого "обычного" числа?
Алиса Почина
И воткнуть в массив, либо просто при выводе массива?
Egor Bogdalevskij
Можно сказать и простого, да. Чтобы на выводе массива в edit был вставлен 0 после простого числа
Антон Симочко
Вывод превосходнее в ListBox
Иван
Желая это Для вас решать
Амелия Шнайцева
Можно и в Listbox, это не меняет итог, основное чтоб выводило :)
Толик Баркет
Как массив заполнять?
Нелли Прищипо
С клавиатуры либо рандомно?
Евгений Ксилов
Рандомно
Ваня Понихидченко
M[i] := Round(sin(random(20))*20);
1 ответ
Алла Васелатьева
Unit Unit1;
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 lt; 2 then P:=false
else
if A lt; 4 then P:=true
else
if A mod 2 = 0 then P:=false
else
Begin
K:=Trunc(Sqrt(A));
d:=3;
While d lt;= 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.
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 lt; 2 then P:=false
else
if A lt; 4 then P:=true
else
if A mod 2 = 0 then P:=false
else
Begin
K:=Trunc(Sqrt(A));
d:=3;
While d lt;= 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.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов