Delphi dasturlash muhitida sodda hisoblash ishlarini bajarish.

Sana ______________ Fan Informatika va axborot texnologiyalari

Mavzu: Delphi dasturlash muhitida sodda hisoblash ishlarini bajarish.

Dars maqsadlari: O'qituvchilarga Delphi dasturlash muhitida sodda hisoblash ishlarini bajarish foydalanish haqida ma'lumot berish.

Ta'limiy maqsad: O'qitvchilarga Delphi dasturlash muhitida sodda hisoblash ishlarini bajarish foydalanish bo'yicha bilim berish va ko'nikma shakllantirish.

Rivojlantiruvchi maqsad: O'qitvchilarga Delphi dasturlash muhitida sodda hisoblash ishlarini bajarish haqidagi bilim va tasavvurlarini kengaytirish.

Dars turi: Yangi materialni o’rganuvchi dars

Darsda foydalaniladigan jihozlar: Elektron resurslar, darslik, plakatlar; tarqatma materiallar.kompyuterlar va ulani qurilmalari, ko’rgazmali qurollar va boshqa manbalar.

Darsda qo'llaniladigan metodlar: Ma'ruza va amaliyotning uyg'unligi, Aralash, amaliy, muammoli-izlanish, induktiv va reproduktiv

DARSNING BORISHI:

I-BOSQICH: Darsni tashkil qilish jarayoni va ajratilgan vaqt 3 min

O'qitvchilar bilan salomlashish, yo'qlama qilish, diqqatini jalb qilish.

II-BOSQICH: O'qitvchilarga Delphi dasurlash tilini haqidagi bilimlarini o’rganish ular bilan qisqacha savol - javob, tushunmagan savollariga javob berish va taxlil qilish ajratilgan vaqt 10 min

III-BOSQICH: Yangi mavzu mazmunini tushuntirish jarayoni va ajratilgan vaqt 20 min

Delphi dasturlash muhitida sodda hisoblash ishlarini bajarish

Chiziqli jarayonlarga doir dasturlar tuzish “Delphi” komponentlari bilan

bog’lash.

Biror bir jarayon bajarilish vaqtida, jarayonning biror bir qismi

takrorlanmasdan, biror bir shartga ko’ra bajarilish yo’nalishi o’zgarmasdan ro’y bersa

bunday jarayonlar chiziqli jarayonlar deyiladi. Chiziqli jarayonlarni kompyuter

tushinadigan tilda yozilgan algortmi chiziqli dasturlar deyiladi.

1. Quyida ikki sonni qo’shish, ayirish, ko’paytirish, bo’lish vazifasini bajaruvchi

dastur bilan tanishamiz.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Buttons, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Edit1: TEdit;

Edit2: TEdit;

BitBtn1: TBitBtn;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn3Click(Sender: TObject);

var a,b,c :real;

begin

// Qo’shish

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

c:=a+b;

label4.Caption:=FloatToStr(c);

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

var a,b,c: real;

begin

// Ayirish

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

c:=a-b;

label5.Caption:=FloatToStr(c);

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);

var a,b,c: real;

begin

// Ko’paytirish

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

c:=a*b;

label6.Caption:=FloatToStr(c);

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

var a,b,c :real;

begin

// Bo’lish

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

c:=a/b;

label7.Caption:=FloatToStr(c);

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

// Майдонни тозалаш

Edit1.Text:='';

Edit2.Text:='';

label4.Caption:='';

label5.Caption:='';

label6.Caption:='';

label7.Caption:='';

end;

end.

IV-BOSQICH: Yangi mavzuni mustahkamlash, amaliy va mustaqil ishlar bajarish ajratilgan vaqt 7 min Ko’rgazmali qurollar yordamida o’qituvuvchilarga savollar berib mavzuni mustahkamlayman.

V-BOSQICH: Darsga yakun yasash, darsni baholash metodlari va ajratilgan vaqt 2 min

VI-BOSQICH: Uyga vazifa berish va ajratilgan vaqt 3 min

Mavzuga oid mashqlar savol va topshiriqlarni bajarib kelish.