Есть код на паскале, который считает выражение и воспрещает ввод букв.
Есть код на паскале, который считает выражение и воспрещает ввод букв. Необходимо сделать проверку знаменателя на 0 обоих выражений, и вывести текст в случае нуля
PascalABC
program aip;
var
fltA,fltB,fltB2:real;
code:integer;
function ip(A:real):real;
var A1:string;
begin
write('Введите значение А= ');
//--------
repeat
readln(A1);
val(A1,A,code);
if (codelt;gt;0) then writeln('no');
until (Agt;0);
//-------
ip:=A;
end;
begin
fltA:=ip(fltA);
fltB:= ((1-2*sin(fltA)*sin(fltA))/(1+sin(2*fltA)));
fltB2:= ((1-tan(fltA))/(1+tan(fltA)));
writeln('1-ая формула ',fltB:5:5);
writeln('2-ая формула ',fltB2:5:5);
end.
program aip;
var
fltA,fltB,fltB2:real;
code:integer;
function ip(A:real):real;
var A1:string;
begin
write('Введите значение А= ');
//--------
repeat
readln(A1);
val(A1,A,code);
if (codelt;gt;0) then writeln('no');
until (Agt;0);
//-------
ip:=A;
end;
begin
fltA:=ip(fltA);
if абс(1+sin(2*fltA)) lt; 0.000001 then begin
writeln('Delenie na nol v pervoy formule');
end else begin
fltB:= ((1-2*sin(fltA)*sin(fltA))/(1+sin(2*fltA)));
writeln('1-ая формула ',fltB:5:5);
end;
if абс(1+tan(fltA)) lt; 0.000001 then begin
writeln('Delenie na nol vo vtoroy formulte');
end else begin
fltB2:= ((1-tan(fltA))/(1+tan(fltA)));
writeln('2-ая формула ',fltB2:5:5);
end;
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.