PascalとC: サンプル

program sample(input, output);

var d1:integer;
    d2:integer;

function func1(a:integer):integer;
var i:integer;
   sum:integer;
begin
   sum:=0;
   for i:=1 to a do
      sum:=sum+i;
   func1:=sum;
end;

procedure proc1(var a:integer);
begin
   if a<10 then
      a:=a+10
   else
      a:=a-10;
end;


begin
   write('Input? ');
   readln(d1);
   d2:=func1(d1);
   proc1(d2);
   writeln(d2);
end.

#include <stdio.h>

int d1, d2;


int func1(int a)
{
  int sum, i;

  for(sum = 0, i = 0; i <= a; i++)
    sum += i;

  return sum;
}

void proc1(int *a)
{
  if (*a < 10)
    *a += 10;
  else
    *a -= 10;
}

main()
{
  printf("Input? ");
  scanf("%d", &d1);
  d2 = func1(d1);
  proc1(&d2);
  printf("%d\n", d2);
}

program sample2(input,output);

var a:array[1..10] of integer;
    i:integer;

begin
   for i:=1 to 10 do
      a[i]:=i;
end.

main()
{
  int a[10], i;

  for(i = 0; i < 10; i++)
    a[i] = i + 1;
}

program sample3(input,output);
var i:integer;
begin
  i:=0;
  while (i<10) do begin
    writeln(i);
    i:=i+1;
  end;

  repeat
    writeln(i);
    i:=i-1
  until i=0;
end.

#include <stdio.h>

main()
{
  int i;

  i = 0;
  while(i<10) {
    printf("%d\n", i);
    i++;
  }
  do {
    printf("%d\n", i);
    i--;
  } while (i>0);
}