Первые шаги

Материал из Вики ИТ мехмата ЮФУ
Версия от 23:03, 26 августа 2015; Ulysses (обсуждение | вклад)

(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

'Привет, мир'

[`task-01.pas`] Рассмотрите пример, создайте файл с этой программой и запустите её на выполнение.

// Программа, печатающая приветствие -- это комментарий к программе
program Hello;

begin
  Writeln('Привет, мир');
end.

Вещественные переменные

{0.5 балла}

// Использование вещественных переменных

begin
  // Объявление переменной с одновременным присваиванием значения
  var a : real := 10.1;  // ": real" можно не писать, тогда тип real выводится автоматически

  // Вывод значения переменной
  Writeln('a = ', a);

  // Присваивание переменной нового значения
  a := 5;

  // Увеличение значения переменной
  a += 0.6;

  // Вывод значения переменной
  Writeln('a = ', a);
end.

Квадрат

// Вычисление периметра квадрата по заданной стороне

begin
  Writeln('Введите длину стороны квадрата:');

  // Объявление переменной для хранения длины стороны и ввод значения
  var a := ReadReal;

  // Вычисление периметра
  var P := 4 * a;

  Writeln('Периметр P = ', P);
end.

Прямоугольный треугольник

{1 балл}

// Вычисление гипотенузы и периметра прямоугольного треугольника по заданным катетам

begin
  Writeln('Введите длины катетов (два числа, разделенные пробелом):');

  // Объявление переменных для хранения катетов
  var a, b: real;

  // Ввод. Эта форма короче, чем функция ReadReal, если переменных несколько.
  Read(a, b);

  var c := sqrt(a*a + b*b);

  Writeln('Гипотенуза c = ', c);

  // Вычисление периметра треугольника
  var P := a + b + c;

  Writeln('Периметр P = ', P);
end.