Главная страница | Контакты | Случайная страница Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Постановка задачи №1

Даны два не нулевых числа. Найти их сумму, разность, произведение и частное.

2.2 Описание компонентов

2.3 Блок-схема алгоритма

2.4 Листинг программы

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

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,s,d,p,v: real;

begin

a:=strtofloat(edit1.Text);

b:=strtofloat(edit2.Text);

s:=a+b; p:=a-b; v:=a*b; d:=a/b;

label1.Caption:=floattostr(s);

label2.Caption:=floattostr(p);

label3.Caption:=floattostr(d);

label4.Caption:=floattostr(v);

end;

end.

2.5 Контрольный пример

2.1 Постановка задачи №2

Дано четырехзначное число: проверить истиность

2.2 Описание компонентов

2.4 Листинг программы

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Edit1: TEdit;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var s,a:string;

begin

s:=edit1.Text;

a:=s[4]+s[3]+s[2]+s[1];

if a=s then (label1.Caption:='chitaetsa')else

(label1.Caption:='ne chitaetsa');

end;

end.

2.5 Контрольный пример

СПИСОК ЛИТЕРАТУРЫ

1. Учебник по языку программирования Delphi, авторы: Жаксыбаева Н.Н. и Баймухамбетова Ж.К.

2. Работа Exсelи Delphi:

http://delphiworld.narod.ru/baseexcel_books_sheets.html

3. Вставка excelв форму: http://www.sql.ru/forum/724955/programmno-vstavit-formulu-v-excel.

4. Работа с БД http://www.snkey.net/books/delphi/ch4-0.html.

5. Работа с БД http://www.cyberguru.ru/delphi/database-meyhods.html

6. Работа с inihttp://www.delphisources.ru/pages/faq/base/work_with_ini_files.html