Размещено на http://www.allbest.ru/

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ

Коломенский институт (филиал)

Федерального государственного бюджетного образовательного учреждения высшего профессионального образования

МосковскОГО государственнОГО машиностроительНОГО университетА (МАМИ)

Контрольная работа

по дисциплине «Программирование и основы алгоритмизации»

Шеломанова О.И.



Задание

Составить блок-схему алгоритма и программу на языке Object Pascal для расчета и печати 5 таблиц значений функции при указанных x и a = 1,1; 1,2; 1,3; 1,4; 1,5. Организовать вывод графика функции (с использованием графических компонент Delphi) по любой из созданных таблиц. x [0.0;2.0] с шагом 0.1.

С помощью подпрограммы Function сменить знаки у всех элементов массивов {X_i}_N и {Y_i}_M , модули которых > 1.

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

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



Введение

Система программирования Delphi фирмы Enterprise (Borland) предоставляет наиболее широкие возможности для программирования приложений ОС Windows.

Delphi - это продукт Borland International для быстрого создания приложений. Процесс создания интерфейса будущей программы напоминает забаву с игровым компьютерным конструктором. Поэтому RAD-среды еще называют визуальными средами разработки: какими мы видим рабочие и диалоговые окна программы при проектировании, такими они и будут, когда программа заработает.

Высокопроизводительный инструмент визуального построения приложений включает в себя настоящий компилятор кода и предоставляет средства визуального программирования, несколько похожие на те, что можно обнаружить в Microsoft Visual Basic (она не является RAD-системой) или в других инструментах визуального проектирования. В основе Delphi лежит язык Object Pascal, который является расширением объектно-ориентированного языка Pascal. В Delphi также входят локальный SQL-сервер, генераторы отчетов, библиотеки визуальных компонентов, и прочее, необходимое для того, чтобы чувствовать себя совершенно уверенным при профессиональной разработке информационных систем или просто программ для Windows-среды.

Прежде всего Delphi предназначен для профессиональных разработчиков, желающих очень быстро разрабатывать приложения в архитектуре клиент-сервер. Delphi производит небольшие по размерам высокоэффективные исполняемые модули (.exe и .dll).

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

Преимущества Delphi по сравнению с аналогичными программными продуктами:

· быстрота разработки приложения (RAD);

· высокая производительность разработанного приложения;

· низкие требования разработанного приложения к ресурсам компьютера;

· наращиваемость за счет встраивания новых компонент и инструментов в среду Delphi;

· возможность разработки новых компонентов и инструментов собственными средствами Delphi (существующие компоненты и инструменты доступны в исходных кодах);

· удачная проработка иерархии объектов.

Система программирования Delphi рассчитана на программирование различных приложений и предоставляет большое количество компонентов для этого. К тому же работодателей интересует, прежде всего, скорость и качество создания программ, а эти характеристики может обеспечить только среда визуального проектирования, способная взять на себя значительные объемы рутинной работы по подготовке приложений, а также согласовать деятельность группы постановщиков, кодировщиков, тестеров и технических писателей. Возможности Delphi полностью отвечают подобным требованиям и подходят для создания систем любой сложности.

Основным конкурентом Borland Delphi 7 является её родной брат - RAD-среда Borland C++ Builder, технология работы с которой полностью совпадает с технологией, принятой в Delphi 7. Только в Delphi программный код пишется на языке программирования Паскаль, точнее на его объектно-ориентированной версии Object Pascal, а не на языке C++.

Также существует среда программирования Lazarus, относительно молодая, внешне похожая на Delphi. Данный продукт - IDE для компилятора Free Pascal Compiler. Распространяется бесплатно по GNU General Public License (или просто GPL), но Lazarus ещё не является средой программирования профессионального уровня, для него разработано мало компонентов, при стандартных настройках. Также размеры разрабатываемых приложений тоже оставляют желать лучшего. В первую очередь это связано с особенностью компилятора Free Pascal, который не дружит с динамическими библиотеками. А потому должен включать в себя все используемые пакеты. Тоже самое касается и собственно среды разработки, которую вы должны пересобрать каждый раз при добавлении нового пакета.

