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

Повторение

Генератор случайных чисел

ramdomize;
chislo:=random(100);

Повторение

Оператор выбора в Pascal

Case chislo Of
1: write(‘’);
2: write(‘’);
…
end;

Повторение

Проверка условия в Pascal

ЕСЛИ число = 1 ТОГДА печатай «Орел»

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

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

If (a=1)

Игра «777» в Lazarus

images

100

Генерировать три случайных числа: a, b, c от 1 до 10
В

Не забыть объявить переменные!!!
a, b, c – локальные
Sum – глобальная
Переменную Sum

Игра «777» в Lazarus

procedure TForm1.FormCreate(Sender: TObject);
begin
sum:=0;
edit1.Text:='0';
end;

var
Form1: TForm1;
sum:

Игра «777» в Lazarus

procedure TForm1.Button1Click(Sender: TObject);
var a, b, c: integer;
begin
randomize;