Разделы презентаций
- Разное
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
LAZARUS Основы объектно-ориентированного программирования в среде
Содержание
- 1. LAZARUS Основы объектно-ориентированного программирования в среде
- 2. Повторение Генератор случайных чиселramdomize;chislo:=random(100);
- 3. Повторение Оператор выбора в PascalCase chislo Of 1: write(‘’); 2: write(‘’);…end;
- 4. Повторение Проверка условия в PascalЕСЛИ число
- 5. Сложные условия в в PascalIf (a=1) AND (b=1) Then …If (a=1) OR (b=1) Then …
- 6. Игра «777» в Lazarusimages100
- 7. Генерировать три случайных числа: a, b, c
- 8. Не забыть объявить переменные!!!a, b, c –
- 9. Игра «777» в Lazarusprocedure TForm1.FormCreate(Sender: TObject);begin sum:=0; edit1.Text:='0';end;var Form1: TForm1; sum: integer;
- 10. Игра «777» в Lazarusprocedure TForm1.Button1Click(Sender: TObject);var a,
- 11. Игра «777» в Lazarusprocedure TForm1.Button1Click(Sender: TObject);var a,
- 12. Скачать презентанцию
Повторение Генератор случайных чиселramdomize;chislo:=random(100);
Слайды и текст этой презентации
Слайд 4Повторение
Проверка условия в Pascal
ЕСЛИ число = 1 ТОГДА
печатай «Орел»
ИНАЧЕ печатай «Решка»;If chislo = 1 Then write (‘Орел’)
Else write (‘Решка’);
Слайд 7Генерировать три случайных числа: a, b, c от 1 до
10
В объекты Image1, Image2, Image3 загрузить соответствующие числам a, b,
c картинки. Использовать оператор выбора.Проверить условия для формирования sum:
Если все три картинки одинаковы …
Иначе если какие-то две одинаковы…
Если три картинки «черные»…
Иначе если две какие-то картинки «черные»…
Иначе если какая-то картинка «черная»…
Игра «777» в Lazarus
Слайд 8Не забыть объявить переменные!!!
a, b, c – локальные
Sum – глобальная
Переменную
Sum необходимо инициализировать (начальное значение 0)
Инициализация происходит при событии: Создание
формыprocedure TForm1.FormCreate(Sender: TObject);
Игра «777» в Lazarus
Слайд 9Игра «777» в Lazarus
procedure TForm1.FormCreate(Sender: TObject);
begin
sum:=0;
edit1.Text:='0';
end;
var
Form1: TForm1;
sum: integer;
Слайд 10Игра «777» в Lazarus
procedure TForm1.Button1Click(Sender: TObject);
var a, b, c: integer;
begin
randomize;
a:=random(10)+1; b:= random(10)+1; c:= random(10)+1;
case a of
1: Image1.Picture.LoadfromFile('images/1.jpg');2: Image1.Picture.LoadfromFile('images/2.jpg');
3: Image1.Picture.LoadfromFile('images/3.jpg');
4: Image1.Picture.LoadfromFile('images/4.jpg');
5: Image1.Picture.LoadfromFile('images/5.jpg');
6: Image1.Picture.LoadfromFile('images/6.jpg');
7: Image1.Picture.LoadfromFile('images/7.jpg');
8: Image1.Picture.LoadfromFile('images/8.jpg');
9: Image1.Picture.LoadfromFile('images/9.jpg');
10: Image1.Picture.LoadfromFile('images/10.jpg');
end;
…
end;
Слайд 11Игра «777» в Lazarus
procedure TForm1.Button1Click(Sender: TObject);
var a, b, c: integer;
Begin
…
If
(a=b) and (b=c) then sum:=sum+300
else If (a=b) or
(b=c) or (a=c) then sum:=sum+100;If (a=10) and (b=10) and (c=10) Then sum:=sum-500
else If ((a=10) and (b=10)) or ((a=10)and(c=10))or ((b=10)and(c=10)) Then sum:=sum-200
else If (a=10) or (b=10) or (c=10) Then sum:=sum-100;
edit1.Text:=IntToStr(sum);
end;
