Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
1 / 0 / 2
Регистрация: 09.09.2013
Сообщений: 125
1

При переводе с PascalABC на Turbo Pascal возникли ошибки (работа с файлами)

28.02.2015, 19:00. Показов 648. Ответов 6
Метки нет (Все метки)

файл - text.txt:
the word is mine of foo oof the end
the word is second of foo oof the end
the word is of foo oof the end third


РУГАЕТСЯ НА - reset(f);

не понимаю почему.

а вот код:

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
Program z9;
uses crt;
 
var
    s_out, s_in, str: string;
    f      : text;
    i, len : integer;
    S      : char;
    
begin
    assign(f,'text.txt');
    reset(f);
    while not Eof(f) do 
    begin
      read(f, S); 
      write(S); 
    end;
    
    s_out:='of';
    s_in:='do';
    reset(f);
    Writeln();
    len := length(s_out);
    while not Eof(f) do begin
        readln(f,str);
        i := 1;
        while i<>0 do begin
            i := pos(s_out,str);
            if i<>0 then begin
                delete(str,i,len);
                insert(s_in,str,i);
            end;
        end;
        writeln(str);
     end;
 
    close(f);
    readln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.02.2015, 19:00
Ответы с готовыми решениями:

Не найден модуль Graph при переводе кода с Pascal на PascalABC.NET
Доброго времени суток всем, помогите пожалуйста перевести код с паскаля на паскальАВС, или что...

Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET - в чем разница?
Всем привет, решил изучать Паскаль, но на форуме увидел 4 его версии - Turbo Pascal, Pascal ABC,...

При переводе с Фортрана на C# возникли вопросы
Стоит задача перевести код с фортрана на С#. При переводе возникли некоторые вопросы. Вопрос 1:...

Чем отличается работа с нетипизированными файлами в abc net от turbo Pascal
Объясните мне пожалуйста чем отличается работа с нетипизированными файлами в abc net от turbo...

__________________
6
Модератор
63339 / 47049 / 32429
Регистрация: 18.05.2008
Сообщений: 114,044
28.02.2015, 19:43 2
Запустил в Турбо Паскаль, единственная ошибка в строке 22.
Уберите скобки после Writeln
0
3181 / 1755 / 470
Регистрация: 28.02.2015
Сообщений: 3,566
28.02.2015, 20:57 3
Зачем так:
Цитата Сообщение от vitaliypro Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
i := 1;
   while i<>0 do begin
     i := pos(s_out,str);
     if i<>0 then begin
       delete(str,i,len);
       insert(s_in,str,i);
       end;
   end;
если можно проще:
Pascal
1
2
3
4
while pos(s_out,str)>0 do
  begin
. . .
  end;
Строка if i<>0 then тоже не нужна
0
1 / 0 / 2
Регистрация: 09.09.2013
Сообщений: 125
28.02.2015, 21:44  [ТС] 4
но это все не решает проблему с reset (f)
(((((((((((((((((((((((((((((
0
3181 / 1755 / 470
Регистрация: 28.02.2015
Сообщений: 3,566
28.02.2015, 21:56 5
какой у вас паскаль?

Добавлено через 10 минут
ошибка какая?
ТР7,0 и ТР7,1 всё проглотил и отработал
0
492 / 372 / 208
Регистрация: 28.07.2011
Сообщений: 2,105
28.02.2015, 22:24 6
он наверное путь к файлу неправильно указал
т.е его нет рядом с прогой... укажи норм путь к файлу
0
3181 / 1755 / 470
Регистрация: 28.02.2015
Сообщений: 3,566
28.02.2015, 22:44 7
Fakeoke,
Цитата Сообщение от Fakeoke Посмотреть сообщение
он наверное путь к файлу неправильно указал
Отсутствие файла рядом с оболочкой, а не с испоняемой программой, я думаю он проверил.

Вр7,0 и ВР7,0(переведенный) дают 104-ю и 200-ю ошибку
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.02.2015, 22:44

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Указатели в Turbo Pascal и PascalABC
Вопрос: почему в Turbo Pascal тактая конструкция const TAB = ^I; begin end. работает, а...

Перевод из turbo Pascal в PascalABC
Здравствуйте. Я не очень силен в программировании и перевод занимает долгое время. Очень сильно...

Из Turbo Pascal в PascalABC.NET
Добрый день! Может кто-нибудь помочь переписать код программы из Turbo Pascal (если не ошибаюсь,...

Перевод с Turbo Pascal на PascalABC.NET
господа, можете помочь? у меня тут программа написана на языке турбо паскаль. пожалуйста переводите...


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

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

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