Компиляция проекта в IDE Lazarus, как и во всех средах разработки подразделяется на два этапа: компиляция и сборка. Хотя они и реализованы в виде вызова компилятора Free Pascal отдельным процессом, и мы не можем построчно (как в Delphi) наблюдать за компиляцией проекта.

Однако, можно сказать, что в скором времени у Delphi появится достойный конкурент из мира Open Source, работа над которым идет на всех парах. И, судя по функциональности первой версии, релиз этого проекта сможет удовлетворить пытливые умы даже самых искушенных программистов, ну а пока, этого не случилось, остановим свой выбор на Delphi.



Задание 1

Составить блок-схему алгоритма и программу на языке Object Pascal для расчёта и печати 5 таблиц значений функции при указанных x и a = 1.1; 1.2; 1.3; 1.4; 1.5. Организовать вывод графика функции (с использованием графических компонент Delphi) по любой из созданных таблиц.

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

при x, изменяющемся от 0.0 до 3.2, с шагом 0.2

Исходный код программы

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart;

type

TForm1 = class(TForm)

Label2: TLabel;

ComboBox1: TComboBox;

Label1: TLabel;

Edit1: TEdit;

Label3: TLabel;

Edit2: TEdit;

Label4: TLabel;

Edit3: TEdit;

Button1: TButton;

Chart1: TChart;

Memo1: TMemo;

Series1: TFastLineSeries;

Button2: TButton;

SaveDialog1: TSaveDialog;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Math;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var a, b, x, y, h: Extended;

begin

a := (ComboBox1.ItemIndex + 1) / 10 + 1;

x := StrToFloat(Edit1.Text);

b := StrToFloat(Edit2.Text);

h := StrToFloat(Edit3.Text);

Chart1.Series[0].Clear;

Memo1.Lines.Clear;

Memo1.Lines.Add('| x | y |');

Memo1.Lines.Add('+-------+-------+');

while x <= b do

begin

if x <= 1.57 then

y := (a * x - 1) * (a * x - 1) * (a * x - 1)

else

y := (a * Sin(a * x) - 1) / (a * x * a * x);

Memo1.Lines.Add(Format('| %5.2f ', [x]) + Format('| %5.2f |', [y]));

Memo1.Lines.Add('+-------+-------+');

Chart1.Series[0].AddXY(x, y, '', clRed);

x := x + h;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

If SaveDialog1.Execute then

Memo1.Lines.SaveToFile(SaveDialog1.FileName);

end.

Результат работы



Блок схема

Задание 2

Даны одномерные массивы чисел {X_i}_N и {Y_i}_M.

Написать:

1. Программу с использованием подпрограммы - Function.

2. Оформить подпрограммы в модуль (Unit).

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

Сменить знаки у всех элементов массивов X и Y, модули которых > 1.

Исходный код программы

unit Unit2;

interface

function RetVal(x: Double): Double;

implementation

function RetVal(x: Double): Double;

begin

if ABS(x) > 1 then

RetVal := -x

else

RetVal := x;

end;

end.

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, Spin, Grids;

type

TForm1 = class(TForm)

StringGrid1: TStringGrid;

Label1: TLabel;

SpinEdit1: TSpinEdit;

Label2: TLabel;

Button1: TButton;

