Первые шаги — различия между версиями
Материал из Вики ИТ мехмата ЮФУ
Ulysses (обсуждение | вклад) (Новая страница: « === 'Привет, мир' === [`task-01.pas`] Рассмотрите пример, создайте файл с этой программой и запусти…») |
Ulysses (обсуждение | вклад) |
||
| Строка 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.