red_armored
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
uses crt;
type
letters = set of char;
const
nN:letters = ['n','N'];
var
a1,b1,c1,d:real;
choise:char;
x:array[1..2] of real;
k:byte;
procedure kvadrat(a,b,c:real);
begin
clrscr;
d:=sqr(b)-4*a*c;
if d>=0 then
begin
x[1]:=(-b+sqrt(d))/2;
x[2]:=(-b-sqrt(d))/2;
writeln('Корни уравнения : ',x[1],',',x[2]);
end
else
writeln('Корней нет');
end;
begin
clrscr;
repeat
k:=0;
writeln('Уравнение типа ax^2+bx+c,введите a,b,c');
readln(a1);
readln(b1);
readln(c1);
if a1=0 then
begin
writeln('Уравнение линейное,решить?(y/n)');
readln(choise);
if not(choise in nN) then
begin
writeln('Корень -',-b1/c1);
readln;
end
else if (b1=0) and (c1=0) then
begin
writeln('Уравнение имеет один корень - 0');
end
else
kvadrat(a1,b1,c1);
writeln('Повторить?(y/n)');
readln(choise);
if choise in nN then inc(k);
until k=1;
end.
==============================================
Спасибо можешь кидать книгами по C++(если есть) на remy@pochtamt.ru
Народ кидайте задачки(на паскале и C++), практика нужна. |
Тебе я проги накатал... 
Не флеймить! 
