Условный оператор и оператор выбора. Тексты программ

Минимум из двух значений

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 
  Month: integer;
  Season: string;
begin
  write('Введите номер месяца: ');
  readln(Month);
  if (Month=1) or (Month=2) or (Month=12) then
    Season := 'Зима'
  else if (Month=3) or (Month=4) or (Month=5) then
    Season := 'Весна'
  else if (Month=6) or (Month=7) or (Month=8) then
    Season := 'Лето'
  else Season := 'Осень';
  writeln('Это ',Season)
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.

Нахождение корней квадратного уравнения

var 
  a,b,c: real;
  x1,x2,D: real;
begin
  writeln('Введите коэффициенты a,b,c квадратного уравнения a*x*x+b*x+c=0: ');
  readln(a,b,c);
  D := b*b - 4*a*c;
  if D<0 then
    writeln('Корней нет')
  else if D=0 then
  begin
    x1 := -b/2/a;
    writeln('Корни совпадют: x1=x2=',x1);
  end
  else
  begin
    x1 := (-b-sqrt(D))/2/a;
    x2 := (-b+sqrt(D))/2/a;
    writeln('Корни: x1=',x1:0:3,' x2=',x2:0:3);
  end;
end.

Словесное наименование сезона по номеру месяца

var 
  Month: integer;
  Season: string;
begin
  write('Введите номер месяца: ');
  readln(Month);
  case Month of
    1,2,12: Season := 'Зима';
    3..5:   Season := 'Весна';
    6..8:   Season := 'Лето';
    9..11:  Season := 'Осень';
    else    Season := 'Вы ввели неверный номер месяца';
  end;
  writeln('Это ',Season)
end.

Определение того, является ли символ цифрой или буквой

var 
  Symbol: char;
begin
  write('Введите символ: ');
  readln(Symbol);
  case Symbol of
    'a'..'z': writeln('Это маленькая английская буква');
    'A'..'Z': writeln('Это большая английская буква');
    '0'..'9': writeln('Это цифра');
  end;
end.

Ссылки

• Программы для начинающих
• Сайт PascalABC.NET: Программы и алгоритмы для начинающих