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

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

Pascalの宿題は俺にやらせろ！！Part2 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

500:デフォルトの名無しさん
 07/06/22 22:28:21 
Program LotsOfStars(output); 
var i : integer; 
 
procedure StarBar(n : integer); 
var i : integer; 
begin 
  for i := 1 to n do write('*'); 
  writeln 
end; 
 
begin 
  for i := 10 downto 1 do StarBar(i); 
  for i := 1 to 10 do StarBar(i) 
end. 
 
 
おまけ 
Program SingleStar(output); 
var i : integer; 
begin 
  for i := 10 downto 1 do writeln('*' : i); 
  for i := 1 to 10 do writeln('@' : i) 
end.

501:デフォルトの名無しさん
 07/06/23 14:01:19 
問題3の前半 
Program NeverTested(input, output); 
var n : integer; 
begin 
  read(n); write((n * (n+1)) div 2) 
{ don't trust me ;-p } 
end.

502:497,498
 07/06/24 16:49:06 
>>500-501 
大きなヒントを下さってありがとうございます♪ 
教養科目で卒業が掛かっているのでとても嬉しいです 
 
問１を自分なりにやってみたのですが、 
program gengou(input,output); 
var a:integer; 
begin 
 readln(a); 
 writeln('西暦',a,'年の元号は？'); 
 if a>1988 
  then writeln('平成',a-1988,'年です') 
  else if a>1926 
    then writeln('昭和',a-1926,'年です') 
    else if a>1910 
      then writeln('大正',a-1910,'年です') 
      else if a>1867 
        then writeln('明治',a-1867,'年です') 
        else writeln('江戸時代です') 
end. 
 
何がダメなのかすらわかりません＞＜ 
助けてください・・・

次ページ