Презентация на тему Строковый тип данных

str7= string [7];

const n = 10;

var sa : string;

’кара’ + ’пуз’;
Сравнение

работы с данными строкового типа.

работы с данными строкового типа (продолжение).

в результате работы программы
Program wrt_k;
Const a: array[1..8] of char

Ответ: «baab»

состоящая из конечного числа компонентов, называемых полями.
Поля записи

type имя_типа_записи = record
описание 1-го поля записи;
описание 2-го поля записи;
...
описание n-го поля записи;
end;

описание поля записи: имя_поля : тип_поля;

= record
name :

g2 := tabl[3];
g1.price := 200;
With g1 do begin

Инициализация записей:
const g : cars = ( name : =’opel’;
price := 25000;
number : =10 );

:=
Stud.name:=‘Олег’;
Stud.gend:=‘M’;
Stud.kurs:=3; … и т.д.

или
With Stud do

= set of 'A'..'Z';
Colors = set of (RED, GREEN,

Пример:

Var An, Bn : Numbers

Количество элементов множества может меняться
от 0 до 256.

of byte;
s1, s2 ,s3: set

для работы с файлами;
Текстовые файлы;
Типизированные файлы;

файлов:
Текстовые файлы
Типизированные файлы
Нетипизированные

Примеры:
VAR : File of

Файл – именованная область внешней памяти компьютера
либо это логическое устройство – возможный приёмник или источник данных (CON, PRN, AUX,NUL).

Преобразования данных при чтении – записи
типизированных

для текстовых файлов;
Прямой доступ – для типизированных и нетипизированных

Все элементы, из которых состоит файл с прямым
доступом нумеруются от 0 до N; в конце файла
Находится специальный код =маркер конца файла.
Для файлов с прямым доступом вводится понятие
текущей длины – количество элементов файла.
Указатель файла – адрес текущего элемента файла,
предназначенного для обработки.

в ТР
Задать файловую переменную;
Связать файловую переменную с файлом на

на диске?
После описания файловой переменной её надо связать с

пример:
Var F1: File of string[60];
F2: Text;
Begin …
Assign ( F1, ‘c:\works\F001.txt’);
Assign ( F2, ‘a:\mwk\My_abc.001’);

AssignFile ( F1, ‘c:\works\F001.txt’); -LAZARUS !!!!
AssignFile ( F2, ‘a:\mwk\My_abc.001’);

Tx : String[50];
Const S=‘C:\MyDoc\abc001.txt’;
Begin
Assign(Fa, S);
Reset(Fa); While Not(

Логическая функция EOF(fa) принимает значение TRUE,
Если встретился конец файла, иначе – FALSE.

TForm1.Button1Click(Sender: TObject);
Var fp:TextFile;
a,b,c:integer;
begin
if OpenDialog1.Execute and FileExists(Opendialog1.FileName)
then

файловая переменная
Close(fp) –закрыть файл;
Rename(fp,) – переименовать файл;
Erase(fp) – удаляет

доступ.
Var fp : text;
В конце каждой строки ЕOLN =

возвращает True, если в текстовом файле, из которого осуществляется

во внутренней форме представления. Тип элементов
задаётся после ключевых слов

Основные процедуры для работы с типизированными файлами

Seek(fp,N) – делает текущим компонент N;
FileSize(fp) – возвращает количество компонентов файла;
FilePose(fp) – возвращает номер компонента, который
будет обрабатываться при следующей операции;

Чтение-запись

Read(fp, <список>); Write(fp,<список>).

= record name : string [30]; group :

их программная реализация.
Алгоритмы сортировки;
Суммирование рядов;

в порядке возрастания элементов.

Алгоритм: выберем наименьший элемент среди всех, начиная с первого, и поменяем его местами с первым элементом. Повторим эту процедуру начиная со второго элемента массива, и т.д.

10;
var a : array [1 .. n] of integer;
i,

элементы массива.
Алгоритм решения задачи:
Пусть на некотором этапе работы алгоритма

10;
a : array [1

формула для вычисления суммы заданного
количества слагаемых.
Program SUM_N;
Var S,x,C

Лейбница сходимости знакочередующихся
рядов.
Задан знакочередующийся ряд:

Если в формуле (1) слагаемые U1, U2 … Un зависят от x, то
ряд называется функциональным:
S(x) = U1(x) – U2(x) + U3(x) – U4(x) + U5(x) ….

точностью.
Попытаться выразить (n+1) слагаемое через (n) – ое: