Первые шаги — различия между версиями

Материал из Вики ИТ мехмата ЮФУ
Перейти к: навигация, поиск
(Новая страница: « === 'Привет, мир' === [`task-01.pas`] Рассмотрите пример, создайте файл с этой программой и запусти…»)
 
 
Строка 13: Строка 13:
  
 
=== Вещественные переменные ===
 
=== Вещественные переменные ===
 +
 +
{0.5 балла}
  
 
<source lang="pascal">// Использование вещественных переменных
 
<source lang="pascal">// Использование вещественных переменных
Строка 52: Строка 54:
  
 
=== Прямоугольный треугольник ===
 
=== Прямоугольный треугольник ===
 +
 +
{1 балл}
  
 
<source lang="pascal">// Вычисление гипотенузы и периметра прямоугольного треугольника по заданным катетам
 
<source lang="pascal">// Вычисление гипотенузы и периметра прямоугольного треугольника по заданным катетам

Текущая версия на 23:03, 26 августа 2015

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

[`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.