procedure SpinEdit1Change(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.SpinEdit1Change(Sender: TObject);

begin

StringGrid1.ColCount := SpinEdit1.Value;

end;

procedure TForm1.Button1Click(Sender: TObject);

var i: Integer;

begin

for i := 0 to SpinEdit1.Value - 1 do

StringGrid1.Cells[i, 0] := FloatToStr(RetVal(StrToFloat(StringGrid1.Cells[i, 0])));

end.

Результат работы



Блок схема

Задание 3

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

Отредактировать заданное предложение, заменяя многоточия точкой.

Исходный код программы

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Memo1: TMemo;

Label1: 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 s, sn: String;

i: Integer;

begin

s := Memo1.Text;

i := 1;

sn := '';

While i <= Length(s) do

begin

sn := sn + s[i];

if s[i] <> '.' then

i := i + 1

else

while ((i <= Length(s)) and (s[i] = '.')) do

i := i + 1;

end;

Memo1.Text := sn;

end;

end.

Результат работы



Блок схема



Задание 4

Написать программу для создания базы данных с помощью языка Object Pascal. В качестве ответа на поставленную задачу должна быть распечатка файла в виде таблицы с фиксированными длинами полей.

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

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

Исходный код программы

алгоритм приложение успеваемость студент

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, Grids;

type

TForm1 = class(TForm)

StringGrid1: TStringGrid;

Button1: TButton;

Button2: TButton;

Memo1: TMemo;

OpenDialog1: TOpenDialog;

procedure Button1Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

type t_row = array[1..10] of String;

t_arr = array[1..10] of t_row;

procedure TForm1.Button1Click(Sender: TObject);

var f: TextFile;

s, sb: String;

i, j, k: Integer;

begin

if OpenDialog1.Execute then

begin

AssignFile(f, OpenDialog1.FileName);

Reset(f);

k := 2;

while not EOF(f) do

begin

Readln(f, s);

StringGrid1.RowCount := k;

sb := '';

StringGrid1.Cells[0, k - 1] := 'Ст.№' + IntToStr(k - 1);

StringGrid1.Cells[1, k - 1] := '';

j := 1;

for i := 1 to Length(s) do

if s[i] <> ' ' then

StringGrid1.Cells[j, k - 1] := StringGrid1.Cells[j, k - 1] + s[i]

else

begin

j := j + 1;

StringGrid1.Cells[j, k - 1] := '';

end;

k := k + 1;

end;

CloseFile(f);

end;

end;

procedure TForm1.FormShow(Sender: TObject);

begin

StringGrid1.Cells[1, 0] := 'Группа';

StringGrid1.Cells[2, 0] := 'Фамилия';

StringGrid1.Cells[3, 0] := 'Матем.';

StringGrid1.Cells[4, 0] := 'Физик.';

StringGrid1.Cells[5, 0] := 'Химия';

end;

procedure TForm1.Button2Click(Sender: TObject);

var gr: t_arr;

r: t_row;

s: string;

i, j: integer;

begin

for i := 1 to StringGrid1.RowCount - 1 do

for j := 1 to StringGrid1.ColCount - 1 do

gr[i][j] := StringGrid1.Cells[j, i];

for i := 1 to StringGrid1.RowCount - 2 do

for j := i + 1 to StringGrid1.RowCount - 1 do

if gr[i][1] < gr[j][1] then

begin

r := gr[i];

gr[i] := gr[j];

gr[j] := r;

end;

s := '';

for i := 1 to StringGrid1.RowCount - 1 do

begin

if s <> gr[i][1] then

begin

s := gr[i][1];

Memo1.Lines.Add('Группа: ' + s);

end;

Memo1.Lines.Add(gr[i][2] + ' Ср. бл.:' + Format('%4.2f',[(StrToInt(gr[i][3])+StrToInt(gr[i][4])+StrToInt(gr[i][5]))/3]));

end.

Результат работы



Блок схема



Заключение

В процессе выполнения работы были решены контрольные задания курса «Программирование и основы алгоритмизации» по следующим разделам:

· программирование разветвляющихся и циклических структур;

· обработка элементов одномерного массива;

· программирование с использованием подпрограмм;

· организация модулей;

· обработка символов строк;

· организация и обработка файлов данных.

Были решены четыре задачи. Для каждой задачи написана, отлажена и протестирована программа.

В отчёт включены условия, блок-схемы алгоритмов, распечатки программ и результатов их выполнения.



Список используемых источников

1. Архангельский А.Я. Delphi 7. Справочное пособие. - М.: Бином-Пресс, 2003. - 1024 с.

2. Архангельский А.Я. Delphi 6. Справочное пособие. - М.: Бином, 2001. - 1024 с.

3. Баженова И.Ю. Самоучитель программиста. - М.: Кудиц-Образ, 2000. - 336с.

4. Бобровский С. Delphi 7: Учебный курс. - СПб.: Питер, 2004. - 736 с.

5. Фаронов В.В. Delphi. Программирование на языке высокого уровня: учеб. для вузов. - СПб.: Питер, 2004. - 640 с.

6. Фаронов В.В. Delphi 6. Учебный курс. - СПб.: Питер, 2001. - 512 с.

Размещено на Allbest.ru

...