Программа «Вычисление процентов».

↑

▷ Содержание

⇐ ПредыдущаяСтр 2 из 5Следующая ⇒

▷ Похожие статьи

Цель работы - создать программу, выполняющую следующие действия: 1. После запуска программы в окне изображается три текстовых поля.

2. В первое поле вводится число. Во второе поле - проценты. При нажатии кнопки "Рассчитать" в третье поле выводятся вычисленные проценты от числа.

3. При нажатии кнопки "Очистить" очищаются значения полей. Далее вводятся новые значения в поля.

4. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.

Описание плана разработки программы

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: командная кнопка Button, надпись Label, текстовое поле Edit.

3. Выполнить следующие действия:

4. Сохраните проект, запустите и протестируйте его.

Фрагмент программы

procedure TForm1.Button1Click(Sender: TObject);

Var Number, Procent, Prn: Real;

begin

Number:=StrToFloat(Edit1.Text); Procent:= StrToFloat(Edit2.Text); PrN:=0.01*Procent*Number; Edit3.Text:=FloatToStr(PrN); end;

procedure TForm1.Button2Click(Sender: TObject); begin

Edit1.Text:=''; Edit2.Text:=''; Edit3.Text:=''; end;

Программа «ДИАЛОГ»

Постановка задачи

Создать программу, выполняющую следующие действия.

После запуска программы пользователь вводит свое имя, например, Александр, в прямоугольник с мигающим текстовым курсором и нажимает клавишу Enter. Появляется вопрос: "Александр, ты любишь читать?". Если пользователь нажмет на клавишу Да, то должна появиться реплика: "Молодец!", если он нажмет на клавишу Нет, то появится реплика: "Почему же? Надо читать".

План разработки программы,

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов в соответствии с рисунком.

3. Сохранить код программы и проект под именами, например, Unit2.pas и Pr2.dpr.

4. Запустить программу, затем закрыть окно проекта, щелкнув на кнопке Выход.

5. Выполнить следующие действия:

6. Сохранить проект окончательно, запустить и протестировать его.

12. Программа "Двигающая кнопка"

Цель работы: - создать программу, выполняющую следующие действия:

1. По щелчку мышью на кнопке кнопка либо останавливается, либо двигается.

2. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.

Описание плана разработки программы

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: кнопку Button, таймер Timer. Кнопка включает и выключает таймер, а таймер двигает кнопку.

3. Выполнить следующие действия:

4. Сохраните проект, запустите и протестируйте его.

Программа «Календарь»

Программный код проекта "Календарь"

procedure TForml.Button1Click(Sender: TObject);

var к:integer;

begin

Label2.Visible:=True;

Label2.Caption: = 'Данный год';

Label3.Visible:=True;

k:=StrtoInt(Editl.Text);

if к mod 100 <>0

then

if к mod 4 =0

then Label3.Caption:='является високосным'

else Label3.Caption:='He является високосным'

else

if k mod 400 =0

then Label3.Caption:='является високосным'

else Label3.Caption:='не является високосным'

end;

procedure TForml.Button2Click(Sender: TObject);

begin

close

end;

procedure TForml.Button3Click(Sender: TObject);

begin

Editl.Text:=’-1';

Label2.Visible:=False;

Label3.Visible:=False

end;

end.

Программа «БАНКОМАТ»

procedure TForml.ButtonlClick(Sender: TObject);

begin

close

end;

procedure TForml.Button2Click(Sender: TObject);

var sum, k1000, k500, к100, k50,

ost1000,ost500,ost100:integer;

begin

sum:=StrtoInt(Editl.Text);

k1000:=sum div 1000;

ost1000:=sum mod 1000;

k500:=ost1000 div 500;

ost500:=ost1000 mod 500;

k100:=ost500 div 100;

ost100:=ost500 mod 100;

k50:=ost100 div 50;

Edit2.Text:=InttoStr(kl000);

Edit3.Text:=InttoStr(k500);

Edit4.Text:=InttoStr(klOO);

Edit5.Text:=InttoStr(k50)

end;

end.

Познавательные статьи:



Психологические особенности спортивного соревнования

Приготовление дезинфицирующих растворов различной концентрации

Занятость населения и рынок труда

Социальный статус семьи и её типология