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

Содержание

Слайд 2

Для решения примеров необходимо использовать функции IntToStr ( ) (перевод числа

Для решения примеров необходимо использовать функции IntToStr (<переменная>) (перевод числа из целого

в строчный тип) и StrToInt (<переменная>) (перевод из строкового в целый тип).
Это необходимо в связи с тем, что при вводе числа в строку Edit оно становится строкового типа, а со строками нельзя выполнить арифметических операций.
Для вычисления необходимо преобразовывать тип из строкового в целый, а для вывода результата нужно обратно переводить из целого в строчный тип.
Однако если ответ задачи лежит в переменной вещественного типа, то для вывода его в строчном поле классов TEdit или TMemo необходимо использовать функцию FloatToStr(<переменная>).
Слайд 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;

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);

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);

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'

…………..
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;

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

Слайд 14

Создайте чистую форму. На форме разместите и настройте компоненты: Label1 -

Создайте чистую форму.
На форме разместите и настройте компоненты: Label1 - название

проекта; Label2, Label3 – место вывода результата логических вычислений.
Разместите на форме переключатели CheckBox1 и CheckBox2 - для обработки ситуации.
Разместите кнопки Button1 «И» , Button2 «ИЛИ» – для выполнения логических вычислений.
Все компоненты оформите по своему усмотрению: цвет, шрифт, размер.
Слайд 15

Выбор необходимых компонентов и разработка алгоритмов обработки компонентов

Выбор необходимых компонентов и разработка алгоритмов обработки компонентов

Слайд 16