Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.03.2018, 17:48   #1
aleks3791
Новичок
Джуниор
 
Регистрация: 01.03.2018
Сообщений: 1
По умолчанию Помогите разобрать коды что за что отвечает хоть что то

Помогите разобрать коды что за что отвечает хоть что то

задание1
Код:
procedure TForm1.Button1Click(Sender: TObject);
const
n=10;
var
m:array[1..n] of integer;
i,k: integer ;
s: string;
begin
randomize;
i:=0;
while i begin
i:=i+1;
m[i]:=random(10+1);
for k:=1 to i-1 do
if m[k]=m[i] then
begin
i:=i-1;
break;
end;
end;
for i:=1 to n do
s:=s+(IntToStr(m[i])+' ');
Memo1.Lines.Add(s);
end;
end.
задание2
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if messagebox(handle, 'Идем на войну?' , 'Заголовок тактики', mb_iconinformation or mb_yesno) = mryes then
messagebox(handle, 'НАПАДАЕМ' , 'Пойдем на войну', mb_iconerror)
else
messagebox(handle, 'ОТСТУПАЕМ' , 'Не пойдем на войну ', mb_iconerror);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
s:string;
begin
s:=inputbox('текст1','текст2','vnemanei');

showmessage(s);

inputquery('текст2','текст1',s);
showmessage(s);

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if opendialog1.execute=true then
label1.caption:=opendialog1.filename;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
if savedialog1.execute=true then
memo1.lines.savetofile(savedialog1.FileName);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
savepicturedialog1.execute;
end;
end.
задание3
Код:
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Label2.Visible:=true;
bitbtn2.Visible:=false;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
label2.caption:='Ждите повышения!';
end;

procedure TForm1.BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
bitbtn2.left:=random(clientwidth-30);
bitbtn2.Top:=random(clientheight-30);
end;
end.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 01.03.2018 в 22:15.
aleks3791 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
За что отвечает и что делает с WIN-7 обновление КВ3163589 ? SVAROJITH Помощь студентам 1 30.12.2017 17:49
Демонстрация фрактальной графики. Поле из одуванчиков. Напишите пожалуйста что выполняет каждая строчка и за что отвечает Viksa123 Паскаль, Turbo Pascal, PascalABC.NET 5 08.03.2015 10:47
Не могу разобраться что за что отвечает в CSS Maxs HTML и CSS 1 03.11.2009 18:35
Помогите, пожалуйста, решить хоть что-то из этого. Очень нужно. Андрэ Фриланс 6 10.12.2008 02:20
Помогите, пожалуйста, решить хоть что-то из этого. Очень нужно. Андрэ Помощь студентам 1 07.12.2008 11:42