Коллеги - педагогический журнал Казахстана

Учительские университеты

Главная » Статьи » В помощь учителю » Компьютер-бум
Разветвляющиеся алгоритмы. Практическая работа: Создание проекта с использованием разветвляющегося алгоритма.
Методическая разработка урока для 10 класса по программированию на Delphi.
Выполнена учителем информатики Коммунального учреждения Средняя школа №28» г. Семей Восточно-Казахстанской области Чернобук Нелли Владимировной

Тема: Разветвляющиеся алгоритмы.
Практическая работа: Создание проекта с использованием разветвляющегося алгоритма.
Цель работы:
• повторить понятие разветвляющегося алгоритма, с полной и неполной формами ветвления и операторы ветвления;
• научиться создавать проекты на Delphi , используя, операторы ветвления.

Постановка задачи: Составить программу, выполняющую деление двух чисел.




Рис 1.


Рис.2

Рис.3

План работы
1. Создайте новый проект.
2. Разместите на форме экземпляры компонентов (Рис.1).
3. Для всех компонентов установите свойства согласно приведённой ниже таблицы


Листинг программы
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var a,b:real;
begin
a:= StrToFloat(Edit1.Text);
b:= StrToFloat(Edit2.Text);
if b=0 then Label4.Caption:='Ошибка! На ноль делить нельзя!'
else Label4.Caption:=FloatToStr(a/b);
end;

end.

Задание для тренировки
Написать программу, которая сравнивает два, введённых в текстовые поля, числа. Примерный вид программы представлен на рис. 4.



Рис.4
Листинг программы
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Label3: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var a,b:Real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
if a>b then Label3.Caption:='БОЛЬШЕ' else Label3.Caption:='МЕНЬШЕ';
end;

end.
Категория: Компьютер-бум | Добавил: LVS (2012-02-14)
Просмотров: 1435 | Рейтинг: 0.0/0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Суббота, 2025-02-08, 1:32 AM
Приветствую Вас Гость

Форма входа

Категории раздела

Русский язык и литература [1611]
Школьный психолог [547]
История [783]
Опыт [554]
Научная кафедра [234]
Воспитание души [262]
Мастер-класс [251]
Семья и школа [201]
Компьютер-бум [271]
Английский язык [874]
Великие открытия [30]
Университет здоровья [142]
Математика [1278]
Химия [406]
Классному руководителю [701]
Биология [612]
Думаем, размышляем, спорим [113]
Казахский язык и литература [1894]
Краеведение [108]
Начальная школа [4177]
Беседы у самовара [26]
Мировая художественная культура [49]
Новые технологии в обучении [409]
Сельская школа [84]
Профильное обучение [89]
Демократизация и школа [34]
Физика [323]
Экология [198]
Дошколенок [1768]
Особые дети [330]
Общество семи муз [66]
Школа и искусство
Уроки музыки [668]
Авторские разработки учителя музыки СШ № 1 г. Алматы Арман Исабековой
География [494]
Мой Казахстан [248]
Школьный театр [84]
Внеклассные мероприятия [1275]
Начальная военная подготовка, гражданская оборона, основы безопасности жизнедеятельности [107]
ИЗО и черчение [233]
Физическая культура [591]
Немецкий язык [61]
Технология [321]
Самопознание [445]
Профессиональное образование [133]
Школьная библиотека [93]
Летний лагерь [26]
Дополнительное образование [70]
Педагогические программы [24]

Социальные закладк

Поиск

Друзья сайта

Академия сказочных наук

  • Сайт детских домов Казахстана

  • Школа-портал учителей Алматы

  • Театры Казахстана.kz

  • Три столицы в лицах: Верный, Алма-Ата, Алматы - персональный сайт Владимира Проскурина

    • Теги

    презентация Ирина Борисенко открытый урок информатика флипчарт животные новый год 9 класс 5 класс творчество Казахские пословицы проект конспект урока 6 класс физика язык класс педагогика стихи Казахстан математика урок праздник наурыз познание мира музыка доклад программа литература география природа сценарий семья воспитание классному руководителю осень игра казахский язык и литература викторина Начальная школа тест конкурс ИЗО внеклассная работа литературное чтение Русский язык 3 класс технология воспитательная работа сказка Здоровье Оксана 8 марта искусство независимость английский язык психология учитель 3 класс биология статья внеклассное мероприятие классный час ЕНТ выпускной школа 1 класс Русский язык ЕГЭ тесты химия начальные классы Дети экология Дошкольники любовь разработка урока казахский язык самопознание Английский родители br конспект спорт критическое мышление патриотизм дружба дошколенок История обучение тренинг разработка 7 класс физическая культура игры КВН занятие детский сад физкультура Абай коучинг

    Статистика

    Рейтинг@Mail.ru