Целочисленная арифметика
Постановка задачи: Дано четырехзначное число. Найти число, полученное при прочтении его цифр справа налево. Рекомендуемый вид формы (см. рис 4)
Рисунок 4 Рекомендуемый вид формы
Таблица свойств установленных при проектировании формы
Объект |
Свойство |
Значение |
Form4 |
Caption |
‘Работа с числами’ |
Bordericons |
[] |
|
Font.size |
14 |
|
|
Font.name |
Times New Roman |
Image1 |
Stretch |
True |
Picture |
\...\002.ipg |
|
Label1 |
Caption |
‘Дано четырехзначное число. Найти число, полученное при прочтении его цифр справа налево’ |
Wordwrap |
True |
|
Label2 |
Caption |
‘Введите четырехзначное положительное число’ |
Edit1 |
Text |
‘’ |
Button1 |
Caption |
‘Вычислить’ |
Button2 |
Caption |
‘Главное меню’ |
Enabled |
false |
Программный код
Объект |
Событийно – управляемая процедура |
Form4 |
procedure TForm4.FormActivate(Sender: TObject); begin ShowMessage('Дано четырехзначное число.'+#13+' Найти число, полученное при прочтении его цифр справа налево '); end; |
Edit1 |
procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in['0'..'9', #13,#8]) then begin ShowMessage(Необходимо вводить только натуральные числа для корректной работы программы'); key:=#0; end; end; |
Button1 |
procedure TForm4.Button1Click(Sender: TObject); var t,c,d,e:byte; a,b:integer; begin if length(Edit1.Text)<>4 then BEGIN Showmessage(‘Вы ввели не четырехзначное число.'+#13+Попробуйте еще раз'); EDIT1.Text:= ' '; edit1.SetFocus; end else begin a:=strtoint(Edit1.Text); t:=a div 1000; c:=a div 100 mod 10; d:=a div 10 mod 10; e:= a mod 10; b:=e*1000+d*100+c*10+t; label4.Caption:='Ответ'+ #13+'полученное число равно '+ intToStr(b); end; button2.Enabled:=true; end; |
Button2 |
procedure TForm4.Button2Click(Sender: TObject); begin form4.Hide; form2.show; end; |
Разветвляющийся алгоритм
Постановка задачи: Даны три числа, вывести те из них, которые являются четными. Рекомендуемый вид формы (см. рис 5)
Рисунок 5 Рекомендуемый вид формы
Таблица свойств установленных при проектировании формы
Объект |
Свойство |
Значение |
Form5 |
Caption |
‘Разветвляющийся алгоритм’ |
Bordericons |
[] |
|
Font.size |
14 |
|
|
Font.name |
Times New Roman |
Image1 |
Stretch |
True |
Picture |
\...\002.ipg |
|
Label1 |
Caption |
‘Даны три числа, вывести те из них, которые являются четными.’ |
Wordwrap |
True |
|
Label2 |
Caption |
‘Введите три числа и нажмите кнопку “Вычислить” ‘ |
Edit1 |
Text |
‘’ |
Edit2 |
Text |
‘’ |
Edit3 |
Text |
‘’ |
Button1 |
Caption |
‘Вычислить’ |
Button2 |
Caption |
‘Главное меню’ |
Enabled |
false |
Программный код
Объект |
Событийно – управляемая процедура |
Edit1 |
procedure TForm5.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in['0'..'9', #13,#8]) then begin ShowMessage(Необходимо вводить только натуральные числа для корректной работы программы'); key:=#0; end; end; |
Edit2 |
procedure TForm5.Edit2KeyPress(Sender: TObject; var Key: Char); begin if not (key in['0'..'9', #13,#8]) then begin ShowMessage(Необходимо вводить только натуральные числа для корректной работы программы'); key:=#0; end; end; |
Edit3 |
procedure TForm5.Edit3KeyPress(Sender: TObject; var Key: Char); begin if not (key in['0'..'9', #13,#8]) then begin ShowMessage(Необходимо вводить только натуральные числа для корректной работы программы'); key:=#0; end; end; |
Button1 |
procedure TForm5.Button1Click(Sender: TObject); begin label6.Caption:='Четные числа: '; if StrToInt(edit1.Text) mod 2=0 then label6.Caption:=label6.Caption+ edit1.Text+' '; if StrToInt(edit2.Text) mod 2=0 then label6.Caption:=label6.Caption+ edit2.Text+' '; if StrToInt(edit3.Text) mod 2=0 then label6.Caption:=label6.Caption+ edit3.Text+' '; button2.Enabled:=true; end; |
Button2 |
procedure TForm5.Button2Click(Sender: TObject); begin form5.Hide; form2.show; end; |