Силаенков А.Н. Лекции по технологии программирования

Подождите немного. Документ загружается.

str(s,s1);

end;

2.Обработчик события Произведение

procedure TForm1.Button2Click(Sender: TObject);

var

a: array[1..100]of integer;

i,n,code,p:integer;

number,s1:string;

begin

p:=1; {Начальное значение произведения}

val(edit1.Text,n,code);

for i:=1 to n do

begin

number:=inputbox('Ввод числа','Введите число','0');

val(number,a[i],code);{Ввод очередного числа}

p:=p*a[i];

str(p,s1);

end;

listbox1.Items.Add('Произведение чисел='+s1){Вывод результата}

end;

В языке ПАСКАЛЬ существуют два оператора цикла с условиями. С их

помощью можно запрограммировать повторяющиеся фрагменты программы.

Операторы цикла с условиями проверяют условия выполнения или

повторения цикла. Рассмотрим их.

1)Оператор цикла с предусловием

WHILE <условие> DO <оператор>;

здесь WHILE,DO -зарезервированные слова ( пока [ выполняется

условие ],делать);

9условие>-выражение логического типа;

9<оператор> - произвольный оператор .

Логическое выражение <условие> определяет будет ли цикл

выполняться или завершит свою работу. Если выражение <условие> имеет

значение TRUE (ист.), то выполняется <оператор>, после чего вычисление

выражения <условие> и его проверка повторяются. Если <условие> имеет

значение FALSE (лож.),оператор WHILE прекращает свою работу, т.е. цикл

заканчивается.

В качестве <оператора> может быть либо оператор , либо составной

оператор, т.е. последовательность операторов, заключенная в операторные

скобки BEGIN END.

Пример. Протабулировать функцию y=atg(x/4) при изменении

аргумента x на интервале [xn;xk] c шагом, равным h. Значение а=0.11.

Внешний вид формы

Рис. Пример формы

Обработчик события при щелчке на кнопке Табулировать

procedure TForm1.Button1Click(Sender: TObject);

const

a=0.11;

var

code:integer;

xn,xk,x,y,h:real;

s,s1:string[40];

begin

val(edit1.Text,xn,code);

val(edit2.Text,xk,code);

val(edit3.Text,h,code);

x:=xn;

while x<=xk do

begin

str(x:8:4,s);

y:=a*sin(x/4)/cos(x/4);

str(y:8:4,s1);

memo1.Lines.Add('x='+s+' y='+s1);

x:=x+h;

end;

Обработчик события Очистить

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

memo1.Clear;

end;

2)Оператор цикла с постусловием

REPEAT <тело цикла> UNTIL <условие>;

здесь REPEAT,UNTIL - зарезервированные слова (повторять до тех

пор,[пока не будет выполнено условие]);

99<тело цикла>-произвольная последовательность операторов Т.П.

9<условие>-выражение логического типа.

Операторы <тело цикла> выполняются хотя бы один раз, после чего

вычисляется выражение <условие>: если его значение есть FALSE (лож.),

операторы <тело цикла> повторяются, в противном случае оператор

REPEAT...UNTIL завершает свою работу.

Отличия двух операторов цикла с условиями:

1. В операторе цикла с предусловием возможна такая ситуация, что

операторы, содержащиеся внутри него не будут выполнены ни

одного раза, т.к. условие выхода из цикла там проверяется перед

выполнением оператора. В операторе с постусловием оператор,

содержащийся в цикле выполняется хотя бы один раз.

2. В этих двух операторах по-разному проверяется логическое

выражение на выход из цикла.

Пример. Вычислить сумму элементов s=1+1/4+1/9+1/16+… c точностью до E.

Внешний вид формы

Рис. Внешний вид формы

Обработчик события Вычислить

procedure TForm1.Button1Click(Sender: TObject);

var

i,code: integer;

s,r,e:real;

s1,s2:string;

begin

val(edit1.Text,e,code);

S:=0;

i:=1;

repeat

r:=1/sqr(i);

s:=s+r;

i:=i+1;

until r<E;

str(i:2,s1);

str(s:10:4,s2);

memo1.Lines.Add('Значение суммы='+s2+' при i='+s1);

end;

Обработчик события Очистить

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Text:='';

memo1.Clear;

end;

Решение экономических задач на Delphi

