C++ vs Pascal

Некоторые простейшие программы на Pascal и С++



1. Hello world на Pascal:

Program HelloWorld(output);
begin
  writeln('Hello, World!');  { оператор вывода строки }
end.

Аналогичное на С:

#include <stdio.h>
int main(void)
{
    printf("Hello, World!\n");
    return 0;
}

2. Сумма положительных элементов массива (Pascal):

var 
  iA : array[0..255] of integer; {массив из 256 элементов}
  iN, iSum : integer;
begin
  writeln('Input array length'); { вывод строки на экран }
  readln(iN); { ввод значения переменной iN с клавиатуры }
  
  writeln('Input array elements');
  { ввод данных }
  for i := 0 to iN-1 do
  begin
    readln(iA[i]);
  end;
  
  { обработка данных }
  iSum = 0;
  for i := 0 to iN-1 do
  begin
    if iA[i] > 0 then
      iSum := iSum + iA[i];
  end;
  
  { вывод результата }
  writeln('Sum of positive elements: ', iSum);
end.

Аналогичное на С:

#include <stdio.h>
#include <stdlib.h>

/* программа осуществляет суммирование 
положительных элементов массива, вводимого с клавиатуры */

int main()
{
  printf("Input array length:\n"); // вывод строки на экран

  int iN; // целочисленная переменная (32 бита)
  scanf("%d", &iN); // ввод значения переменной iN с клавиатуры

  printf("Input array elements:\n");

  // ввод данных
  int iArray[256]; // массив из 256 целочисленных переменных
  int i;
  for (i = 0; i < iN; i++) // оператор цикла, переменная i=0 до iN-1
  {
    scanf("%d", &iArray[i]); // ввод элемента массива с клавиатуры
  }

  // обработка данных
  int iSum = 0; // результат
  for (i = 0; i < iN; i++)
  {
    if (iArray[i] > 0) // условный оператор 
      iSum = iSum + iArray[i];
  }

  printf("Sum of positive elements: %d", iSum); // вывод iSum на экран

  return 0; // выход из функции main с результатом 0
}