Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
ZeeGy
0 / 0 / 0
Регистрация: 26.05.2015
Сообщений: 1
1

Исправить ошибку в коде

26.05.2015, 09:04. Просмотров 806. Ответов 3
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program i;
var 
Numzap:integer;
begin
{I-}
reset(personfile);
{I+}
if 1 o result t<>0 then begin
writeln ('файл data.txr не найден');
halt (1);
end;
Num zap:=0;
while note of (person file) do
begin
Num zap:=Num zap+1;
read (Person file, Individ);
writeln (Num zap:4, ' ', Individ.first Name:15, ' ',Individ.sur Name:15, ' ',Individ.first Name:25);
end;
close(person file);
end.
program i;
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2015, 09:04
Ответы с готовыми решениями:

Исправить ошибку в коде
Что не так? задание: Написать подпрограмму для вычисления ординаты точки...

Исправить ошибку в коде
Procedure Way(i, j: Longlnt); Begin If (i=l) And (j=l) Then Exit; ...

Исправить синтаксическую ошибку в коде
Ребят я не могу разобраться,он просит точку с запятой после object,в чем беда...

Исправить ошибки в коде
Всем привет! Спасибо что открыли эту тему! Мой друг уже несколько дней бьётся...

Исправить ошибки в коде
Народ исправте ошыбку program tramvay; var n:integer; begin write('ДАНЫЕ:...

3
ivaska
111 / 99 / 13
Регистрация: 18.04.2015
Сообщений: 813
Записей в блоге: 2
Завершенные тесты: 5
26.05.2015, 09:19 2
что такое persofile?

Pascal
1
2
var t: text;
assign(t,'data.txt');reset(t);
дальше вообще бред

Добавлено через 38 секунд
начни с объявления переменных

Добавлено через 2 минуты
individ это запись?
не объявлена
файл записей должен объявляться соответственно
Цитата Сообщение от ZeeGy Посмотреть сообщение
while note of (person file)
что это значит?
0
JuriiMW
2052 / 1119 / 1595
Регистрация: 10.12.2014
Сообщений: 4,262
26.05.2015, 09:23 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Всё дело в полном непонимании того, что вы выложили!
Приведённый программный код не полон и написан не для PascalABC.NET.
Вот исправил, как мог:
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
type
  tPerson = record
    ... { Здесь должна быть описана структура }
  end;
var 
  personfile : File of tPerson;
  Individ : tPerson;
  Numzap : integer;
begin
  Assign(personfile, 'data.txr');
  try
    Reset(personfile);
  except
    writeln ('файл data.txr не найден');
    halt(1);
  end;
  Numzap:=0;
  while not eof(personfile) do
    begin
      Numzap := Numzap + 1;
      read (Personfile, Individ);
      writeln (Numzap:4, ' ', Individ.firstName:15, ' ',Individ.surName:15, ' ',Individ.firstName:25);
    end;
  Close(personfile);
end.
Структуру записи tPerson вам нужно описать самим!
У меня для этого не достаточно данных…
0
Puporev
Модератор
55428 / 42551 / 29405
Регистрация: 18.05.2008
Сообщений: 100,668
26.05.2015, 09:23 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

ZeeGy, Нужно объявить тип запись с полями по условию, заполнить этими записями типизированный файл, а уж потом его читать.
Кстати имена переменных пишутся без пробелов
не
Pascal
1
Individ.first Name
а
Pascal
1
Individ.firstName
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.05.2015, 09:23

Хеширование, исправить ошибки в коде
Ошибка 39 строка link не объявлен в типе node Program Hash; {объявляем новый...

Найти ошибку в коде
Вот код. uses GraphABC, System.Threading, ABCObjects, ABCButtons; var ...

Найти ошибку в коде
Нужно написать код, в котором вводилось бы значение N и дальше n строк в каждой...


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

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

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