инфа_6лаб

МИНОБРНАУКИ РОССИИ

Санкт-Петербургский государственный

электротехнический университет

«ЛЭТИ» им. В.И. Ульянова (Ленина)

Кафедра биотехнических систем

Отчет

по лабораторной работе 6

по дисциплине «Информатика»

Тема: Создание программы «Работа с текстовой информацией»

Студентка гр. 9502		Позняк В. Ю.
Преподаватель		Бельтюков М. В.

Санкт-Петербург

2019

i:=1

delim = [‘ . ’,’ , ’]

str:=M.Text;

procedure TForm1.BCClick

начало

Блок-схема программы:

да

условие

A

str[i] := ',';

Insert(' ', str, i+1);

inc(i);

If (str[i]=' ') and(not(str[i-1] in delim))

к стр 3

от стр 2

A

конец