Определение минимумов и максимумов

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

Министерство образования и науки Украины

Приазовский государственный технический университет

Кафедра информатики

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

по дисциплине

«Алгоритмические языки и программное обеспечение»

Выполнил:

ст. гр. И-09-ЭПП-2

Винниченко А.В.

Проверила:

Кривенко О.В.

Мариуполь, 2010

Содержание

Задание 1. Минимумы и максимумы

Задание 2. Матрицы

Задание 3. Строки

Задание 4. Составные типы данных в процедурах и функциях

Задание 5. Текстовые файлы

Задание 1. Минимумы и максимумы

Дано целое число N и набор из N чисел. Найти номер минимального элемента из данного набора.

Блок-схема

Текст программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls, Mask, ComCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, Series, Buttons;

type

TForm1 = class(TForm)

Label7: TLabel;

Label20: TLabel;

Label21: TLabel;

Label24: TLabel;

EditN: TEdit;

BitBtn1: TBitBtn;

BitBtn3: TBitBtn;

EditA: TEdit;

EditB: TEdit;

ListBox2: TListBox;

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Label5: TLabel;

ListBox1: TListBox;

procedure Button3Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

var D : array [1..100] of integer;

i,j, N, T1, T2, minI, Dmin : integer;

begin

randomize;

N:=strtoint(EditN.Text);

T1:=strtoint(editA.Text);

T2:=strtoint(editB.Text);

Dmin:=T2; minI:=0;

ListBox1.Clear; ListBox2.Clear;

for i:=1 to N do

begin

ListBox1.Items.Add(IntToStr(i));

D[i]:=T1+random(T2-T1+1);

ListBox2.Items.Add(IntToStr(D[i]));

if D[i]< Dmin then begin Dmin:=D[i]; minI:=i; end;

end;

Edit1.Text:=Format('D(%d) = %d',[minI,Dmin]);

end;

Результаты выполнения программы

Задание 2. Матрицы

Дана квадратная матрица A порядка M. Повернуть ее на угол 180° (при этом элемент A1,1 поменяется местами с AM,M, элемент A1,2 -- с AM,M-1 и т. д.). Вспомогательную матрицу не использовать.

Блок-схема задачи

Текст программы

unit Unit1;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls, ComCtrls, Grids, Buttons, math;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Label2: TLabel;

edM: TEdit;

StringGrid1: TStringGrid;

StringGrid2: TStringGrid;

Label1: TLabel;

Label3: TLabel;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

function LocalMax(i1,j1: integer): Boolean;

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

M,N: integer;

A: array [1..15,1..15] of integer;

implementation

{$R *.dfm}

function TForm1.LocalMax(i1,j1: integer): Boolean;

var i,j : integer;

begin

LocalMax:=True;

for i:=1 to M do for j:=1 to N do if (abs(i-i1)<=1) and (abs(j-j1)<=1) then

if A[i,j]>A[i1,j1] then begin LocalMax:=False; Exit; end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var i,j: integer;

begin

randomize;

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

begin StringGrid1.Cells[i,j]:=''; StringGrid2.Cells[i,j]:=''; end;

M:=strtointdef(edM.Text,15);

StringGrid1.RowCount:=M; StringGrid1.ColCount:=M;

StringGrid2.RowCount:=M; StringGrid2.ColCount:=M;

for i:=1 to M do for j:=1 to M do

begin

A[i,j]:=-100+random(201);

StringGrid1.Cells[j-1,i-1]:=IntToStr(A[i,j]);

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.Button3Click(Sender: TObject);

var i,j,t : integer;

begin

for i:=1 to M do

begin

for j:=1 to M do

begin

if i<j then begin t:=A[i,j]; A[i,j]:=A[M+1-i,M+1-j]; A[M+1-i,M+1-j]:=t; end;

StringGrid2.Cells[j-1,i-1]:=IntToStr(A[i,j]);

end;

if i<trunc(M/2) then begin t:=A[i,i]; A[i,i]:=A[M+1-i,M+1-i]; A[M+1-i,M+1-i]:=t; end;

StringGrid2.Cells[i-1,i-1]:=IntToStr(A[i,i]);

end;

end;

end.

Результаты выполнения программы

число матрица строка программа

Задание 3. Строки

