파스칼 분할 실제에 라인 문자열

Question

나는이 언어가 나는 모습 데이터 파일을 가지고 우리 나라 을 -.-에서 대부분의 학교에서 몇 년 전에 죽었지 만 여전히 필요한 것을 알고

을 라인의

• 수
• 이름 성 (실제 타입 자리) (다른 실제 타입 자리) 예를 들어

• 2
브랫 sunbather입니다 5.66 55.4
• 바트 심슨 55.7 45.4

그리고는 다음과 같습니다 결과 파일 생성해야합니다 이전 (

• 이름 성을 주어진 실제 숫자에 곱한 값)
• 합계

예 :

• 은 브랫 sunbather입니다은 313.56
• 는 바트 심슨은 2528.78
• 은 총 : 2842.34

내가, 문자열과 실제에 라인을 분할하려고에 붙어 심지어 책에 내가 준

• 문자열
• D : 실시 예에서 모든 데이터는 별도의 광고에 igit
• 문자열 내가 그물에 아무것도 찾을 당신이 나를 도울 수있는 희망 할 수

자리. 미리 감사드립니다.

Answer 1

이 시작하기한다 - 내가 지금까지있어 실수로 문자열을, 파일을 읽는 라인을 분할하고, 변환 등 :

 
Program Test; 

var 
    fileVar: Text; 
    l: string[81]; 
    inputFilename: string[14]; 
    lCount: Integer; 
    i: Integer; 
    code: Integer; 

    spacePos: Integer; 

    firstName: string[100]; 
    secondName: string[100]; 

    num1: real; 
    num2: real; 
    product: real; 

    s: string[100]; 

begin 
    inputFilename := 'input.txt'; 
    Assign(fileVar, inputFilename); 
    Reset(fileVar); 

    Readln(fileVar, l); 
    Val(l, lCount); 

    Writeln('l count=', lCount); 

    for i := 1 to lCount do 
    begin 
     Readln(fileVar, l); 
     spacePos := Pos(' ', l); 
     firstName := Copy(l, 0, spacePos); 
     Delete(l, 1, spacePos); 

     spacePos := Pos(' ', l); 
     secondName := Copy(l, 0, spacePos); 
     Delete(l, 1, spacePos); 

     spacePos := Pos(' ', l); 
     s := Copy(l, 0, spacePos - 1); 
     Val(s, num1, code); 
     Delete(l, 1, spacePos); 

     Val(l, num2, code); 

     WriteLn(firstName); 
     Writeln(secondName); 
     Writeln(num1); 
     Writeln(num2); 
    end; 

    Close(fileVar); 
end.