Eserverresult econverterror is an invalid integer 1с ошибка

0 / 0 / 0

Регистрация: 15.01.2015

Сообщений: 9

помогите пожалуйста разобраться при запуске программы выдает ошибку. ошибка: проект вызвал класс исключения ‘EConvertError’ с сообщением is an invalid integer
сама задача: Создать класс обыкновенная дробь, поля класса — числитель и знаменатель.
Методы класса: сокращение дроби, вывод дроби. В классе предусмотреть
методы перегрузки операций: сложение, вычитание, деление и умножение
дробей.

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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls;
 
type
 
{ TForm1 }
 
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
type
TPecahan=class
private
x,y:integer;
public
constructor Create;
procedure reduction(nod:Tpecahan);
end;
 
var
Form1: TForm1;
pecahan1, pecahan2, pecahan3, pecahan4, pecahan5, pecahan6:TPecahan;
 
implementation
 
{ TForm1 }
 
constructor TPecahan.Create;
begin
x:=0; y:=0;
inherited Create;
end;
 
operator *(const a,b:TPecahan)r:TPecahan;
begin
r:=TPecahan.Create;
r.x:=a.x*b.x;
r.y:=a.y*b.y;
end;
 
operator /(const a,b:TPecahan)r:TPecahan;
begin
r:=TPecahan.Create;
r.x:=a.x*b.y;
r.y:=a.y*b.x;
end;
 
operator -(const a,b:TPecahan)r:TPecahan;
begin
r:=TPecahan.Create;
if a.y=b.y then
begin
r.x:=a.x-b.x;
r.y:=a.y;
end
else
begin
r.x:=a.x*b.y-b.x*a.y;
r.y:=a.y*b.y;
end;
end;
 
operator +(const a,b:TPecahan)r:TPecahan;
begin
r:=TPecahan.Create;
if a.y=b.y then
begin
r.x:=a.x+b.x;
r.y:=a.y;
end
else
begin
r.x:=a.x*b.y+b.x*a.y;
r.y:=a.y*b.y;
end;
end;
 
procedure TPecahan.reduction(nod:TPecahan);
var a,b:integer;
begin
 
a:=nod.x;
b:=nod.y;
while (a<>b) and ((a>0) or (b>0)) do
begin
if a>b then
a:=a-b
else
b:=b-a
end;
nod.x:=nod.x div a;
nod.y:=nod.y div a;
end;
 
procedure TForm1.button1click(sender:Tobject);
var str1, str2:string;
begin
pecahan1:=TPecahan.Create;
pecahan2:=TPecahan.Create;
pecahan3:=TPecahan.Create;
pecahan4:=TPecahan.Create;
pecahan5:=TPecahan.Create;
pecahan6:=TPecahan.Create;
pecahan1.x:=strtoint(edit1.text);
pecahan1.y:=strtoint(edit2.text);
pecahan2.x:=strtoint(edit3.text);
pecahan2.y:=strtoint(edit4.text);
pecahan3:=pecahan2*pecahan1;
pecahan4:=pecahan1/pecahan2;
pecahan5:=pecahan1-pecahan2;
pecahan6:=pecahan1+pecahan2;
str1:='Умножение '+inttostr(pecahan3.x)+'/'+inttostr(pecahan3.y)+' Деление '+inttostr(pecahan4.x)+'/'+inttostr(pecahan4.y)+ ' Вычитание '+inttostr(pecahan5.x)+'/'+inttostr(pecahan5.y)+' Сложение '+inttostr(pecahan6.x)+'/'+inttostr(pecahan6.y);
label1.caption:=str1;
pecahan1.reduction(pecahan1);
pecahan2.reduction(pecahan2);
pecahan3.reduction(pecahan3);
pecahan4.reduction(pecahan4);
pecahan5.reduction(pecahan5);
pecahan6.reduction(pecahan6);
str2:='Вывод результатов с сокращением. Скоращение дробей '+inttostr(pecahan1.x)+'/'+inttostr(pecahan1.y)+' '+inttostr(pecahan2.x)+'/'+inttostr(pecahan2.y)+' Умножение '+inttostr(pecahan3.x)+'/'+inttostr(pecahan3.y)+' Деление '+inttostr(pecahan4.x)+'/'+inttostr(pecahan4.y)+ ' Вычитание '+inttostr(pecahan5.x)+'/'+inttostr(pecahan5.y)+' Сложение '+inttostr(pecahan6.x)+'/'+inttostr(pecahan6.y);
label2.Caption:=str2;
end;
 
initialization
{$I unit1.lrs}
 
end.

Сияющий в темноте

31 — 30.05.18 — 21:10

Я пытаюсь создать программу, которая принимает вводимые пользователем данные и проверяет, действительна ли она как дата (2000-2099 годы). когда я проверял код на ошибку, я дважды подряд вводил ввод в качестве ввода, при первом вводе ошибки не возникало, но во второй раз консоль мигает сообщением и вылетает. Я сделал снимок экрана, когда он разбился, и это ошибка, которую он показал

An unhandled exception occured at $0040CDE1
EConvertError : "" is an invalid integer

