Презентация "Операторы div и mod (практика)" 8 класс

Скачать материал

Подписи к слайдам:

Операторы div и mod
(практика)

Автор: Голяков Николай Александрович
Школа №5 г. Дубна, МО
Сайт автора: http://оннаш.рф

Информатика 8-10 класс

Создаем новый проект:
добавляем 4 кнопки, одно поле ввода и 8 компонентов надписи;
Размещаем согласно картинки;
Подписываем форму и кнопки.

Добавляем событие создания формы, прописываем случайную генерацию.

procedure TForm1.FormCreate(Sender: TObject);
begin
//гарантирует случайность
Randomize;
end;

Добавляем событие нажатия кнопки «Случайное число», генерирует и записывает в окно ввода Edit1 двузначное число.

procedure TForm1.Button1Click(Sender: TObject);
begin
//Задаем случайное двузначное число
Edit1.Text:=inttostr(Random(89)+10);
end;

Добавляем событие нажатия кнопки «Определяем составные единицы», дробит число на единицы, используя операторы div и mod.

procedure TForm1.Button2Click(Sender: TObject);
begin
//десятки
Label1.Caption:=Inttostr(StrToInt(Edit1.Text) div 10);
//единицы
Label2.Caption:=Inttostr(StrToInt(Edit1.Text) mod 10);
end;

Добавляем событие нажатия кнопки «Арифметика», рассчитывающую сумму и выводящую результат в Label7.

procedure TForm1.Button3Click(Sender: TObject);
begin
//Сумма Label7.Caption:=Inttostr(StrToInt(Label1.Caption)+
StrToInt(Label2.Caption));
end;

Добавляем событие нажатия кнопки «Значение кратности», определяющую четность (не четность) случайного числа.

procedure TForm1.Button4Click(Sender: TObject);
begin
//определение четности
if (StrToInt(Edit1.Text) mod 2) = 0 then
Label8.Caption:='Четное' else
Label8.Caption:='Не четное';
end;

Рабочий пример.

Для закрепления материала перейдите на страничку
http://оннаш.рф/%d0%be%d0%bf%d0%b5%d1%80%d0%b0%d1%82%d0%be%d1%80%d1%8b-div-%d0%b8-mod/
где будет сгенерировано индивидуальное задание.

ВПЕРЕД

Информатика - еще материалы к урокам:

Copyright © 2013-2024 "Учителя.com" | Обратная связь: [email protected]