Начало. Тексты программ: различия между версиями
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Нет описания правки |
|||
| Строка 18: | Строка 18: | ||
writeln('Площадь круга равна ',S); | writeln('Площадь круга равна ',S); | ||
end.</source> | end.</source> | ||
=== Вычисление A<sup>8</sup> === | |||
=== Вычисление расстояния между двумя точками на прямой === | |||
=== Вычисление гипотенузы по катетам === | |||
=== Генерация случайного числа === | |||
=== Перемена местами двух значений === | |||
=== Выделение цифр из двузначного числа === | |||
* Выделение цифр из трехзначного числа (div mod) | * Выделение цифр из трехзначного числа (div mod) | ||
Версия от 21:26, 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
Вычисление расстояния между двумя точками на прямой
Вычисление гипотенузы по катетам
Генерация случайного числа
Перемена местами двух значений
Выделение цифр из двузначного числа
- Выделение цифр из трехзначного числа (div mod)
