valori di variabile a denominatore

esci altro.htm

program frazione;
uses crt;
var x,v:integer;
y:real;
begin
clrscr;
writeln('risolvere la frazione 10+a/a-2');
writeln('indica il valore da non assegnare alla a=');readln(v);
writeln('valore da assegnare alla lettera a=');readln(x);
if x<>v then
begin
y:=(10+x)/(x-2);
writeln(y:8:2);
end
else writeln('valore di a non accettabile');
writeln('premi invio per proseguire');readln;clrscr;
writeln('risolvere la frazione 12(a-2)/(a-2)');
writeln('indica il valore da non assegnare alla a=');readln(v);
writeln('valore da assegnare alla lettera a=');readln(x);
if x<>v then
begin
y:=12*(x-2)/(x-2);
writeln(y:8:2);
end
else writeln('indeterminata');
writeln('premi invio per proseguire');readln;
clrscr;
end.