Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Kostuan
0 / 0 / 1
Регистрация: 14.04.2010
Сообщений: 8
#1

Помошь в составлении блок схемы. - Pascal

18.12.2010, 21:42. Просмотров 362. Ответов 1
Метки нет (Все метки)

Вот задача.
В паскале...
Pascal
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
program variant5;
uses
  CRT;
const
  DefaultFileName = 'input.txt';
  EndFileName = 'output.txt';
  MaxLinesPerPage = 60;
  MaxCharsPerLine = 60;
  WordChars = ['A'..'Z', 'a'..'z', 'А'..'Я', 'а'..'я'];
 
var
  Pr: Text;
  InpF: Text;
  FileName: String;
  SourceLine, LineToPrint: String;
  PageNumber: Integer;
  PageLinesCount: Integer;
 
function RTrim(const S: String): String;
var
  L: Integer;
begin
  L := Length(S);
  if L > 0 then begin
    while S[L] <= ' ' do Dec(L);
    RTrim := Copy(S, 1, L);
  end;
end;
 
begin
  Write('Введите имя файла (по умолчанию', DefaultFileName, ' : ');
  ReadLn(FileName);
  if FileName = '' then
    FileName := DefaultFileName;
  Assign(InpF, FileName);
  {$I-}
  Reset(InpF);
  if IOResult <> 0 then begin
    WriteLn('Ошибка! Файл "', FileName,'" не существует');
    ReadKey;
    Exit;
  end;
 
  Assign(Pr, EndFileName);
  Rewrite(pr);
  if IOResult <> 0 then begin
    WriteLn('Ошибка! Результирующий файл"', EndFileName,'не создан" ');
    ReadKey;
    Exit;
  end;
 
  PageLinesCount := 0;
  PageNumber := 0;
 
  while not Eof(InpF) do begin
    ReadLn(InpF, SourceLine);
    repeat
      LineToPrint := Copy(SourceLine, 1, MaxCharsPerLine);
      SourceLine := Copy(SourceLine, MaxCharsPerLine + 1, Length(SourceLine));
      if Length(LineToPrint) = MaxCharsPerLine then
        if LineToPrint[MaxCharsPerLine] in WordChars then
          if Length(SourceLine) > 0 then
            if SourceLine[1] in WordChars then begin
              SourceLine := LineToPrint[MaxCharsPerLine] + SourceLine;
              LineToPrint[MaxCharsPerLine] := '-';
            end;
      if (PageLinesCount = 0) or (PageLinesCount = MaxLinesPerPage) then begin
        Inc(PageNumber);
        WriteLn(Pr, '========================== PAGE ', PageNumber, ' ==========================');
        PageLinesCount := 1;
      end;
      WriteLn(Pr, LineToPrint);
      Inc(PageLinesCount);
    until SourceLine = '';
 
  end;
  Close(Inpf);
  Close(Pr);
end.

http://www.cyberforum.ru/pascal/thread113972.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.12.2010, 21:42
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Помошь в составлении блок схемы. (Pascal):

Нужна помощь в составлении блок-схем
ДРУЗЬЯ, ПОМОГИТЕ ПОЖАЛУЙСТА НАРИСОВАТЬ БЛОК-СХЕМЫ И НАПИСАТЬ ПРОГИ К ЗАДАЧАМ...

Блок-схемы
Как составить блок схему???подскажите плизззззззззззззз program 3; uses crt;...

блок-схемы
Помогите пожалуйста написать блок-схему к задаче с оператором case:Единицы...

Блок схемы
Ребят сделайте блок схемы на эти программки в Word, а то нам преподаватель...

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

1
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
18.12.2010, 22:03 #2
.....
1
Вложения
Тип файла: rar Схема.rar (115.3 Кб, 13 просмотров)
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.12.2010, 22:03
Привет! Вот еще темы с решениями:

Блок схемы.
Нужны блок схемы к этим задачам. Задана квадратная матрица.Поменять местами...

Блок-схемы
Напишите пожалуйста блок-схему к задаче : var s:string; i,k:integer; begin...

Блок-схемы
Помогите сделать схемы, заранее большое спасибо)))

блок схемы
кто может помочь оформить блок схемы по госту, я схемы нарисовал, мне нужно...


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

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

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