Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
SpinnoZa
1 / 1 / 0
Регистрация: 28.04.2014
Сообщений: 38
1

Составить блок-схему

12.06.2014, 10:45. Просмотров 535. Ответов 1
Метки нет (Все метки)

Здравствуйте, нужна помощь в составление блок-схемы данного алгоритма.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
procedure TForm4.Button1Click(Sender: TObject);
const rz=[' ','.',',','-','?','!'];//символы, разделители слов,
var s,s1:string;
    n,i,k:byte;
    c:char;
begin
if edit1.Text='' then Showmessage('Наберите текст');
s:=' '+Edit1.Text;//добавим пробел в начало
n:=length(s);
i:=2;
while i<=n do
if not(s[i] in rz)and (s[i-1] in rz) then//если не разделитель
                               // и перед ним разделитель, то начало слова*
 begin
  k:=i;
  s1:=''; //составляем его
  while (k<=n) and not(s[k] in rz) do //пока не разделитель и не конец строки
   begin
    s1:=s1+s[k];
    k:=k+1;
   end;
  k:=1; //переставляем символы
  while k<length(s1) do
   begin
    c:=s1[k];
    s1[k]:=s1[k+1];
    s1[k+1]:=c;
    k:=k+2;
   end;
  delete(s,i,length(s1));//удаляем старое
  insert(s1,s,i);//вставляем новое
  i:=i+length(s1);//перешагиваем
 end
else i:=i+1;//пропускаем разделители
Memo1.Text:=s; //вывод в Мемо
Memo1.Lines.SaveToFile('Result.txt'); //вывод в файл
 
end;
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.06.2014, 10:45
Ответы с готовыми решениями:

Составить блок-схему!
нарисуйте блок схему пожалуйста!!! буду очень признателен!

Составить блок схему
ПОМОГИТЕ ПОЖАЛУЙСТА СОСТАВИТЬ БЛОК СХЕМУ НА ЭТУ ПРОГРАММУ! Тема задания: Обучение по специальности...

Составить блок-схему
Пусть последовательность чисел образована по следующему закону ak=k*ak-1+1/k; k=1,2,... Вводится...

составить блок-схему
помогите составить блок-схему unit Unit1; interface uses Windows, Messages, SysUtils,...

Составить блок-схему по коду
Всем привет. Мне срочно нужно блок-схема курсового проекта. Помогите пожалуйста, мне срочно,срочно...

1
long399
673 / 524 / 264
Регистрация: 16.10.2013
Сообщений: 1,875
Записей в блоге: 6
12.06.2014, 18:36 2
Как-то так:
1
Вложения
Тип файла: docx 1.docx (23.6 Кб, 20 просмотров)
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.06.2014, 18:36

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Составить блок-схему по коду
Ребят нужна блок схема(алгоритм) {$APPTYPE CONSOLE} var A: array of Integer; N, M,...

Составить блок-схему программы
Формачане обращаюсь к вам за помощью надо блок-схема к коду unit Unit3; interface uses ...

Составить блок-схему алгоритма
Малыш может съесть 600 г варенья за 6 мин, а Карлсон – в два раза быстрее. За какое время они...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.