Варианты задания 4

1.

2.

3.

4.

5.

Рекомендуемый вид формы

Простейшие программы. Оператор присваивания. Целочисленная арифметика.

Вычислить:

1. a = 15 div (16 mod 7) = ?

2. b =34 mod a * 5 – 29 mod 5 * 2 = ?

3. c=4 * 5 div (3 mod 2) = ?

Пример. Определить цифры трёхзначного числа.

Число X = x₃100 + x₂10 + x₁.

Операции

Div - целочисленное деление

Mod – остаток от целочисленного деления

Пусть X=354.

Тогда

x₁ = 354 mod 10 = 4

x₂ = (354 div 10) mod 10 = 35 mod 10 = 5

x₃ = 354 div 100 = 3

var

Form1: TForm1;

x:word;

implementation

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if not (Key in ['0'..'9']) then Key:=#0;

end;

procedure TForm1.Edit1Exit(Sender: TObject);

begin

x:=StrToInt(Edit1.Text);

if length(Edit1.Text)>3 then

begin

ShowMessage('Ошибка! Введите трёхзначное число');

Edit1.SetFocus

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var x1,x2,x3:byte;

begin

x1:=x mod 10; //единицы

Edit4.Text:=IntToStr(x1);

x2:=(x div 10) mod 10; //десятки

Edit3.Text:=IntToStr(x2);

x3:=x div 100; //сотни

Edit2.Text:=IntToStr(x3);

end;

end.

Контрольные вопросы

1. Опишите этапы создания приложения в среде программирования Delphi.

2. Опишите основные элементы среды разработки IDE (Integrated Development Environment): Главное окно, Инспектор объектов, Конструктор форм, Редактор кода.

3. Какие файлы составляют проект Delphi?

4. Для чего предназначен объект TApplication? Назовите основные свойства и методы этого объекта.

5. Опишите общую структуру модуля в Delphi.

6. Опишите структура главного файла проекта.

7. Дайте определения понятиям: объект, событие, свойство, метод.

8. Как изменить значение свойства?

9. Перечислите события мыши и клавиатуры.

10. Что такое обработчик события? Как присоединить код обработчика к объекту?

11. Для чего предназначены компоненты: TEdit, TLabel,TPanel, TButton? На какой странице в палитре компонентов они находятся?

12. С помощью какого свойства можно изменить надпись на компоненте?

13. Для чего используются функции StrToFloat, StrToInt, FloatToStr, IntToStr?

14. Запишите оператор, отсеивающий все символы, кроме цифр и знака “минус”.

15. Когда происходит событие OnClick?

16. Когда происходит событие OnKeyPress?

17. Как обработчик события OnKeyPress для компонента Edit1 добавить компоненту Edit2?

18. Как сохранить проект?