Не могу найти ошибку в коде

@Seprintepa · Регистрация: 09.11.2017

Студворк — интернет-сервис помощи студентам

После запуска программа требует ввода данных с клавиатуры, хотя все данные должны считываться из текстовых файлов. Где ошибка - для меня пока что загадка. Вот код:

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
program n_3;
var i,ti,i2,o:text;
a,b,a1,b1,e,e1,d,q:integer;c,h,h1:real;
begin
assign(i,'E://input.txt');
assign(o,'E://output.txt');
reset(i);
rewrite(o);
assign(ti,'E://tipainput.txt');
rewrite(ti);
readln(i,e);
writeln(ti,e);
while not EoF do
begin
readln(i,e,e1);
writeln(ti,e,' ',e1);
end;
close(i);
close(ti);
reset(ti);
readln(ti,d);
assign(i2,'E://input2.txt');
rewrite(i2);
for q:=1 to d do
begin
readln(ti,e,e1);
writeln(i2,e,' ',e1);
end;
close(ti);
close(i2);
reset(i2);
c:=0;
while d>1 do
begin
readln(i2,a,b);
for q:=1 to d-1 do
begin
readln(i2,a1,b1);
h:=sqrt((sqr(a1-a))+(sqr(b1-b)));
if h1>h then h1:=h;
end;
c:=c+h1;
d:=d-1;
close(i2);
reset(i2);
rewrite(ti);
readln(i2,e,e1);
for q:=1 to d do
begin
readln(i2,e,e1);
writeln(ti,e,' ',e1);
end;
close(ti);
close(i2);
reset(ti);
rewrite(i2);
for q:=1 to d do
begin
readln(ti,e,e1);
writeln(i2,e,' ',e1);
end;
close(ti);
close(i2);
reset(i2);
end;
write(o,c);
write(c);
end.

@ZX Spectrum-128 · 11.11.2017, 15:02

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
program n_3;
 
var
  i, ti, i2, o: text;
  a, b, a1, b1, e, e1, d, q: integer;
  c, h, h1: real;
 
begin
  assign(i, 'input.txt');
  assign(o, 'output.txt');
  reset(i);
  rewrite(o);
  assign(ti, 'tipainput.txt');
  rewrite(ti);
  readln(i, e);
  writeln(ti, e);
  while not EoF(i) do
  begin
    readln(i, e, e1);
    writeln(ti, e, ' ', e1);
  end;
  close(i);
  close(ti);
  reset(ti);
  readln(ti, d);
  assign(i2, 'input2.txt');
  rewrite(i2);
  for q := 1 to d do
  begin
    readln(ti, e, e1);
    writeln(i2, e, ' ', e1);
  end;
  close(ti);
  close(i2);
  reset(i2);
  c := 0;
  while d > 1 do
  begin
    readln(i2, a, b);
    for q := 1 to d - 1 do
    begin
      readln(i2, a1, b1);
      h := sqrt((sqr(a1 - a)) + (sqr(b1 - b)));
      if h1 > h then h1 := h;
    end;
    c := c + h1;
    d := d - 1;
    close(i2);
    reset(i2);
    rewrite(ti);
    readln(i2, e, e1);
    for q := 1 to d do
    begin
      readln(i2, e, e1);
      writeln(ti, e, ' ', e1);
    end;
    close(ti);
    close(i2);
    reset(ti);
    rewrite(i2);
    for q := 1 to d do
    begin
      readln(ti, e, e1);
      writeln(i2, e, ' ', e1);
    end;
    close(ti);
    close(i2);
    reset(i2);
  end;
  write(o, c);
  write(c);
end.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .