Паскаль

[RADIK72]

гугл ?

[Operok.xD]

не могу найти

[kirpichkin]

нету самому надо

[kote pod narkote]

крякай

[Teddy]

хаахх 7-8 класс?

[kote pod narkote]

ахаха сам там же

[Operok.xD]

9 класс

[DeViL]

Задание кинь.Помогу.Только паскаль в технаре допрошли и на дельфи перешли :D:

[armuni]

В книжке по информатике их куча

[Operok.xD]

вот что типо такого я пробовал ошибку пишет сказали правильно вроде но у меня не получается!
Program roots;
Var a,b,c,d,x1,x2: real;
Begin
repeat
writeln('enter a,b,c;a<>0');
readln(a,b,c)
until a<>0;
d:=bb-4ac;
if d>=0 then
begin
x1:=(-b+sqrt(d))/2a;
x2:=(-b-sqrt(d))/2*a;
writeln('x1=',x1,' x2=',x2);
end
else writeln('no roots')
end.

[DeViL]

после каждой строчки ; должна стоять,и условие лучше кинь и го в лс

[MaXi]

Var A, B, C, D, X, X1, X2 : Real;
Begin
Writeln ('Введите коэффициенты уравнения (A, B, C) ');
readln(a,b,c);
If A=0 Then
 If B=0 Then
 If C=0 Then Writeln('X - любое число')
 Else Writeln('Корней нет! ')
 Else
 Begin
 X:=-C/B;
 Writeln('X=',X:8:3);
 End
 Else
 Begin
 D:=B*B-4*A*C;
 If D<0 Then Writeln ('Корней нет! ')
 Else
 Begin
 X1:=(-B+SQRT(D))/2/A;
 X2:=(-B-SQRT(D))/2/A;
 Writeln ('X1=', X1:8:3, ' X2=',X2:8:3);
 End;
 End;
End.

[Operok.xD]

это можно переписывать уже в программу или что то изменять нужно?и что дает этот код?

[Delend]

http://nk-inform.narod.ru/pas/pas.htm#001