Сложение двух чисел в Delphi 10 Seatle на C++ (консольное приложение)

В статье рассказывается как создать консольное приложение сложения двух чисел в Delphi 10 Seatle.

Статья из цикла «Сложение двух чисел». Для меня минимальное освоение любой системы программирования начинается с возможности создания такой программы. Если можно написать приложение, в которой пользователь может ввести два числа, считать их, провести с ними какие-то действия, а потом вывести результат, то, значит, базовое владение имеется. И много задач именно из области программирования, алгоритмики можно будет решать, зная, как в конкретной системе программирования запрограммировать такую программу.

Создание нового приложения

В итоге, появится вот такое окно:

Сохраните всё.

Написание кода

Добавьте такие переменные:

  var
   a,b,c:integer;

1 2	var a,b,c:integer;

А тело программы замените на это:

    writeln('Input first number');
    readln(a);

    writeln('Input second number');
    readln(b);

    c := a + b;

    writeln('Sum ', c);

    readln(a);

writeln('Input first number');

readln(a);

writeln('Input second number');

readln(b);

c := a + b;

writeln('Sum ', c);

readln(a);

Общий код будет выглядеть так:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

  var
   a,b,c:integer;

begin
    writeln('Input first number');
    readln(a);

    writeln('Input second number');
    readln(b);

    c := a + b;

    writeln('Sum ', c);

    readln(a);
end.

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

System.SysUtils;

var

a,b,c:integer;

begin

writeln('Input first number');

readln(a);

writeln('Input second number');

readln(b);

c := a + b;

writeln('Sum ', c);

readln(a);

end.

Сохраните всё и запустите.

Сложение двух чисел в Delphi 10 Seatle на C++ (консольное приложение)

Содержание

Создание нового приложения

Написание кода

Статьи по теме: