7. напишите текст программы (любой язык программирования) для решения следующей на пэвм: с клавиатуры вводится строка типа aх=b (например: 3х=6 или 0.2х=-89). определить х.
Var s:string; a,b:real; begin readln(s); a:=strtofloat(copy(s,1,pos('X',s)-1)); b:=strtofloat(copy(s,pos('=',s)+1,length(s)-pos('=',s))); if (a=0) and (b=0) then begin writeln('X-любое действительное число'); exit; end else if a=0 then begin writeln('Нет корней'); exit; end; writeln(b/a); end.
Var
s:string;
a,b:real;
begin
readln(s);
a:=strtofloat(copy(s,1,pos('X',s)-1));
b:=strtofloat(copy(s,pos('=',s)+1,length(s)-pos('=',s)));
if (a=0) and (b=0) then
begin
writeln('X-любое действительное число');
exit;
end
else
if a=0 then
begin
writeln('Нет корней');
exit;
end;
writeln(b/a);
end.
Пример ввода:
-0.1X=10
Пример вывода:
-100