Я предполагаю, что ошибка была вызвана одним из моих StrToInt из-за EConvertError, но мне неясно, почему он выбрасывает его только при втором прохождении, а не при первом. Я подозреваю, что ошибка возникает в любой строке: 85, 98, 111 или 195.

Когда я изначально писал эту программу, я был новичком в Паскале, поэтому заранее прошу прощения за любой небрежный код.

Ниже приведен весь код, если вы хотите запустить его самостоятельно.

program DateVerifierAssignment;

uses crt, sysutils;

var
    userInputArray: array[0..7] of string;  
    len, i, day, month, year: integer;
    date, userInput, stringDay, stringMonth, stringYear: string;
    errorCatch: boolean;

//DECLARING FUNCTIONS & PROCEDURES
procedure TitleScreen();
    begin
    //prints a coloured wall of text to give information like name and instructions
    WriteLn(' o-------------------------o');
    Write(' | ');TextColor(White);Write('Date Validation Program');TextColor(Cyan);WriteLn(' |');
    WriteLn(' o-------------------------o');
    WriteLn();
    WriteLn(' o-------------------------o');
    Write(' |      ');TextColor(White);Write('Instructions');TextColor(Cyan);WriteLn('       |');
    WriteLn(' o-------------------------o');
    Write(' |   ');TextColor(White);Write('Enter a date and the');TextColor(Cyan);WriteLn('  |');
    Write(' | ');TextColor(White);Write('program will verify it');TextColor(Cyan);WriteLn('  |');
    Write(' |  ');TextColor(White);Write('and convert it to its');TextColor(Cyan);WriteLn('  |');
    Write(' |        ');TextColor(White);Write('long form');TextColor(Cyan);WriteLn('        |');
    WriteLn(' o-------------------------o');
    WriteLn();
    TextColor(White);
    Write('   press any key to begin');
    
    //waits for user input then clears the screen and returns the text color to white
    ReadKey();
    ClrScr;
    end;
         
       
function DateVerification(var userInput: string): boolean;
    var
        errorLimit : boolean;
        bounds: integer;
    begin
    errorLimit := True;
    //stores the length of the string as a variable
    len := Length(userInput);
    
    //checks to see if entry is 8 chracters long and displays an error message and returns user to input screen if it doesn't fit
    if (len <> 8) and (errorLimit = True) then
        begin
        ClrScr();
        TextColor(Red);
        WriteLn('input was not the right length (8 characters)');
        TextColor(White);
        Write('make sure date fits format ');
        TextColor(LightGreen);
        WriteLn('dd/mm/yy');
        TextColor(White);
        Readkey();
        ClrScr();
        errorLimit := false;
        Dateverification := false;
        end;
    
    //spits each character into its own spot in an array
    for i := 1 to len do
          userInputArray[i - 1] := userInput[i];
            
    //tests if every slot in the array where a slash should be is a slash
    for i := 0 to len-1 do
        begin
        if (userInputArray[2] <> '/') or (userInputArray[5] <> '/') and (errorLimit = true) then
            begin
            ClrScr();
            TextColor(Red);
            WriteLn('input did not have slashes in correct locations ');
            TextColor(LightGreen);
            WriteLn('dd/mm/yy');
            TextColor(White);
            Readkey();
            ClrScr();
            errorLimit := false;
            Dateverification := false;
            end;
        end;
        
    year := ((StrToInt(userInputArray[6]))*10) + StrToInt(userInputArray[7]);
    if (year < 1) or (year > 99) and (errorLimit = true) then
        begin
        ClrScr();
        TextColor(Red);
        WriteLn('year was not from 0 to 99');
        TextColor(White);
        Readkey();
        ClrScr();
        errorLimit := false;
        Dateverification := false;
        end;
        
    month := ((StrToInt(userInputArray[3]))*10) + StrToInt(userInputArray[4]);
        if (month < 1) or (month > 12) and (errorLimit = true) then
        begin
        ClrScr();
        TextColor(Red);
        WriteLn('month was not from 1 to 12');
        TextColor(White);
        Readkey();
        ClrScr();
        errorLimit := false;
        Dateverification := false;
        end;
    
    day :=  ((StrToInt(userInputArray[0]))*10) + StrToInt(userInputArray[1]);
    if (month = 4) or (month = 6) or (month = 9) or (month = 11) then
        bounds := 30;
    
    if (month = 2) then
        begin
        if (IsLeapYear(year) = true) then
            bounds := 29
        else
            bounds := 28;
        end
    else
        bounds := 31;    
    
    if (day < 1) or (day > bounds) and (errorLimit = true) then
            begin
            ClrScr();
            TextColor(Red);
            WriteLn('day was not from 1 to days in month');
            TextColor(White);
            Readkey();
            ClrScr();
            errorLimit := false;
            Dateverification := false;
            end;
    
    if (errorLimit = true) then  
        DateVerification := True;   
    end;    


function IsLeapYear(var year: integer): boolean;
//simple function to determine if a year is a leap year on the gregorian calender
    begin
        if (year mod 4) = 0 then
            if (year mod 100 <> 0) then
                if (year mod 400 = 0) then
                    IsLeapYear := true
                else
                    IsLeapYear := false
            else
                IsLeapyear := false
        else
            IsLeapyear := false    
    end;


