Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.01.2011, 12:11   #1
WitaliG
Пользователь
 
Регистрация: 17.08.2010
Сообщений: 75
Вопрос Работа с ошибками

Здравствуйте уважаемые участники форума!
Поздравляю всех с Новым 2011 годом, желаю здоровья и благополучия.
Изучаю Паскаль по книге «Песни Паскаля», установил среду Free Paskal IDE. И вот в очередном уроке компилятор пишет, что ошибка. Я 5 раз проверил свой код с оригиналом, но увы… Ошибка.
Нажимаю F7 отладчик не хочет работать с этим кодом?!
Проверил этот код в среде Paskal ABC, пишет что ошибка времени исполнения.?!
Вопрос: Как вы работаете с ошибками, где и как ее искать??? Может дадите ссылочку, где об этом почитать.
Ответьте пожалуйста. С уважением Виталий.
Код:
var     InFile, OutFile :text;
        Counter :integer; 
procedure HandleString;
var     n :integer;  
        cnt :integer; 
        sum :integer; 
        rating :real;  
begin
        sum :=0;  cnt :=0;  
        while not Eoln(InFile) do begin  
        read(InFile, n);  
        sum :=sum+n;   
        cnt :=cnt+1;   
        end;
        if cnt>0  then begin  
                rating :=sum / cnt;
                writeln(outFile, counter:3, cnt:13, sum:14, rating:12:1);
                end
                else  
                        writeln(OutFile, counter:3, ' Ó÷åíèê íå àòåñòîâàí');
end;
begin
        counter :=0;  
        assign(InFile,'p_30_1.in');  reset(InFile);
        assign(OutFile,' p 30 1.out');  rewrite(OutFile);
        writeln(OutFile, 'Íîìåð      Êîë-âî   Ñóììà   Ñðåäíèé');
        writeln(OutFile,  'ó÷åíèêà   îöåíîê   áàëëîâ    áàëë');
        while not Eof(InFile) do begin
                counter :=counter+1;
                HandleString;
                readln(InFile);
        end;
        close(InFile);  close(OutFile);
end.
WitaliG вне форума Ответить с цитированием
Старый 03.01.2011, 12:25   #2
optimator
Пользователь
 
Регистрация: 12.11.2010
Сообщений: 92
По умолчанию

Цитата:
Вопрос: Как вы работаете с ошибками, где и как ее искать???
Ошибки надо исправлять, а искать в той строке, на которую ругается компилятор. Смотрим тип ошибки и исправляем
Коды ошибок можно посмотреть здесьhttp://bpascal.ru/doc/errors.php
P.s. Вас также с Новым Годом!
optimator вне форума Ответить с цитированием
Старый 03.01.2011, 15:34   #3
WitaliG
Пользователь
 
Регистрация: 17.08.2010
Сообщений: 75
По умолчанию

Честно говоря, я не пойму на какую строку ругается компилятор???
И где это можно посмотреть?!
Вот основные пункты сообщения компилятора:
Line number :0
Used memory :327 k
Total errors :2
Total lines :42
WitaliG вне форума Ответить с цитированием
Старый 03.01.2011, 21:11   #4
optimator
Пользователь
 
Регистрация: 12.11.2010
Сообщений: 92
По умолчанию

Обычно компилятор пишет на какую строчку ругается.
Вставил ваш код - все работает. Вы случайно не забыли создать файл, который хотите открыть? Если создали то проверьте правильность написания имени открываемого файла и пути к нему.
optimator вне форума Ответить с цитированием
Старый 03.01.2011, 23:40   #5
WitaliG
Пользователь
 
Регистрация: 17.08.2010
Сообщений: 75
По умолчанию

Я открыл новый документ и сразу его сохранил. Он у меня получил название 19.pas. Затем я написал в него код из книги, а после этого нажимаю ctrl+f9. А он мне пишет, что есть ошибка.
Может быть тут играют роль настройки компилятора?!
Ответьте пожалуйста, иначе не у кого больше спросить.
WitaliG вне форума Ответить с цитированием
Старый 03.01.2011, 23:46   #6
Valio
Сливочное масло
Участник клуба
 
Аватар для Valio
 
Регистрация: 01.01.2011
Сообщений: 1,149
По умолчанию

Цитата:
Изучаю Паскаль по книге «Песни Паскаля», установил среду Free Paskal IDE.
Смешное название... Могу рекомендовать только скачать Delphi 7 и работать в нём.

Что касается ошибок то "Total lines :42" непонятно на что показывает ибо в коде и 40 строк не набирается.

Код:
        assign(InFile,'p_30_1.in');  reset(InFile);
        assign(OutFile,' p 30 1.out');  rewrite(OutFile);
Названия файлов правильно написаны? Их надо создать. Они должны находиться тамже где и exe.
Сливочное масло Valio - компиляция как по маслу
Valio вне форума Ответить с цитированием
Старый 04.01.2011, 23:31   #7
WitaliG
Пользователь
 
Регистрация: 17.08.2010
Сообщений: 75
По умолчанию

Спасибо, сейчас скачаю Делфи
WitaliG вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблема с ошибками в делфи nooonname Помощь студентам 9 23.12.2010 19:42
Архив извлекает с ошибками SADAM Компьютерное железо 14 26.04.2009 11:52
помогите разобратса с ошибками ALEKS_STRELOK Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 16.03.2009 18:38
Работа над ошибками, удаление Linux begemotikdin Linux (Ubuntu, Debian, Red Hat, CentOS, Mint) 5 30.11.2008 01:16
сообщения с ошибками в delphi Alar Общие вопросы Delphi 0 30.10.2006 00:43