0 / 0 / 3
Регистрация: 19.09.2017
Сообщений: 32
1

Исправить ошибки в программе

28.11.2017, 18:25. Показов 408. Ответов 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
program Prnt;
label 100;
const
 LPg=10;
 LStr=80;
 NLen=20;
var
 Prg, List: text;
 Name: string [NLen];
 Ch: char;
 I: integer;
 Result : Boolean;
begin
 Assign (List, 'PRN');
 Rewrite (List);
 repeat
  Write ('Введите имя файла '); readln(Name);
  Assign (Prg, Name);
  Reset (Prg);
  Result := IOResult = 0;
  if Result then begin
   while not Eof (Prg) do begin
    for I:=1 to LPg do begin
     if Eof (Prg) then begin
      Close (Prg);
      writeln('Последняя страница - неполная');
      Goto 100
     end
     else 
      repeat
       read (Prg,Ch); write (List, Ch);
      until Eoln (Prg);
     Readln(Prg);
     writeln(List);
    end;
    writeln(List);
    end;
    100:writeln('Завершение выдачи одного файла');
   end
  until not Result ;
  close (List);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.11.2017, 18:25
Ответы с готовыми решениями:

Исправить ошибки в программе
program test5b; type Person = record Name : record Name : world end; Degree : 1..3;...

Исправить ошибки в программе
Исправить ошибки в программе. program TEST; type Person = record Name: string;...

Исправить ошибки в программе
9. Дан текстовый файл f . Преобразовать строки файла f по правилам, которые приведены в таблице....

Исправить ошибки в программе
помогите переписать программу, исправив ошибки! очень надо, а у меня чего-то всё время не то...

1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5982 / 3561 / 2502
Регистрация: 22.11.2013
Сообщений: 10,116
Записей в блоге: 1
28.11.2017, 19:16 2
Приведите полный текст задания.

Пока навскидку:
Pascal
30
31
32
    while not EoLn(Prg) do begin
      Read(Prg,Ch); Write(List,Ch);
    end;
Добавлено через 5 минут
Pascal
1
  LStr=80;
наводит на мысль, что должно быть отсечение или переход на новую строку.
Если отсечение:
Pascal
30
31
32
33
34
35
36
begin
  j:=LStr;
  while (j>0) and not EoLn(Prg) do begin
    Read(Prg,Ch); Write(List,Ch);
  end;
  ...
end;
Если переход на новую строку, то для 23 цикл for не подходит.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.11.2017, 19:16

Исправить ошибки в программе
помогите решить задачкууу!!! Program Prim; Var n,p:Integer; y:Real; Begin: p:=1; ...

Исправить ошибки в программе
program qq; var Z:array of integer; B:array of integer; mas,kol,max,nmax,i,n:integer;...

Где исправить ошибки в программе??
задача такая написать программу в которой требуется "Удалить все символы 'а' из слов, длина которых...

Сформировать 4 и 5 столбцы матрицы А(3, 3). Исправить ошибки в программе
Даны две матрицы А(3,3) и В(3,3). Сформировать 4 и 5 столбцы матрицы А(3,3) : в четвертом...


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

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

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