Напишите прогу

  • Автор темы Dimapokal
  • Дата начала
D

Dimapokal

Гость
#1
Нужна прога которая из текстового файла input.txt зчитывает количество чисел(не цифр, а именно чисел) и ответ записывает в файл output.txt!!!

эта прога решает- буду ли я дальше учится в универе!!! помогите кто чем может!!! плиз.......
 
B

BurcevD

Гость
#2
Вот держи
Код:
Var F:TextFile;
S:String;
Total:Integer;

Function CalcNumbers(S:String):Integer;
Var R:Integer;
W:string;
StartX, EndX, x:Integer;

function Check(S:string):Boolean;
Var i:Integer;
R:Boolean;
Begin
r:=true;
For i:=1 to Length(S) do
if (s[i]<'0')or(s[i]>'9') then r:=false;
Result:=r;
End;

Begin
r:=0;
S:=' '+S+' ';
for x:=2 to Length(S)-1 do
begin
if (s[x-1]=' ')and(s[x]<>' ') then Startx:=x;
If (s[x]<>' ')and(s[x+1]=' ') then
begin
EndX:=x;
If check(Copy(s,StartX, EndX-StartX+1)) then Inc(R);
end;
end;
Result:=r;
End;

Begin
Assign(F,'Input.txt');
Reset(F);
Total:=0;
While not EOF(F) do begin
Readln(f,s);
Total:=Total+CalcNumbers(S);
end;
Close(F);
ASsign(F,'Output.txt');
Rewrite(F);
Writeln(f,Total);
Close(f);
End.
 

Akupaka

А че я?.. О.о
04.10.2007
3 360
2
34
Kiev, Ukraine
#4
Афтар, читай подпись своего помощника! ты ему дважды должен! :(

BurcevD, а ты молодец! Мало кто вот так ринется помогать...