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

Составить пояснительную записку к программе

04.04.2016, 20:11. Просмотров 241. Ответов 2
Метки нет (Все метки)

Помогите, пожалуйста, составить пояснительную записку к программе
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
var f,f1,f2,f3,f4,f5:text;
    s,s1:string;
begin
assign(f,'0.txt');
reset(f);
assign(f1,'1.txt');
rewrite(f1);
assign(f2,'2.txt');
rewrite(f2);
assign(f3,'3.txt');
rewrite(f3);
assign(f4,'4.txt');
rewrite(f4);
assign(f5,'5.txt');
rewrite(f5);
while not eof(f) do
 begin
  readln(f,s);
  while pos('  ',s)>0 do
  delete(s,pos('  ',s),1);
  if s[1]=' ' then delete(s,1,1);
  if s[length(s)]<>' 'then s:=s+' ';
  while pos(' ',s)>0 do
   begin
    s1:=copy(s,1,pos(' ',s)-1);
    case length(s1)of//
    1:write(f1,' ',s1);
    2:write(f2,' ',s1);
    3:write(f3,' ',s1);
    4:write(f4,' ',s1);
    5:write(f5,' ',s1);
    end;
    delete(s,1,pos(' ',s)); 
   end;
  writeln(f1);
  writeln(f2);
  writeln(f3);
  writeln(f4);
  writeln(f5);
 end;
writeln('Файл прочитан и переписан в 5 файлов');
close(f);
close(f1);
close(f2);
close(f3);
close(f4);
close(f5);
readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.04.2016, 20:11
Ответы с готовыми решениями:

составить цыкл к программе
пожалуйста помогите составаить цыкл по этой программе uses crt; const...

составить схему по программе
Доброгов времени суток помогите пожалуйста составить схему по программе ...

Составить блок-схему к программе
y=sin(cos(x+3)), y&gt;0. Найти колличество значений х при которых y&gt;0 Нужно...

Составить блок схему по программе
Помогите пожалуйста составить блок схему по этой проге: Const n=2; Type...

Составить блок-схему по программе
составить блок схему по программе Program N_2; uses crt; const n =...

2
Gamayun
0 / 0 / 1
Регистрация: 04.04.2016
Сообщений: 5
05.04.2016, 16:13 #2
Типа спецификации? Тогда примерно так:
1. Название задачи
2. Название программы
3. Система программирования: Pascal
4. Параметры компа (на котором писал прогу)
5. Описываешь логическую часть (математическую не надо, т.к. формул тут нет).
На этом моменте разжёвываешь работу проги: при запуске программы мы загружаем файл исходник и файлы, в которые будем записывать копии. С помощью цикла мы... <и так далее>
6. Описываешь входные и выходные данные отдельно. (имеем файл исходник и 5 пустых, получаем 5 копий)
7. Пример работы
8. Инструкция к запуску

Вроде всё
0
Puporev
Модератор
54352 / 41944 / 28978
Регистрация: 18.05.2008
Сообщений: 98,797
05.04.2016, 16:15 #3
Если хотите получить в готовом виде, есть платный раздел.
http://www.cyberforum.ru/order-diploma/
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.04.2016, 16:15

Составить блок схему по программе
составить блок схему по программе Program N_3; uses crt; var s:string; ...

Составить блок-схему к программе
Program kursovaya; const n = 12; m = 12; k1 = -50; k2 = 50; type matr =...

По программе составить блок-схему
program pr1; uses crt; Var t: text; m, z1, z2, d1, d2, y, a, db1,...


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

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

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