Исправить программы так, чтобы она решала задачу без использования else

[rypkina]

Помогите пожалуйста исправить 2 задачи, чтобы решались без слова else


Задача 1

c={a-b/ab, если a>b
{a^b, если a=<b

Program Lab2a;
Var 
a,b,c:real;
Begin
writeln(‘Введи a,b’);
read(a,b);
if a>b 
then c:=(a-b)/(a*b)
else c:=exp(b*ln(a));
writeln(‘c=’, c:10:3);
End.

Задача 2

c={2, a=0
{3, 1=<a=<10
{4, a=-1 или a=11
{5, иначе

Program Lab2b;
Var 
a,c:integer;
Begin
read(a);
case a of 
0: c:=2;
1..10: c:=3;
-1,11: c:=4 
else c:=5
end;
writeln(c);
End.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

Сообщение от rypkina

Помогите пожалуйста исправить 2 задачи, чтобы решались без слова else

глупость какая. а чем else то помешал? Особенно в первой задаче!

ну, впрочем, держите:

Program Lab2a;
Var 
a,b,c:real;
Begin
  writeln(‘Введи a,b’);
  read(a,b);
  c := 0;
  if a>b then c:=(a-b)/(a*b);
  if a<=b then  c:=exp(b*ln(a));
  writeln(‘c=’, c:10:3);
End.

Program Lab2b;
Var 
  a,c:integer;
Begin
  read(a);
  c:=5;
  if a=0 then c:=2;
  if (a>=1) and (a<=10)  c:=3;
  if (a=-1) or (a=11)  c:=4;
  writeln(c);
End.

[rypkina]

Условия лабораторной такие
Спасибо)

[Ottava]

Можно просто вынести перед if оператор из else:

Program Lab2a;
Var 
a,b,c:real;
Begin
writeln(‘Введи a,b’);
read(a,b);
c:=exp(b*ln(a));
if a>b 
then c:=(a-b)/(a*b)
writeln(‘c=’, c:10:3);
End.

Во второй программе - вынести оператор из else и поставить его перед case