- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 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
type
TString=string[20];
TInputRec=record //Inputable record type - тип вводимой информации
FCol: TString; //первый, второй, третий столбец
SCol: TString;
TCol: TString;
end;
TInputRecArray=array [1..127]of TInputRec;
<...>
procedure InFile (var n0,k0:byte); //процедура формирования файлов
Var
InRec0 :TInputRec;
BufChar :char;
BufString:TString;
C,CharCheck,DigitCheck,DelBool,IncorBool:Boolean;
begin
n0:=0;
repeat
InRec0.FCol:='';
InRec0.SCol:='';
InRec0.TCol:='';
BufString:='';
IncorBool:=true;
DelBool:=false;
Inc(n0);
Writeln(n0:20);
while IncorBool do
begin
repeat
BufChar:=readkey;
StringDel(DelBool);
ExitCond(k0,C,CharCheck,DigitCheck,BufChar);
If C then Break;
If CharCheck then
begin
write(bufchar);
BufString:=BufString+BufChar;
end;
if DelBool then BufString:='';
DelBool:=false;
until BufChar=' ';
If C then Break;
InRec0.FCol:=Trim(BufString);
BreakProc(n0,IncorBool,InRec0.FCol);
end;
Writeln;
BufString:='';
IncorBool:=true;
if (k0=1) or (k0=2) then Break;
while IncorBool do
begin
repeat
BufChar:=readkey;
StringDel(DelBool);
ExitCond(k0,C,CharCheck,DigitCheck,BufChar);
If C then Break;
If DigitCheck or (BufChar='-') or (BufChar='/') or (BufChar='.') then
begin
Write(bufchar);
BufString:=BufString+BufChar;
end;
if DelBool then BufString:='';
DelBool:=false;
until BufChar=' ';
If C then Break;
InRec0.SCol:=Trim(BufString);
BreakProc(n0,IncorBool,InRec0.SCol);
end;
Writeln;
BufString:='';
DelBool:=false;
IncorBool:=true;
while IncorBool do
begin
repeat
BufChar:=readkey;
StringDel(DelBool);
ExitCond(k0,C,CharCheck,DigitCheck,BufChar);
If C then Break;
If DigitCheck or (BufChar='-') or (BufChar='/') or (BufChar='.') then
begin
Write(bufchar);
BufString:=BufString+BufChar;
end;
if DelBool then BufString:='';
DelBool:=false;
until BufChar=' ';
If C then Break;
InRec0.TCol:=Trim(BufString);
BreakProc(n0,IncorBool,InRec0.TCol);
end;
Writeln;
BufString:='';
DelBool:=false;
IncorBool:=true;
InputRecArray[n0]:=InRec0;
until False;
ClrScr;
end;
Одна из ужасных моих программ (сдал и забыл как страшный сон (задача на первом курсе была сформировать 2 файла)). Тогда даже не знал про оператор continue...
Lure Of Chaos 24.03.2012 00:29 # +4
rat4 24.03.2012 09:15 # +2
TarasB 24.03.2012 10:38 # 0
Lure Of Chaos 24.03.2012 10:41 # −20
guest8 09.04.2019 12:53 # −999
ADBzYkS 24.08.2021 23:33 # 0