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

                       begin

                         ChDir(SearchRec.Name);

                         Find;

                         ChDir('..');

                       end;

          until FindNext(SearchRec) <> 0;

end; 

procedure TForm1.Button1Click(Sender: TObject);

begin

        if not DirectoryExists(Edit2.Text) then

        begin

           ShowMessage('Каталог указан неверно.');

            Edit2.SetFocus;

            exit;

        end; 

        Button1.Enabled := False;

        Label4.Caption := '';

        Label4.Repaint;

        Memo1.Clear;

        Label4.Caption := '';

        FileName := Edit1.Text;

        cDir := Edit2.Text;

        n:=0;

        ChDir(cDir);

        Find;

        if n = 0 then

           ShowMessage('Файлов, удовлетворяющих критерию поиска нет.')

        else Label4.Caption := 'Найдено файлов:' + IntToStr(n);

        Button1.Enabled := True;

end; 

function GetPath(mes: string):string;

var

  Root: string;

  pwRoot : PWideChar;

  Dir: string;

begin

  Root := '';

  GetMem(pwRoot, (Length(Root)+1) * 2);

  pwRoot := StringToWideChar(Root,pwRoot,MAX_PATH*2);

  if SelectDirectory(mes, pwRoot, Dir)

     then

          if length(Dir) = 2

              then GetPath := Dir+'\'

              else GetPath := Dir

     else

          GetPath := '';

end; 

procedure TForm1.Button2Click(Sender: TObject);

var

  Path: string;

begin

  Path := GetPath('Выберите папку');

  if Path <> ''

     then Edit2.Text := Path;

end; 

end.

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

  Запустите  программу. В поле файл введите  название файла, для того чтобы  выбрать каталог, в котором  необходимо выполнить поиск нажмите  «Обзор». Выбрав каталог и введя название файла, нажмите «Найти». В поле, которое находится в нижней части формы, отобразится список найденных файлов. 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

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

  Игра Используя  которую можно оценить способность  игрока (испытуемого) запомнить числа. Программа должна выводить числа, а испытуемый- вводит эти числа с клавиатуры. Время, в течении которого игрок будет видеть число, ограничьте , например, одной секундой. По окончании теста программа должна вывести результат: количество показанных чисел, которые испытуемый запомнил и ввел правильно.

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

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

 Оценка способности игрока (испытуемого) запомнить числа.

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

 

 Edit1

 Label1

Button1

 Timer1 

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

unit memory_; 

interface 

uses

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

  Dialogs, StdCtrls, ExtCtrls; 

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Button1: TButton;

    Edit1: TEdit;

    Timer1: TTimer;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

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

  private

    { Private declarations }

  public

    { Public declarations }

  end; 
 

var

  Form1: TForm1; 

implementation 

const

  KC = 5;

  LT = 10; 

var

  numb: integer;

  right: integer;

  n: integer; 

{$R *.dfm} 

function GetNumb(k: integer) : integer;

var

  n: integer;

  i: integer;

begin

  n:= Random(9)+1;

  for i := 1 to (k-1) do

    n := n*10 + Random(10); 

  GetNumb := n;

end; 

procedure TForm1.FormCreate(Sender: TObject);

begin

  Edit1.Visible := False;

  Edit1.MaxLength := KC;

  Label1.WordWrap := True; 

  Label1.Caption :=

  'Сейчас на экране будут появляться числа. ' +

  'Вы должны  запомнить число, набрать его  на клавиатуре и нажать <Enter>';

  Button1.Caption := 'Начать';

  Timer1.Enabled := False;

  Timer1.Interval := 1000; 

  right := 0;

  n := 0;

  Randomize;

end; 

procedure TForm1.Button1Click(Sender: TObject);

begin

  if Button1.Caption = 'Завершить' then

     Form1.Close; 

  if Button1.Caption = 'Начать' then

  begin

      Button1.Caption := 'Завершить';

      Button1.Visible := False;

      Label1.Caption := ''; 

     Label1.Font.Size := 24;

      Edit1.Font.Size := 24;

      numb := GetNumb(KC);

      Label1.Caption := IntToStr(numb); 

      Timer1.Enabled := True;

    end;

end; 

procedure TForm1.Timer1Timer(Sender: TObject);

begin

  Timer1.Enabled := False;

  Label1.Visible := False;

  Edit1.Visible := True;

  Edit1.SetFocus;

end; 

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

var

  igrok: integer;

begin

    case Key of

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

        #13:

    begin

        igrok := StrToInt(Edit1.Text);

        if (igrok = numb)

           then right := right + 1; 

        n := n + 1; 

        Edit1.Text := '';

        Edit1.Visible := False; 

        if n < LT then

        begin

          numb := GetNumb(KC);

          Label1.Caption := IntToStr(numb);

          Label1.Visible := True;

          Timer1.Enabled := True;

        end

        else begin

          Label1.Font.Size := 10;

          Label1.Caption := 'Результат:' + #13 +

            'Показано чисел:  ' + IntToStr(LT) + #13 +

            'Правильных:  ' + IntToStr(right);

          Label1.Visible := True;

          Button1.Visible := True;

        end;

    end;

    else Key := Chr(0);

    end;

end; 

end.

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

  Запустите  программу. На форме в течении  некоторого времени будут выводиться  числа, после истечения времени они будут исчезать. На форме появится поле ввода, в которое необходимо ввести число, и нажать «Enter».В конце программа выведет результат: количество показанных чисел, которые испытуемый запомнил и ввел правильно.

  
 
 
 
 
 

 
 
 
 
 
 

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

  Напишите  программу, при помощи которой  можно создать базу данных  «Архитектурные памятники Костаная».

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

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

  Программа  должна выводить данные базы  данных.

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

 

Label1  DBEdit1

Label1

 DBEdit2

Label1  Image1 

Table1  

DataSource1

      DBEdit3

      DBNavigator1 DBMemo1    Label4 
 

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

unit peterburg_; 

interface 

uses

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

  ExtCtrls, StdCtrls, DBCtrls, Mask, Db, DBTables,

  jpeg;  

type

  TForm1 = class(TForm)

    Table1: TTable;           

    DataSource1: TDataSource; 

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    DBEdit1: TDBEdit;

    DBEdit2: TDBEdit;

    DBMemo1: TDBMemo;

    DBEdit3: TDBEdit;

    Image1: TImage;

    DBNavigator1: TDBNavigator;

    Label4: TLabel;