.: Infuha.Ru - Стало быть полезная информация.

Приклад програми на Паскаль на тему файли 3

Program E44;

var f,g :file of integer; a: integer;

begin

assign(f, 'F.DAT');

assign(g, 'G.DAT');

{ перезапис даних з вихідного файла в д

Приклад програми на Паскаль на тему файли 2

Program E43;

const k = 5;

var f: file of integer; a, i, n, p, z: integer;

begin

assign(f, 'F.DAT');

rewrite(f); {створення файла}

writeln('введіть ', k,' цілих чисел, після кожного н

Приклад програми на Паскаль на тему файли

Program E42;

var f: file of integer; a,i: integer;

begin

assign(f, 'F.DAT');

rewrite(f);

writeln('введіть 10 цілих чисел, піс....

Приклад програми на Паскаль на тему записи.

Program E41;

const n = 3;

type date_of_birth = record

day: 1 ..31;

month: 1..12;

year: integer....

Приклад програми на Паскаль на тему комп'ютерна графіка 4

Program E40;

uses Graph, Crt;

procedure Init;

var gr, gm: integer;

begin

gr := 0; { автоматичне розпізнавання типу дисплея }

InitGraph (gr, gm, ' '); {файл egavga.bgi знаходиться в одному

Приклад програми на Паскаль на тему комп'ютерна графіка 3

Program E39;

uses Graph, Crt;

procedure Init;

var gr, gm: integer;

begin

gr := 0; { автоматичне розпізнавання типу дисплея }

InitGraph ( gr, gm, ' '); {файл egavga.bgi знаходитьс

Приклад програми на Паскаль на тему комп'ютерна графіка 2

Program E38;

uses Graph, Crt;

procedure Init;

var gr, gm: integer;

begin

lnitGraph( gr, gm, ' '); {файл egavga.bgi знаходиться

Приклад програми на Паскаль на тему комп'ютерна графіка

Program E37;

uses Graph, Crt;

procedure Init;

var gr, gm: integer;

begin

gr := 0; { автоматичне розпізнаван