АлгоритМді түсінетін жандар !!! Мына Д`исКриминантТың алгоритмін жазып беріңдерші:D=b^2-4ac --- Pascal тілінде...!

Question

Бір түсінбесең, алғаш көргендей күй кешеді екенсің...Қысқасы:      D=b^2-4ac <--- Мынаны Pascal тілінде жазу керек..?!        Түсіндірмесімен бірге "шығарып" беріңдерш..                  
 
ОйТт...      (facepalm)  Сауатсыз десең...(               Алдын ала Алғысым. !

Answer 1

Pascal тілінде былай жазылады D:=b *b-4 *a *c; әрі қарай түсіну оңай деп ойлайм ...

Comments

Паскаль дегенде Program деп басталыны бар еді ғой..

Program
бір нәрсе-бәр нәрсе
Var\Тағы бір нәрселер...       
______
___________
____
___     ----- Осылай жазып берсең...

Белгісіз 2.02.2012 пікір

---

program esep1; программа аты
var  d,a,b,c:real; сипаттау бөлімі
begin  операторлар бөлімі
writeln('a,b,c');     шығару
readln(a,b,c); еңгізу
d:= b *b-4 *a *c; формула жазылуы
writeln('d'); шығару
end. есеп соңы.

x1 мен x2 тауып бер деу мүмкін ол есептеу ұзақтау өзім ұмытып қалып отрм))) сәттілік

buen_chico 2.02.2012 пікір

---

Рахмет.      8`әріп

Белгісіз 2.02.2012 пікір

Answer 2

program esep;

var a,b,c,x:real;

x1,x2:real;

d:real;

begin

readln(a,b,c);

d:=b*b-4*a*c;

if  d>0 then

begin

x1:=(-b+sqrt(d))/2*a;

x2:=(-b-sqrt(d))/2*a;

writeln(x1);

writeln(x2);

end;

if d=0 then

x:=(-b)/2*a;

writeln(x);

if d<0 then

writeln('Tendeudin tubiri jok');

readln;

end.