Начало. Тексты программ: различия между версиями
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Нет описания правки |
Нет описания правки |
||
Строка 5: | Строка 5: | ||
end.</source> | end.</source> | ||
* Вычисление площади круга (использование констант) | * Вычисление площади круга (использование констант) | ||
'''Код на языке Pascal:''' | |||
<source lang="pascal">const Pi = 3.1415; | |||
var | |||
r: real; // радиус круга | |||
S: real; // площадь круга | |||
begin | |||
write('Введите радиус круга: '); | |||
readln(r); | |||
S := Pi*r*r; | |||
writeln('Площадь круга равна ',S); | |||
end.</source> | |||
* Вычисление A<sup>8</sup> (промежуточные переменные) | * Вычисление A<sup>8</sup> (промежуточные переменные) | ||
Версия от 11:32, 10 ноября 2009
- HelloWorld
Код на языке Pascal:
begin
writeln('Привет, мир!');
end.
- Вычисление площади круга (использование констант)
Код на языке Pascal:
const Pi = 3.1415;
var
r: real; // радиус круга
S: real; // площадь круга
begin
write('Введите радиус круга: ');
readln(r);
S := Pi*r*r;
writeln('Площадь круга равна ',S);
end.
- Вычисление A8 (промежуточные переменные)
- Вычисление расстояния между двумя точками на прямой (стандартные функции, abs)
- Вычисление гипотенузы по катетам (стандартные функции, sqrt)
- Генерация случайного числа (стандартные функции, random)
- Перемена местами двух значений (базовые алгоритмы)
- Выделение цифр из двузначного числа (div mod)
- Выделение цифр из трехзначного числа (div mod)