Пример1. Программы с линейной структурой

Вкладчик положил в банк, выплачивающий r простых процентов в год,

вклад P руб, определить сумму вклада, которая будет на счету вкладчика

через g год и m мес.

1.Алгоритм решения задачи

Начало

Ввести сумму вклада p, процентную ставку r, число лет - g и мес -m.

Подсчитать период начисления t = g+m/12

Подсчитать сумму вклада s=p+p*r/100*t=p(1+r/100*t).

Вывести сумму вклада на экран

Конец

2. Реализация на Delphi

Необходимые программные компоненты: Для ввода данных -Edit, для

комментариев- Label, для вывода Memo.

Форма

Рис. Форма для вычисления суммы банковского вклада

Обработчик события щелчка на кнопке Вычислить

procedure TForm1.Button1Click(Sender: TObject);

Var

p,g,m,code:integer;

t,s,r:real;

s1:string;

begin

val(edit1.Text,p,code); {Ввод суммы вклада}

val(edit2.Text,r,code); {Ввод ставки}

val(edit3.Text,g,code); {Ввод времени вклада в годах}

val(edit4.Text,m,code); {Ввод времени вклада в месяцах}

t:=g+m/12;

S:=p*(1+(r/100)*t); {Расчет суммы вклада}

str(s:8:4,s1);

memo1.Lines.Add('S='+s1);

end;

Обработчик события при щелчке на кнопке Очистить

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Memo1.Clear;

end;

Программирование на Delphi интерфейса

1. Комментарии – Label;

2. Ввод данных –Edit;

3. Ввод данных в диалоге InputBox;

4. Вывод данных- Label- для несложных выражений

Edit(при задании свойства EditExit)- тоже для несложных выражений;

Memo,ListBox,-для сложных выражений.

5.Принятие решения

(Выбор варианта)RadioButton,Radiogroup,CheckBox.

6.Циклы используются для работы с массивами, списками.

7.Условные операторы используются для выбора вариантов.

Компонент Image

TImage позволяет

поместить

графическое

изображение в любое

место на форме,

кроме того может

быть использован при

создании анимации.

Этот объект очень

прост в

использовании -

выберите его на

странице Additional и

поместите в нужное

место формы. На

форме появляется

рамка. Собственно картинку можно загрузить в рамку во

время дизайна в редакторе свойства Picture (Инспектор

Объектов).

Рис.

В редакторе картинок нужно щелкнуть на кнопке

Открыть, выбрать нужную папку и затем нужный файл.

Картинка должна храниться в файле в формате BMP (bitmap),

WMF (Windows Meta File)

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

Paint и сохранена в

формате .BMP.

Как известно, форматов хранения изображений гораздо

больше трех вышеназванных (например, наиболее известны

PCX, GIF, TIFF, JPEG). Для включения в программу

изображений в этих форматах нужно либо перевести их в

формат BMP.

Важными являются свойства объекта Center и Stretch -

оба имеют булевский тип. Если Center установлено в True, то

центр изображения будет совмещаться с центром объекта

TImage. Если Stretch установлено в True, то изображение

будет сжиматься или растягиваться таким образом, чтобы

заполнить весь объект TImage.

TShape - простейшие графические объекты на форме

типа круг, квадрат и т.п. Вид объекта указывается в свойстве

Shape.Это может быть

Чтобы нарисовать прямоугольник, нужно щелкнуть на пиктограмме

Shape, затем в инспекторе объектов выбрать в свойстве Shape

Прямоугольник

Окружность

Эллипс

Прямоугольник

Скругленный прямоугольник

Скругленный квадрат

Квадрат

Rectangle. Размеры прямоугольника определяются параметрами Width и

Heght.

Окружность вписывается в прямоугольник

с размерами Width и Heght. Диаметр равен

меньшему размеру.

Свойство Pen определяет цвет и вид

границы объекта: Color(Цвет),Mode

(Способ) прорисовки

границ,Style(Стиль) определяет тип

линий границы: непрерывная,

штриховая и т.д. Brush задает цвет и

вид заполнения объекта. Эти свойства

можно менять как во время дизайна,

так и во время выполнения программы.

TBevel - объект для украшения программы, может

принимать вид рамки или линии. Объект предоставляет

меньше возможностей по сравнению с TPanel, но не занимает