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

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

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

600:光速エスパー世代774RR
 07/10/04 19:18:53 
>>596 
 
>S:=10*S+X mod 10; 
>X:=X div 10; 
>S:=10*S+X mod 10; 
>X:=X div 10; 
>S:=10*S+X mod 10; 
>X:=X div 10; 
>S:=10*S+X mod 10; 
>X:=X div 10; 
>S:=10*S+X mod 10; 
 
次は、「自動化ちうのをしたくて電算機プログラムやってるのに、 
なんでオラさはこんな5回も6回もコピペしなきゃなんねえだべ」と思ってみよう。 
 
手抜きとぐうたら根性こそプログラミングの推薬ww

601:デフォルトの名無しさん
 07/10/08 02:02:31 
exp(x)とかodd(x)みたいな感じで、even(x)って存在するの？

602:デフォルトの名無しさん
 07/10/08 07:27:53 
not odd(x) でいいーぶん

603:デフォルトの名無しさん
 07/10/08 10:02:52 
>>602 
初めて知った！㌧！ 
ついでに。 
なにが違うんじゃー  
全部０って出てくるー  
  
program PR0331(input,output);  
var D1,D2:real;  
var T1,T2,T3,T4,R1,R2,R3,R4:integer;  
begin  
read(D1,D2);  
T1:=trunc(D1);T2:=trunc(D2);T3:=trunc(-D1);T4:=trunc(-D2);  
R1:=round(D1);R2:=round(D2);R3:=round(-D1);R4:=round(-D2);  
writeln('trunc(',D1:2:1,')=',T1:2,'trunc(',D2:2:1,')=',T2:2,'trunc(',-D1:2:1,')=',T3:2,'trunc(',-D2:2:1,')=',T4:2);  
writeln('round(',D1:2:1,')=',R1:2,'round(',D2:2:1,')=',R2:2,'round(',-D1:2:1,')=',R3:2,'round(',-D2:2:1,')=',R4:2);  
end.  
  
あと、もうちょいシンプルにできないのかな、これｗ

次ページ