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

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

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

100:デフォルトの名無しさん
 06/01/29 22:53:06 
100

101:デフォルトの名無しさん
 06/01/29 23:03:23 
>>99 
program g(input, output); 
 
var 
i,x,answer : integer; 
function gcd(a,b : integer):integer; 
begin 
if b=0 then gcd:=a 
else gcd:=gcd(b,a mod b) 
end; { gcd } 
 
begin 
i:=1; 
repeat 
writeln(i:2,'番目の値を入力'); 
readln(x); 
if x>0 then 
begin 
if i=1 then 
answer:=x 
else 
answer:=gcd(answer,x); 
i:=i+1 
end; 
until (i>10) or (x=0); 
writeln('最大公約数は',answer:3); 
readln; 
end.

102:デフォルトの名無しさん
 06/01/30 00:26:02 
>>101 
禿しくサンクスです！！ 
ありがたく拝見させていただいて学習します。

103:デフォルトの名無しさん
 06/01/30 20:38:06 
お、こんなとこで同級生ﾊｹｰﾝ。 
ガンガレ。

104:デフォルトの名無しさん
 06/01/31 14:08:43 
＞PASCALの宿題は俺にやらせろ！！ 
やらせはせんよ！

105:デフォルトの名無しさん
 06/02/05 02:10:49 
入力された値を大きい順に並べて出力するプログラムのつもりで作りました。  
０で入力停止のはずなのに止まらないし、なんか変な結果が出ます。  
どこに問題があるのでしょうか？？  
 
program k(input,output);  
var count,x,i : integer;  
data : array[1..100]of integer;  
procedure swap(a,b : integer);  
var tmp : integer;  
begin  
readln(a,b);  
if a<b then  
begin  
tmp:=a;  
a:=b;  
b:=tmp  
end;  
end; { swap }

次ページ