Разделы презентаций
- Разное
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
LAZARUS Основы объектно-ориентированного программирования в среде
Содержание
- 1. LAZARUS Основы объектно-ориентированного программирования в среде
- 2. Повторение
- 3. Генератор случайных чиселchislo:=random(100);Случайные числа в диапазоне от
- 4. Генератор случайных чиселchislo:=random(100);Случайные числа в диапазоне от
- 5. Проверка условия в PascalЕСЛИ число = 1
- 6. Игра «Орел – решка»Идея: Компьютер генерирует случайное
- 7. Игра «Орел – решка» в LazarusНовый объект: Timage (вкладка Additional)image1.Picture.loadfromfile(‘1.gif’);
- 8. Игра «Орел – решка» в Lazarusprocedure TForm1.Button1Click(Sender:
- 9. Игра «Орел – решка» в Lazarusprocedure TForm1.Button1Click(Sender:
- 10. Скачать презентанцию
Повторение
Слайды и текст этой презентации
Слайд 3Генератор случайных чисел
chislo:=random(100);
Случайные числа в диапазоне от 0 до 99
ramdomize;
Как
сделать, чтобы число было или 0 или 1?
Слайд 4Генератор случайных чисел
chislo:=random(100);
Случайные числа в диапазоне от 0 до 99
ramdomize;
Как
сделать, чтобы число было или 0 или 1?
chislo:=random(2);
Слайд 5Проверка условия в Pascal
ЕСЛИ число = 1 ТОГДА
печатай «Орел»
ИНАЧЕ печатай «Решка»;if chislo = 1 then
write (‘Орел’)
else write (‘Решка’);
Слайд 6Игра «Орел – решка»
Идея: Компьютер генерирует случайное число 1 или
0 (как бы «подбрасывает монетку»).
Пользователь вводит с клавиатуры число 1
или 0.Если числа совпали (пользователь угадал), то победа за пользователем, иначе победа за компьютером.
Слайд 7Игра «Орел – решка» в Lazarus
Новый объект: Timage (вкладка Additional)
image1.Picture.loadfromfile(‘1.gif’);
Слайд 8Игра «Орел – решка» в Lazarus
procedure TForm1.Button1Click(Sender: TObject);
var komp:integer;
begin
randomize;
komp:=random(2); edit1.text:=IntToStr(komp);
if komp=1 then image1.Picture.loadfromfile('1.gif');
if komp=0 then image1.Picture.loadfromfile('2.gif');
end;
procedure TForm1.Edit2Change(Sender: TObject);
var polz: integer;
begin
if edit2.text<> '' then polz:=StrToInt(Edit2.Text);
if polz=1 then image2.Picture.loadfromfile('1.gif');
if polz=0 then image2.Picture.loadfromfile('2.gif');
end;
Слайд 9Игра «Орел – решка» в Lazarus
procedure TForm1.Button1Click(Sender: TObject);
var komp:integer;
begin
randomize;
edit3.text:='';
komp:=random(2); edit1.text:=IntToStr(komp);
if komp=1 then image1.Picture.loadfromfile('1.gif');
if komp=0 then
image1.Picture.loadfromfile('2.gif');if edit2.text=edit1.text then edit3.text:='Вы угадали!'
else edit3.text:='К сожалению, Вы не угадали!';
edit2.text:='';
end;
