Создание программ на Delphi - презентация, доклад, проект скачать

Содержание ▲

Вы можете ознакомиться и скачать презентацию на тему Создание программ на Delphi. Доклад-сообщение содержит 17 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации

Слайд 1

Описание слайда:

Создание программ на Delphi

Слайд 2

Описание слайда:

Слайд 3

Описание слайда:

Слайд 4

Описание слайда:

var ……………. a,b,c:real; …………… procedure TForm1.Button1Click(Sender: TObject); begin a:=strtofloat(Edit1.Text); b:=strtofloat(Edit2.Text); Edit3.Text:=floattostr(a+b); end;

Слайд 5

Описание слайда:

procedure TForm1.Button2Click(Sender: TObject); begin a:=strtofloat(Edit1.Text); b:=strtofloat(Edit2.Text); Edit3.Text:=floattostr(a-b); end; procedure TForm1.Button3Click(Sender: TObject); begin a:=strtofloat(Edit1.Text); b:=strtofloat(Edit2.Text); Edit3.Text:=floattostr(a*b); end; end.

Слайд 6

Описание слайда:

Слайд 7

Описание слайда:

var …………….. a,b,c:real; ………………. procedure TForm1.Button1Click(Sender: TObject); begin a:=strtofloat(Edit1.Text); b:=strtofloat(Edit2.Text); c:=strtofloat(Edit3.Text); Edit4.Text:=floattostr(a+b+c); end; procedure TForm1.Button2Click(Sender: TObject); begin close end; end.

Слайд 8

Описание слайда:

Слайд 9

Описание слайда:

………….. procedure TForm1.Button1Click(Sender: TObject); begin if Edit1.Text='1' then Edit2.Text:='Один'; if Edit1.Text='2' then Edit2.Text:='Два'; if Edit1.Text='3' then Edit2.Text:='Три'; end;

Слайд 10

Описание слайда:

Переключатели и флажки

Слайд 11

Описание слайда:

Слайд 12

Описание слайда:

Слайд 13

Описание слайда:

procedure TForm1.Button1Click(Sender: TObject); begin if radiobutton1.checked=true then label2.caption:='Молодец!' ; if radiobutton1.checked=false then label2.caption:='Жаль!' ; end;