Программирование

1.Введение

  Компьютерное  программирование часто рассматривается  как вид искусства. Однако многие  институты преподают программирование  как науку. Исследовательские  учреждения давно ищут пути  увеличения эффективности труда  и уровня профессионализма разработчиков программ, т.е. интеллектуальной собственности, которая имеет свой особый статус и свое правовое поле.

  Существуют  различные подходы к программированию. Одним из них является структурное  программирование, представляющее  попытку превратить искусство  программирования в обычную науку. Основной принцип структурного программирования заключается в создании некоторых аналитических  моделей решаемой задачи перед началом кодирования. Двумя наиболее используемыми старыми моделями являются разработки «сверху вниз» и «снизу вверх». 

  Разработка  «сверху вниз» означает, что программа  создается исходя из принципа  первоочередного решения главных  задач. Новые более детальные  уровни разрабатывают по мере  успешной реализации предыдущих  более высоких уровней. Идея  разработки «снизу вверх» заключается в том, что все хорошие программы состоят из хорошо отлаженных процедур и функций.

  В настоящее  время значительным сдвигом на  пути разработки технологий программирования  является объектно-ориентированное  программирование(ООП).

 Delphi – это могучая среда разработки самых разнообразных программных приложений, являющаяся одновременно и редактором и компилятором. Данная среда ориентирована на работу, прежде всего, в ОС Windows. Однако с помощью Delphi можно разрабатывать приложения для Linux и строить кроссплатформенные приложения Windows-Linux.

  В основе  любой программы на Delphi лежит язык Object Pascal – язык программирования высокого уровня, позволяющий использовать такие объектно-ориентированные языковые средства, как динамические массивы, перегрузка методов, параметры, заданные по умолчанию, файловые потоки, многопоточные приложения и многое другое.

  В Delphi разрабатываются приложения, работающие под управлением ОС Windows. Эти приложения используют библиотеку базовых классов объектов (библиотеку компонентов). Таким образом, приложение представляет собой совокупность объектов, которыми являются само приложение и все его компоненты: окна, кнопки, меню и т.д. Объектное приложение разрабатывается как программа-проект, которая взаимодействует с другими объектами. Это взаимодействие, как положено в объектно-ориентированном мире, выражается в сообщениях, посылаемых друг другу объектами. Идея обмена сообщениями легла в основу операционной системы Windows, где объекты-окна посылают и получают сообщения.

  Основные  принципы и понятия объектно-ориентированного  программирования: класс, поля, методы, свойства, инкапсуляция, объект, наследование, полиморфизм.

2.Техническое задание

2.1. Задача 1

2.1.1. Условие задачи

  Написать программу, которая пересчитывает массу из фунтов в килограммы (1 фунт=409,5 грамм).

2.1.2. Таблица реквизитов

3. Требования к программе

  Программа пересчитывает массу из фунтов в килограммы.

4. Форма программы

          Label2 

            Label1  Edit1 

         

            Label3 

 BitBtn1 
 

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

unit Unit1; 

interface 

uses

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

  Dialogs, StdCtrls, Buttons; 

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Edit1: TEdit;

    BitBtn1: TBitBtn;

    Label3: TLabel;

    Label2: TLabel;

    procedure BitBtn1Click(Sender: TObject);

    procedure Edit1KeyPress(Sender: TObject; var Key: Char);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.BitBtn1Click(Sender: TObject);

var

   funt: real;

   kg: real;

begin

   if Length(Edit1.Text) = 0 then

   begin

        ShowMessage('Надо ввести вес.');

        exit;

   end; 

   funt := StrToFloat(Edit1.Text);

   kg := funt * 0.4995;

   Label3.Caption := FloatToStrF(funt,ffGeneral,5,2) + ' ф. - это ' +

                     FloatToStrF(kg,ffGeneral,5,2) + ' кг';

end; 

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

    case Key of

        '0'..'9', #8: ;

     '.',',':

             begin

                Key := DecimalSeparator;

                if pos(DecimalSeparator,Edit1.Text) <> 0

                   then Key := Char(0);

             end;

         else Key := Char(0);

     end;

end; 

end.

6. Руководство пользователя

  Запустите  программу, введите массу в  фунтах и нажмите «ОК».После  нажатия кнопки программа выдаст  массу в килограммах. 

 
 
 
 
 
 
 
 
 
 
 
 

2.   Задача 2

2.2.1. Условие задачи

  Написать  программу, которая, вычисляет  силу тока электрической цепи. Программа должна быть спроектирована таким образом, чтобы пользователь ввел величину сопротивления.

2.2.2. Таблица реквизитов

2.2.3. Требования к программе

  Вычисление  силы тока электрической цепи.

4. Форма программы

 

            Label1

 Edit1

     Label2

 Edit2

     Label3

 

   BitBtn1 
 
 
 
 

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

unit Unit1; 

interface 

uses

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

  Dialogs, StdCtrls, Buttons; 

type

  TForm1 = class(TForm)

    Edit1: TEdit;

    Edit2: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    BitBtn1: TBitBtn;

    Label3: TLabel;

    Label4: TLabel;

    procedure BitBtn1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.BitBtn1Click(Sender: TObject);

Var

a,b,c:real;

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

c:=a/b;

Label4.Caption:=FloatToStr(c)+' A';

end; 

end.

6. Руководство пользователя

  Запустите программу, введите значения напряжения и сопротивления и нажмите  «Вычислить». Кнопка «Вычислить» доступна лишь тогда, когда введены значения. После нажатия кнопки программа выдаст значение силы тока.

  
 
 
 
 
 
 
 
 
 
 
 
 

3. Задача 3
1. Условие задачи

  Напишите  программу Калькулятор, выполняющий  сложение и вычитание.

2. Таблица реквизитов

3. Требования  к программе

  Программа  должна выполнять сложение, вычитание и другие арифметические операции.

4. Форма программы

    
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

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

unit Unit11; 

interface 

uses

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

  Dialogs, StdCtrls; 

type

  TForm1 = class(TForm)

    Edit1: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    Button6: TButton;

    Button7: TButton;

    Button8: TButton;

    Button9: TButton;

    Button10: TButton;

    Button11: TButton;

    Button12: TButton;

    Button13: TButton;

    Button14: TButton;

    Button15: TButton;

    Button16: TButton;

    Button17: TButton;

    Button19: TButton;

    Button20: TButton;

    Button21: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button7Click(Sender: TObject);

    procedure Button8Click(Sender: TObject);

    procedure Button9Click(Sender: TObject);

    procedure Button10Click(Sender: TObject);

    procedure Button16Click(Sender: TObject);

    procedure Button20Click(Sender: TObject);

    procedure Button21Click(Sender: TObject);

    procedure Button15Click(Sender: TObject);

    procedure Button14Click(Sender: TObject);

    procedure Button13Click(Sender: TObject);