Программирование в средах семейства Pascal и в среде Delphi (стр. 16 )

end.

Внешний вид формы в Delphi

В конструкторе	При выполнении

Код программы в среде Delphi

procedure TForm1.Button1Click(Sender: TObject);

{обработка нажатия кнопки Поиск}

var i: integer;

begin

       {Очистка содержимого объекта StringGrid1}

       for i:=1 to StringGrid1.RowCount do StringGrid1.Rows[i].Clear;

       if OpenDialog1.Execute then

               begin

               AssignFile(F, OpenDialog1.FileName);

{F - название выбранного диалогом файла (свойство FileName объекта OpenDialig1)}

               Reset(F);

               N :=0; {Читаем с самого начала}

               {Считываем все записи из файла}

               while not eof(F) do

                       begin

                       {В переменную N считываем текущую запись}

                       Read(F, r);

                       if (r. speed>=StrToInt(Edit1.Text)) then

                               begin

                               {Марка помещается в первый столбец таблицы}

                               StringGrid1.Cells[0, N+1] :=r. mark;

                               {Объем двигателя - во второй столбец}

                               StringGrid1.Cells[1, N+1] :=FloatToStr(r. volume);

                               {Мощность - в третий столбец}

                               StringGrid1.Cells[2, N+1] :=FloatToStr(r. power);

                               {Скорость - в четвертый столбец}

                               StringGrid1.Cells[3, N+1] :=FloatToStr(r. speed);

                               {Увеличиваем общее число записей}

                               N := N+1;

                               end;

                       end;

       CloseFile(F); {Закрываем файл}

       end;

end;

Лабораторная работа №17

Используя файл, созданный в предыдущей лабораторной работе (лабораторная работа №16), вывести данные, отвечающие критерию поиска в соответствующем варианте лабораторной работы № (15). Выполнить два варианта: один – в среде Pascal, другой – в среде Delphi.

Справочная информация

Структура языков Pascal и Object Pascal

Алфавит обоих языков ( набор используемых символов ) включает:

буквы латинского алфавита: от a до z и от A до Z, арабские цифры: от 0 до 9, специальные символы:  _  +  -  *  /  =  ,  .  :  ;  <  >  (  )  [  ]  { }  ^  @  $  #,  пробел  “ ” управляющие символы с кодами от #0 до #31. 

Используются также служебные (зарезервированные) слова,  например:

absolute,  and,  array,  begin,  case,  const,  constructor,  destructor,  div,  do,  downto,  else,  end,  external,  file,  for,  forward,  function,  goto,  if,  implementation,  in,  inline,  interface,  interrupt,  label,  mod,  nil,  not,  object,  of,  or,  packed,  procedure,  program,  record,  repeat,  set,  shl,  shr,  string,  then,  to,  type,  unit,  until,  uses,  var,  vertual,  while,  with,  xor  и другие.

При написании программы применяются:

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

Для обозначения имен констант,  переменных,  функций,  процедур и модулей используются буквы и цифры,  входящие в алфавит языка,  и знак подчеркивания " _ ".  Имена начинаются с буквы или знака подчеркивания " _ "и содержат до 63 значащих символов.  Символ пробела в имени не допускается.  Эти имена принято называть идентификаторами.  Различие прописных и строчных букв в идентификаторах компилятором Pascal не учитывается.

Идентификаторы отделяются друг от друга пробелами и специальными знаками.

Примеры записи идентификаторов: Alfa,  C,  X_max,  Y_min,  Sin,  Cos,  _10_A.

Специальные символы:

Обозначение	Описание	Пример
:=	присвоение значения	x:= 0. 1;  c:= Cos(x);  d:= c;
=	описание значений констант	Const n= 1; m= 200;
назначение типа	Type M = array [N. . M] of integer;
;	конец оператора	b:= 5;  goto M1;  begin  end;
:	описание типа переменой	Var b, c, d: real;  i, j, k: integer;
задание меток операторов	M1: c:=sin(x);
,	перечисление идентификаторов при описании	Uses CRT,  DOS;
. .	задание интервала,  диапазона	a: array [1. . 100] of real;
()	группировка арифметических выражений	y:= b/(c+d) ;
аргументов функций,  процедур и т. п	y:=Sin(x);
[]	границы массива,  обозначение элемента массива	a[1]:=22;
{}	комментарии	{комментарии транслятором не обрабатываются}
'	обозначение символьных и строковых констант	с:='!';S:='Cи';
#	обозначение символа с указанием номера кода ASCII	c:=#33;
$	обозначение шестнадцатеричных констант	i:=$FF;
@	обозначение адреса переменной	yx:=@x; {yx - адрес ячейки в ОЗУ со значением переменной "x" }
^	обозначение типа ссылка	Var  yx:  ^real; а также значения переменной типа ссылка  (  yx^ := 0. 1; ),
+  -  /  *	знаки математических операций
= <> > < <= >=	знаки операций сравнения

Типы данных

Простые типы

Вещественные

Наименование типа	Размер (байт)	Количество цифр	Диапазон
Single	4	7..8	10 (-45..+38)
Real	6	11..12	10 (-39..+38)
Double	8	15..16	10 (-324..+308)
Extended	10	19..20	10 (-4951..+4932)
Comp	8	19..20	263 +1..+263 -1

Примечание: типы Single,  Double,  Extended в Pascal работают при подключении сопроцессора,  в том числе при эмуляции сопроцессора.  Для этого в меню Options,  Compiler установить Numeric processing: [X] 8087/80287,  а также [X] Emulation,  либо в начале программы установить режим компиляции {$N+}. 

Порядковые типы  имеют конечное число возможных значений. 

Целый тип

Наименование типа	Размер (байт)	Диапазон
Byte	1	0..255
Shortint	1	-121..+127
Word	2	0..65535
Integer	2	-32761..+32767
Longint	4	-2147483641 [phone]

Логический тип