Условный оператор и оператор выбора. Тексты программ: различия между версиями
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Mikst (обсуждение | вклад) |
Mikst (обсуждение | вклад) |
||
Строка 62: | Строка 62: | ||
end.</source> | end.</source> | ||
=== Наименование сезона по номеру месяца === | === Наименование сезона по номеру месяца === | ||
=== Определение четверти, в которой находится точка === | === Определение четверти, в которой находится точка === |
Версия от 04:05, 15 ноября 2009
Минимум из двух значений
var
x,y: integer;
min: integer;
begin
write('Введите x и y: ');
readln(x,y);
if x<y then
min := x
else min := y;
writeln('Минимум = ',min);
end.
Определение четности числа
var x: integer;
begin
write('Введите x: ');
readln(x);
if x mod 2 = 0 then
writeln('Это четное число')
else writeln('Это нечетное число');
end.
Состоит ли двузначное число из одинаковых цифр
Код на PascalABC.NET:
var x: integer;
begin
write('Введите двузначное число: ');
readln(x);
var c1 := x div 10;
var c2 := x mod 10;
if c1=c2 then
writeln('Цифры числа совпадают')
else writeln('Цифры числа не совпадают');
end.
Упорядочение двух значений по возрастанию
var
x,y: integer;
v: integer;
begin
write('Введите x,y: ');
readln(x,y);
if x>y then
begin
v := x;
x := y;
y := v
end;
writeln('Результат упорядочения по возрастанию: ',x,' ',y);
end.
Проверка числа на двузначность
var x: integer;
begin
write('Введите x: ');
readln(x);
if (x>=10) and (x<=100) then
writeln('Двузначное число')
else writeln('Не двузначное число')
end.
Наименование сезона по номеру месяца
Определение четверти, в которой находится точка
var
x,y: integer; // Координаты точки
Quater: integer; // Номер четверти
begin
write('Введите координаты точки: ');
readln(x,y);
if x>0 then
if y>0 then
Quater := 1
else Quater := 4
else
if y>0 then
Quater := 2
else Quater := 3;
writeln('Номер четверти = ',Quater);
end.