Генератор случайных чисел. Повторение. Lazarus

1.

LAZARUS

2. Повторение

Генератор случайных чисел
ramdomize;
chislo:=random(100);

3. Повторение

Оператор выбора в Pascal
Case chislo Of
1: write(‘’);
2: write(‘’);
…
end;

4. Повторение

Проверка условия в Pascal
ЕСЛИ число = 1 ТОГДА печатай «Орел»
ИНАЧЕ печатай «Решка»;
If chislo = 1 Then write (‘Орел’)
Else write (‘Решка’);

5. Сложные условия в в Pascal

If (a=1) AND (b=1) Then …
If (a=1) OR (b=1) Then …

6. Игра «777» в Lazarus

images
100

7.

Игра «777» в Lazarus
1. Генерировать три случайных числа: a, b, c от 1
до 10
2. В объекты Image1, Image2, Image3 загрузить
соответствующие числам a, b, c картинки.
Использовать оператор выбора.
3. Проверить условия для формирования sum:
• Если все три картинки одинаковы …
• Иначе если какие-то две одинаковы…
• Если три картинки «черные»…
• Иначе если две какие-то картинки
«черные»…
• Иначе если какая-то картинка «черная»…

8.

Игра «777» в Lazarus
• Не забыть объявить переменные!!!
• a, b, c – локальные
• Sum – глобальная
• Переменную Sum необходимо
инициализировать (начальное значение 0)
• Инициализация происходит при событии:
Создание формы
procedure TForm1.FormCreate(Sender: TObject);

9.

Игра «777» в Lazarus
var
Form1: TForm1;
sum: integer;
procedure TForm1.FormCreate(Sender:
TObject);
begin
sum:=0;
edit1.Text:='0';
end;

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
If
(a=b) and (b=c) then sum:=sum+300
else If (a=b) or (b=c) or (a=c)
then sum:=sum+100;
(a=10) and
Then
(b=10)
else If ((a=10) and
((b=10)and(c=10))
and
(c=10)
sum:=sum-500
(b=10)) or ((a=10)and(c=10))or
Then sum:=sum-200
else If (a=10) or (b=10) or (c=10) Then sum:=sum-100;
edit1.Text:=IntToStr(sum);
end;