Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Kostuan
0 / 0 / 0
Регистрация: 14.04.2010
Сообщений: 8
#1

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

18.12.2010, 21:42. Просмотров 352. Ответов 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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.12.2010, 21:42
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Помошь в составлении блок схемы. (Pascal):

Помошь в составлении блок схемы - Pascal
Вот задача. uses crt; const n=4; type Tsotr=record fam:string; okl:longint; pol:char; ...

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

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

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

=( блок схемы - Pascal
Здравствуйте мальчики помогите плиз дурацкие блок схемы програмки сделала а с блок схемами не как разобраться не могу а их надо сдать уже...

Блок-схемы - Pascal
Требуется блок-схемы к двум программам. program Project1; uses crt; const D=; M=10; var S:string;

1
SuPeR XaKer
2843 / 1972 / 377
Регистрация: 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
Привет! Вот еще темы с ответами:

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

Блок схемы - Pascal
Маленькая просьба, помогите с блок схемами к следующим задачам: 1) uses crt; type film=record nazv : string; rej :...

Блок-схемы - Pascal
Товарищи, помогите с блок-схемами, никак у меня не выходит их составлять. По идеи по блок-схеме составляют программу, но для меня легче...

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


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

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

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