procedure DateToAlpha(var userInput: string);
    begin
    
    end;
    

//MAIN PROGRAM
begin
    //preparing for while loop later in code and changes text colour to cyan
    errorCatch := true;
    TextColor(Cyan);
    
    //Displays a title screen and instruction about how to use(stored in a procedure to help with readability)
    TitleScreen();
     
    //begins a loop so that if an error is to occur the program can easily ask for a new date and try again
    while (errorCatch = true) do
        begin
        //sets error catch to 0 so that if there a no errors the program will not loop
        errorCatch := false;
        
        //displays information on how to input a date as well as an example with different colours for better readability
        Write('Enter a date in the format');TextColor(LightGreen); WriteLn(' dd/mm/yy');TextColor(White);
        Write('e.g. ');TextColor(LightGreen);WriteLn(' 09/07/20'#13#10);TextColor(White);
        
        //takes date user inputs and stores it
        ReadLn(userInput); 
        
        //calls the date verification function to see if the date is valid        
        //(refer to dateVerification at the top of the program for more info and comments)
        if (DateVerification(userInput) = false) then
            errorCatch := true;
            
        len := Length(userInput);
        for i := 1 to len do
          userInputArray[i - 1] := userInput[i];
        
        year := ((StrToInt(userInputArray[6]))*10) + StrToInt(userInputArray[7]);
        readKey();
        end;   
end.

Обычно в SO мы не даем полностью закодированных ответов на вопросы, которые, очевидно, являются курсовой работой.

В этом случае я подумал, что сделаю исключение, потому что было очевидно, что вы создаете излишне тяжелую погоду, и то, как вы это кодировали, скорее всего, действительно помешает отладке и правильной работе.

Итак, в приведенном ниже примере показан очень простой и понятный способ проверки даты в 21 веке, представленный в формате дд / мм / гггг. Он показывает правильный порядок этапов обработки и проверки; если он обнаруживает ошибку на любом этапе, он сообщает, в чем проблема, и останавливается. Если выполнение прерывается до конца, указанная строка даты должна быть действительной.

Я намеренно пропустил петли или приукрашивания кода, потому что для правильного первого важна ясная и лаконичная кодирование этапов обработки и проверки. Если вы хотите использовать петли, хорошо, но так, как вы использовали например errorCatch, держу пари, что если вы вернетесь к своему коду через 6 месяцев, вы не вспомните, как это должно работать. Для этой задачи вам не нужны какие-либо сложные флаги или циклы — пользователь просто должен иметь возможность ввести ровно восемь символов (за которыми следует [Enter]), и тогда код скажет, действительно ли это или нет.

Примечание. Я использовал стандартную функцию копирования, чтобы выделить различные части введенной даты. Кстати, твое заявление

userInputArray: array[0..7] of string;

Просто неправильно. Если вам нужен массив из определенного количества символов , хорошо, но это просто без нужды усложняют обработку и обработку того, что вводит пользователь. Это далеко проще и, следовательно, менее подвержено ошибкам принимать одну строку из 8 символов и просто смирись с этим. Но в любом случае, чтобы разрешить строку включать символы / после цифр дня и месяца, длина строкиg должна быть 10, а не восемь, чтобы учесть эти цифры и четыре года.

program DateVerification;

uses
  SysUtils;

var
  sUserInput,
  sDay,
  sMonth,
  sYear : String;
  iDay,
  iMonth,
  iYear,
  iDays: Integer;
  bIsLeapYear : Boolean;

function DaysInMonth(iMonth, iYear : Integer) : Integer;
begin
  Result := -1; //  you supply the code for this taking into account leap year for February
end;

begin
  writeln('Please enter a date between 01/01/2000 and 31/12/2099 in the format shown');
  readln(sUserInput);
  if Length(sUserInput) <> 10 then begin
    writeln('Input is wrong length.');
    Halt;
  end;
  if (sUserInput[3] <> '/') or (sUserInput[6] <> '/') then begin
    writeln('Input is incorrectly delimited.');
    Halt;
  end;

  sDay := Copy(sUserInput, 1, 2);
  sMonth := Copy(sUserInput, 4, 2);
  sYear := Copy(sUserInput, 7, 4);

  iYear := StrToInt(sYear);
  if (iYear < 2000) or (iYear > 2099) then begin
    writeln('Invalid year : ', sYear);
    Halt;
  end;

  bIsLeapYear := IsLeapYear(iYear); //  you supply the code for IsLeapYear

  iMonth := StrToInt(sMonth);
  if (iMonth < 1) or (iMonth > 12) then begin
    writeln('Invalid month : ', sMonth);
    Halt;
  end;

  iDay := StrToInt(sDay);

  if (iDay < 1) or (iDay > DaysInMonth(iMonth, iYear)) then begin
    //  You need to supply the DaysInMoth function, which of course
    //  needs to account for February in a leap year
    writeln('Invalid day of month: ', sMonth);
    Halt;
  end;

  writeln(sUserInput, ' is a valid date.');
  readln;

end.