Циклический алгоритм
Постановка задачи: найти сумму положительных нечетных чисел, меньших 50. Рекомендуемый вид формы (см. рис 6)
Рисунок 6 Рекомендуемый вид формы
Таблица свойств установленных при проектировании формы
Объект |
Свойство |
Значение |
Form7 |
Caption |
‘Циклический алгоритм’ |
Bordericons |
[] |
|
Font.size |
14 |
|
|
Font.name |
times new roman |
Image1 |
Stretch |
true |
Picture |
\...\002.ipg |
|
Label1 |
Caption |
‘Найти сумму положительных нечетных чисел, меньших 50.’ |
Button1 |
Caption |
‘Вычислить’ |
Button2 |
Caption |
‘Главное меню’ |
Enabled |
false |
Программный код
Объект |
Событийно – управляемая процедура |
Button1 |
procedure TForm7.Button1Click(Sender: TObject); var i:byte; s:integer; begin s:=0; i:=1; while i<51 do begin s:=s+i; i:=i+2; end; ShowMessage(Сумма положительных нечетных чисел меньших 50 равна '+ IntToStr(s)); button2.Enabled:=true; end; |
Button2 |
procedure TForm7.Button2Click(Sender: TObject); begin form7.hide; form2.show; end; |
Одномерный массив
Постановка задачи: Каждое число Фибоначчи вычисляется как f1=0, f2=1, а начиная с третьего по формуле fn=fn-1+fn-2. Составить программу, которая вычисляет n чисел Фибоначчи. Рекомендуемый вид формы (см. рис)
Рисунок 7 Рекомендуемый вид формы
Таблица свойств установленных при проектировании формы
Объект |
Свойство |
Значение |
Form6 |
Caption |
‘Одномерный массив’ |
Bordericons |
[] |
|
Font.size |
14 |
|
Font.name |
times new roman |
|
Image1 |
Stretch |
true |
Picture |
\...\002.ipg |
|
Label1 |
Caption |
‘Каждое число Фибоначчи вычисляется как f1=0, f2=1, а начиная с третьего по формуле fn=fn-1+fn-2. составить программу, которая вычисляет n чисел Фибоначчи.’ |
Label2 |
Caption |
‘Введите количество чисел’ |
Edit1 |
Text |
‘’ |
Label3 |
Caption |
‘Последовательность фибоначчи’ |
Label4 |
Caption |
‘’ |
Button1 |
Caption |
‘Вычислить’ |
Button2 |
Caption |
‘Главное меню’ |
Enabled |
false |
Программный код
Объект |
Событийно – управляемая процедура |
Edit1 |
procedure TForm6.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in['0'..'9', #13,#8]) then begin ShowMessage(Необходимо вводить только натуральное число для корректной работы программы'); key:=#0; end; end; |
Button1 |
procedure TForm6.Button1Click(Sender: TObject); var n:integer; i:byte; f:array of integer; begin label4.Caption:=' '; if strtoint(edit1.Text)=0 then begin showMessage('Введите размерность последовательности); edit1.Text; edit1.SetFocus; end else begin
n:=strtoint(edit1.Text); setlength(f,n); f[0]:=0; f[1]:=1; label4.Caption:=intTostr(f[0])+' '+intTostr(f[1])+' '; for i:=2 to n-1 do begin f[i]:=f[i-1]+f[i-2]; label4.Caption:=label4.Caption+intTostr(f[i])+' '; end; end; Button2.Enabled:=true; end; |
Button2 |
procedure TForm6.Button2Click(Sender: TObject); begin form6.Hide; form2.show; end; |