МИНОБРНАУКИ РОССИИ
Федеральное государственное
бюджетное образовательное учреждение высшего профессионального образования
«Южно-Российский государственный университет экономики и сервиса»
(ФГБОУ ВПО «ЮРГУЭС»)
Ростовский технологический институт сервиса и туризма (филиал)
(РТИСТ ФГБОУ ВПО «ЮРГУЭС»)
Электротехнический колледж
Практика № 2
по дисциплине: «Основы алгоритмизации и программирования»
Программирование в среде ООП Delphi
Выполнил студент группы 2-52 ПВМ
Гузов Александр_________________________
Проверила:
_________________ /__________________/
Зачтено с оценкой: «_______________»
1)Тема: « Работа с числом. Формирование нового числа».
Дано число. Вывести цифры исходного числа через пробел. Вывести на форму через запятую все четные цифры числа. Найти в зависимости от включенных флажков - произведение четных цифр или сумму четных цифр , их количество, найти среди четных цифр минимальную цифру. Сравнить количество четных и нечетных делителей числа и вывести сообщение, отсортировать делители числа в порядке убывания и вывести через запятую.
unit Unit1;
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
E1.Text:='';
L1.Caption:='';
L2.Caption:='';
L3.Caption:='';
L4.Caption:='';
L6.Caption:='';
L7.Caption:='';
L8.Caption:='';
L9.Caption:='';
L12.Caption:='';
L13.Caption:='';
end;
procedure TForm1.Button1Click(Sender: TObject);
var t:string;a,k,i,b,ch,j,kol,k2,k3,k4,pr,sum,min:integer;
begin
t:=E1.Text;
k:=length(t);
for i:=1 to k do begin
L1.Caption:=L1.Caption+t[i]+' ';
end;
t:=E1.Text;
min:=strtoint(t[1]);
kol:=0;
pr:=1;
sum:=0;
for i:=1 to length(t) do
if strtoint(t[i]) mod 2=0 then begin
inc(kol);L3.Caption:=L3.Caption+t[i]+',';
L2.Caption:=IntToStr(kol);
pr:=pr*strtoint(t[i]);
L7.Caption:=inttostr(pr);
sum:=sum+strtoint(t[i]);
L6.Caption:=inttostr(sum);
if strtoint(t[i])<min then min:=strtoint(t[i]);
L4.Caption:=inttostr(min);
end;
k2:=0;
a:=strtoint(E1.Text);
for i:=2 to a-1 do
if a mod i=0 then begin inc(k2);
L12.Caption:=L12.Caption+inttostr(i)+' ';end;
L13.Caption:=L13.Caption+inttostr(k2);
a:=strtoint(E1.Text);
for i:=2 to a-1 do
if (a mod i=0)and(i mod 2=0) then begin inc(k3);
L8.Caption:=inttostr(k3);
end;
a:=strtoint(E1.Text);
for i:=2 to a-1 do
if (a mod i=0)and(i mod 2<>0) then begin inc(k4);
L9.Caption:=inttostr(k4);
end;
end;
end.
2) Тема: « Работа с компонентами – списки tListBox и tComboBox при обработке линейных массивов »
На форме вводится массив целых чисел через диалоговое окно и отображается в компонент –список. Отобрать в новый список из массива элементы, которые представляют собой чётные, положительные и кратные 5 числа. Напечатать эти элементы и их номера в последовательности. Вывести их количество, и сообщение, если таких чисел нет
unit Unit2;
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button1Click(Sender: TObject);
var n,k1,k2:byte; i:integer;
begin
n:=StrToInt(E1.Text);
for i:=0 to n-1 do begin
LB1.Items.Add(InputBox('ввод','введите '+IntToStr(i+1)+' число',' '));
end;
k1:=0;
for i:=0 to n-1 do
if strtoint(LB1.Items[i]) mod 2 = 0 then
begin
LB2.Items.Add(LB1.Items[i]);
LB4.Items.Add(inttostr(i+1));
inc(k1);
end;
if k1=0 then L3.Caption:='чётных нет' else L1.Caption:=IntToStr(k1);
k2:=0;
for i:=0 to n-1 do
if strtoint(LB1.Items[i]) mod 5 = 0 then
begin
LB3.Items.Add(LB1.Items[i]);
LB5.Items.Add(inttostr(i+1));
inc(k2);
end;
if k2=0 then L4.Caption:='кратных нет' else L2.Caption:=IntToStr(k2);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
LB1.Clear;
LB2.Clear;
LB3.Clear;
LB4.Clear;
LB5.Clear;
L1.Caption:=' ';
L2.Caption:=' ';
L3.Caption:=' ';
L4.Caption:=' ';
end;
end.