Искусство
Инженерная
Конспект
Лабы
ТОЭ
Математика
Курсовая
Физика

Черчение

Алгебра
Энергетика
Лекции
Сопромат
Контрольная
Информатика
Задачи

Наименьшей единице измерения является байт. Поскольку одним байтом, как правило, кодируется один символ текстовой информации, то для текстовых документов размер в байтах соответствует лексическому объему в символах (за исключением кодировки Unicode). Более крупная единица измерения - килобайт (Кбайт). Условно можно считать, что 1 Кбайт примерно равен 1000 байт. Условность связана с тем, что для вычислительной техники, работающей с двоичными числами, более удобно представление чисел в виде степени двойки, и потому на самом деле 1 Кбайт равен 210 байт (1024 байт).

Доступ к объявленным в модуле объектам

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

UNIT Cmplx;

{---------------------}

INTERFACE

{---------------------}

type complex = record 

re, im:real

end;

Procedure AddC

(x, у

: complex;

var z

: complex) ;

Procedure SubC

(x, у

: complex;

var z

: complex) ;

Procedure MulC

(x, у

: complex;

var z

: complex) ;

Procedure DivC

(x, у

: complex;

var z

: complex) ;

const

с : complex =

(re :

0.1; im :

-1);

 

{---------------------}

IMPLEMENTATION

{---------------------}

Procedure AddC; begin

z.re := x.re + y.re; z . im := x.im + y. im

end {AddC};

Procedure SubC;

begin

z.re := x.re - y. re ; 

z.im := x.im - y.im

end {SubC};

Procedure MulC;

begin

z.re := x.re*y.re - x.im*y. im;

z.im := x.re*у.im + x.im*y.re

end {MulC};

Procedure DivC;

var

zz : real;

begin

zz := sqr(y.re) + sqr(y.im); 

z. re := (x.re * y.re + x.im * y.im) / zz; 

z.im := (x.re * y.im - x.im * y.re) / zz

end {DivC};

end.

Текст этого модуля следует поместить в файл CMPLX.PAS. Вы можете его откомпилировать, создав TPU-файл, после чего Вашей программе станут доступны процедуры из новой библиотеки. Например, в следующей программе (пример 9.1) осуществляются четыре арифметические операции над парой комплексных чисел.

Пример 9.1

Uses Cmplx; 

var

а, Ь, с : complex; 

begin

a.re := 1; a.im := 1; 

b.re := 1; b.im := 2; 

AddC(a, b, c); 

WriteLn('Сложение: 'c.re:5:1, c.im:5:1,'i') ; 

SubC(a, b, c) ; 

WriteLn('Вычитание: 'с.re:5:1, с.im:5:1,'i');

MulC(a, b, c); 

WriteLn('Умножение: 'c.re:5:1, c.im:5:l,'i') ; 

DivC(a, b, c); 

WriteLn('Деление: 'c.re:5:l, с.im:5:1,'i');

end.

После объявления Uses Cmplx программе стали доступны все объекты, объявленные в интерфейсной части модуля CMPLX. При необходимости можно переопределить любой их этих объектов, как это произошло, например, с объявленной в модуле типизированной константой С. Переопределение объекта означает, что вновь объявленный объект «закрывает» ранее определенный в модуле одноименный объект. Чтобы получить доступ к «закрытому» объекту, нужно воспользоваться составным именем: перед именем объекта поставить имя модуля и точку. Например, оператор

WriteLn(cmplx.c.re:5:l, cmplx.с.im:5:1,'i');

выведет на экран содержимое «закрытой» типизированной константы из предыдущего примера.

 

Поколения современных ЭВМ Развитие современных ЭВМ прошло несколько этапов, связанных с поколениями ЭВМ. Каждое поколение отличается элементной базой, архитектурой ЭВМ, областью применения, интерфейсами, программными средствами решения задач. ЭВМ первого поколения (first-generation computer). Появлению первых ЭВМ предшествовал ряд открытий и фундаменталь¬ных исследований: изобретение двух – и трехэлектродных электронных приборов (диода для выпрямления электрических колебаний и триода для усиления электрических колебаний), электроннолучевой трубки, лампового триггера (устройство с двумя устойчивыми состояниями) - основной логический элемент ЭВМ.

Электротехника