Начало. Тексты программ: различия между версиями
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
| Строка 26: | Строка 26: | ||
=== Генерация случайного числа === | === Генерация случайного числа === | ||
=== | === Обмен значений двух переменных с использованием третьей === | ||
'''Код на PascalABC.NET:''' | |||
<source lang="pascal">var x,y: real; | |||
begin | |||
write('Введите x,y: '); | |||
readln(x,y); | |||
var v: real; // вспомогательная переменная | |||
v := x; | |||
x := y; | |||
y := v; | |||
writeln('Новые значения x,y: ',x,' ',y); | |||
end.</source> | |||
=== Выделение цифр из двузначного числа === | === Выделение цифр из двузначного числа === | ||
=== Выделение цифр из трехзначного числа === | === Выделение цифр из трехзначного числа === | ||
Версия от 21:53, 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
Вычисление расстояния между двумя точками на прямой
Вычисление гипотенузы по катетам
Генерация случайного числа
Обмен значений двух переменных с использованием третьей
Код на PascalABC.NET:
var x,y: real;
begin
write('Введите x,y: ');
readln(x,y);
var v: real; // вспомогательная переменная
v := x;
x := y;
y := v;
writeln('Новые значения x,y: ',x,' ',y);
end.
