Pascalの宿題は俺にやらせろ！！Part2

Pascalの宿題は俺にやらせろ！！Part2 at TECH

96:デフォルトの名無しさん
06/01/29 21:49:13
>>95
超適当だけど
program f(input, output);
var v: Integer;
procedure writeOne(d: Integer);
begin
　case d of
　　0: begin end; 1: write('one'); 2: write('two');
　　3: write('three'); 4: write('four'); 5: write('five');
　　6: write('six'); 7: write('seven'); 8: write('eight');
　　9: write('nine'); 10: write('ten'); 11: write('eleven');
　　12: write('twelve'); 13: write('thirteen'); 14: write('fourteen');
　　15: write('fifteen'); 16: write('sixteen'); 17: write('seventeen');
　　18: write('eighteen'); 19: write('nineteen');
　end;
end;
begin
　readln(v);
　if v=0 then write('zero');
　if v>=100 then begin
　　writeOne(v div 100); write(' hundred ');
　　v := v mod 100;
　end;
　if v>=20 then begin
　　case v div 10 of
　　　2: write('twenty '); 3: write('thirty '); 4: write('forty '); 5: write('fifty ');
　　　6: write('sixty '); 7: write('seventy '); 8: write('eighty '); 9: write('ninety ');
　　end;
　　v := v mod 10;
　end;
　writeOne(v); writeln;
end.

次ページ

続きを表示

1を表示