Алгоритм: треугольник;
Целые:a, b, c;
Начало
Ввести: a, b, c;
Если a=b=c, то вывод ‘да’, иначе вывод ‘нет’
Конец.
Program treugolnik;
Uses crt;
Var a,b,s: integer;
Begin
clrscr;
Writeln(‘введите стороны’);
Read(a,b,c);
if (a=b) and (b=c) then writeln(‘равносторонний‘) else writeln(‘неравносторонний’);
end.
b) Оператор выбора
В Паскале существует конструкция, которая так же дает возможность выполнить некоторые операции в зависимости от определенного условия, но, в отличие от условного оператора, можно рассматривать не два случая (выполнение или невыполнение условия), а больше. Инструкции выполняются в том случае, если значение выражения или переменной совпадает с константой из соответствующего списка.
case Выражение of
Константа 1: begin
<Инструкции 1>;
end;
Константа 2: begin
<Инструкции 2>;
end;
Константа N: begin
<Инструкции N>;
end;
end;
Если это не так, то выполняются инструкции, следующие после else:
case Выражение of
Константа 1: begin
<Инструкции 1>;
end;
Константа 2: begin
<Инструкции 2>;
end;
Константа N: begin
<Инструкции N>;
end
else <Инструкции>;
end;
Пример
По номеру дня недели определить его название.
