число = 1 ТОГДА печатай «Орел»
ИНАЧЕ печатай «Решка»;if chislo = 1 then write (‘Орел’)
else write (‘Решка’);
Разделы презентаций
- Разное
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
LAZARUS Основы объектно-ориентированного программирования в среде
Содержание
- 1. LAZARUS Основы объектно-ориентированного программирования в среде
- 2. Повторение Генератор случайных чиселchislo:=random(100);ramdomize; Проверка
- 3. Вложенные ветвления в PascalЕСЛИ число = 1
- 4. Оператор выбора в PascalCase a of
- 5. Тренажер «Английский счет» в LazarusimagesoneПравильно, молодец!
- 6. Тренажер «Английский счет» в Lazarusprocedure TForm1.Button1Click(Sender: TObject);var
- 7. Тренажер «Английский счет» в Lazarus
- 8. Тренажер «Английский счет» в Lazarus
- 9. Тренажер «Английский счет» в Lazarusprocedure TForm1.Button2Click(Sender: TObject);begin if otvet=edit1.text then edit2.text:='Правильно, молодец!' else edit2.text:='Подумай еще!';end;
- 10. Скачать презентанцию
Повторение Генератор случайных чиселchislo:=random(100);ramdomize; Проверка условия в PascalЕСЛИ число = 1 ТОГДА печатай «Орел» ИНАЧЕ
Слайды и текст этой презентации
Слайд 2Повторение
Генератор случайных чисел
chislo:=random(100);
ramdomize;
Проверка условия в Pascal
ЕСЛИ
число = 1 ТОГДА печатай «Орел»
ИНАЧЕ печатай «Решка»;
Слайд 3Вложенные ветвления в Pascal
ЕСЛИ число = 1 ТОГДА печатай «Один»
ИНАЧЕ ЕСЛИ число = 2 ТОГДА печатай «Два»
ИНАЧЕ ЕСЛИ число = 3 ТОГДА печатай «Три»…
ИНАЧЕ печатай «Девять»;
If a = 1 Then write( ‘Один‘)
Else If a = 2 Then write( ‘Два‘)
Else If a = 3 Then write( ‘Три‘)
…
Else write( ‘Девять‘);
Слайд 4Оператор выбора в Pascal
Case a of
1: write(‘один');
2: write(‘два');
3: write(‘три');
4: write(‘четыре');
5:
write(‘пять');6: write(‘шесть');
7: write(‘семь');
8: write(‘восемь');
9: write(‘девять');
end;
Слайд 6Тренажер «Английский счет» в Lazarus
procedure TForm1.Button1Click(Sender: TObject);
var a: integer;
begin
randomize;
a:=random(9)+1;
edit2.text:=''; edit1.text:='';
case a of
1: begin Image1.Picture.LoadfromFile('images/1.jpg');
otvet:='one'; end;…
9: begin Image1.Picture.LoadfromFile('images/9.jpg'); otvet:='nine'; end;
end;
end;
Слайд 9Тренажер «Английский счет» в Lazarus
procedure TForm1.Button2Click(Sender: TObject);
begin
if otvet=edit1.text then
edit2.text:='Правильно, молодец!' else edit2.text:='Подумай еще!';
end;