Дана строка-предложение. Зашифровать ее, поместив вначале все символы, расположенные на четных позициях строки, а затем, в обратном порядке, все символы, расположенные на нечетных позициях (например, строка «Программа» превратится в «ргамамроП»).

Блок-схема задачи

Текст программы

unit Unit1;

interface

uses

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

Dialogs, Grids, StdCtrls, Mask, ComCtrls, ExtCtrls, TeeProcs, TeEngine,

Chart, Series, Buttons;

type

TForm1 = class(TForm)

BitBtn3: TBitBtn;

Label2: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Memo1: TMemo;

Label4: TLabel;

Memo2: TMemo;

procedure Button3Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

var s,s1,s2,ss: string;

N,N1,i: integer;

begin

S:=Memo2.Text;

N:=length(S);

N1:=trunc((N+1)/2);

s1:=Copy(S,1,trunc(N/2));

s2:=Copy(S,1+trunc(N/2),N-trunc(N/2));

ss:=s2[N1];

for i:=1 to N1 do ss:=ss+s1[i]+s2[N1-i];

if 2*N1=N then ss:=ss+s[N1];

Memo2.Text:=ss;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

var s,s1: string;

N,i: integer;

begin

S:=Memo1.Text;

s1:='';

N:=length(S);

i:=2;

while i<=N do begin s1:=s1+s[i]; i:=i+2; end;

i:=2*trunc((N+1)/2)-1;

while i>=1 do begin s1:=s1+s[i]; i:=i-2; end;

Memo2.Text:=S1;

end;

end.

Результаты выполнения программы

Задание 4. Составные типы данных в процедурах и функциях

23. Описать процедуру SplitStr(S, W, N), которая формирует по данной строке S массив W слов, входящих в S (массив W и его размер N являются выходными параметрами). Словом считается набор символов, не содержащий пробелов и ограниченный пробелами или началом/концом строки; предполагается, что строка S содержит не более 10 слов. Используя функцию SplitStr, найти количество слов N, содержащихся в данной строке S, и сами эти слова.

Блок-схема задачи

Текст программы

unit Unit1;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls, ComCtrls, Grids, Buttons;

type

arWords = array [1..10] of string;

TForm1 = class(TForm)

Label10: TLabel;

Label11: TLabel;

ListBoxWords: TListBox;

Button2: TButton;

Button1: TButton;

Label1: TLabel;

Edit1: TEdit;

Memo1: TMemo;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

procedure SplitStr(Str1: string; var Words: arWords; var N: integer);

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SplitStr(Str1: string; var Words: arWords; var N: integer);

var i,j,k: integer;

tmp : string;

begin

tmp:='';

i:=1; N:=0;

repeat

if (tmp<>'') and ((str1[i]=' ') or (i=Length(str1))) then

begin

N:=N+1; Words[N]:=tmp;

tmp:='';

end

else if str1[i]<>' ' then tmp:=tmp+str1[i];

i:=i+1;

until i>Length(str1);

end;

procedure TForm1.Button1Click(Sender: TObject);

var i,K: integer;

ArrayWords: arWords;

begin

SplitStr(Memo1.Text+' ',ArrayWords,K);

ListBoxWords.Clear;

for i:=1 to K do ListBoxWords.Items.Add(ArrayWords[i]);

Edit1.Text:=IntToStr(K);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Close;

end;

end.

Результаты выполнения программы

Задание 5. Текстовые файлы

1. Даны два текстовых файла. Добавить в начало первого файла содержимое второго файла.

Текст программы

unit Unit1;

interface

uses

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

Dialogs, Grids, StdCtrls, Mask, StrUtils, Buttons;

type

TForm1 = class(TForm)

Button3: TButton;

Memo1: TMemo;

Button1: TButton;

OpenDialog1: TOpenDialog;

Button4: TButton;

Memo2: TMemo;

Label5: TLabel;

Label6: TLabel;

Button2: TButton;

Button5: TButton;

procedure Button3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

N: integer;

file1,file2: string;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Memo2.Text:=Memo1.Text+Memo2.Text;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

file1:=OpenDialog1.FileName;

Memo1.Lines.LoadFromFile(file1);

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

file2:=OpenDialog1.FileName;

Memo2.Lines.LoadFromFile(file2);

end;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Memo2.Lines.SaveToFile(file2);

end;

end.

Результаты выполнения программы

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

...