Verilmiş cavablar və yazılan şərhlər (3 cavab var)

Amil (2012-10-14 19:42:50)
Feedback üçün təşəkkürlər :)

Mehman Elxanoglu (2012-10-14 19:36:36)
Sonuncu fraqmentdə xəyali vahidi əlavə etməyi unutmusunuz :) İcazənizlə bəzi "xırda" dəyişiklik edim: [code]begin writeln('x1 = ',-B/2.0/A,'+',Sqrt(-D)/2.0/A,'i'); writeln('x2 = ',-B/2.0/A,'-',Sqrt(-D)/2.0/A,'i'); end; [/code]

Amil (2012-10-13 21:14:13)
[code]program Quadratic; var A,B,C,D: integer; begin write('A = '); readln(A); if (A=0) then begin writeln('Not a quadratic equation.'); halt; end; write('B = '); readln(B); write('C = '); readln(C); D := B*B-4*A*C; if (D=0) then begin writeln('x = ',-B/2.0/A); halt; end; if (D>0) then begin writeln('x1 = ',(-B+Sqrt(D))/2.0/A); writeln('x2 = ',(-B-Sqrt(D))/2.0/A); end else begin writeln('x1 = (',-B/2.0/A,',',Sqrt(-D)/2.0/A,')'); writeln('x2 = (',-B/2.0/A,',',-Sqrt(-D)/2.0/A,')'); end; end. [/code]

Sual və cavabları tam formada göstər

Mövzu üzrə bənzər suallara da baxa bilərsiniz.

Dialoq Dili Dəyişilmir

massiv proqramı qura bilmirəm

Pascalda 4 rəqəmli natural ədədin rəqəmlərini ayırmaq

Pascalda həqiqi ədədlərin çıxışa verilməsi

Bircins diferensial tənlik

Paskal transilyatoru