Условный оператор и оператор выбора. Тексты программ
Материал из Вики проекта PascalABC.NET
Минимум из двух значений
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.