İKT sual-cavab sistemi

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.

Cavablamaq üçün sağ sütundan hesaba daxil olmaq lazımdır

Mehman Elxanoglu

(19:36, 14/10/2012 ) #21727

Sonuncu fraqmentdə xəyali vahidi əlavə etməyi unutmusunuz 🙂
İcazənizlə bəzi “xırda” dəyişiklik edim:

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;

Cavablamaq üçün sağ sütundan hesaba daxil olmaq lazımdır

Amil

(19:42, 14/10/2012 ) #21728

Feedback üçün təşəkkürlər 🙂

Cavablamaq üçün sağ sütundan hesaba daxil olmaq lazımdır

Bu suala aid öz sualım var:
Sual verin

Bu suala cavab vermək istəyirəm:
Cavab verin

Cavab verin

Cavab yazmaq üçün lütfən sağ sütundan və ya buradan hesaba daxil olun.

Üzvlər üçün giriş

Qeydiyyat

Şifrəni unutmusunuz?

Elan qutusu

Son cavablar və şərhlər

Software Developer cavab verdi - Qırılmış nömrə nə vaxt tam bağlanır (1 gün əvvəl)

Emil Imanov cavab verdi - Rus dilindən mətni tərcümə etmək (1 gün əvvəl)

Software Developer cavab verdi - Payoneer kartdan pul çıxartdıqda vergi (3 gün əvvəl)

Software Developer cavab verdi - Wise vasitəsilə bank kartına pul köçürmə (7 gün əvvəl)

Software Developer cavab verdi - Rus dilindən mətni tərcümə etmək (7 gün əvvəl)

Cənab cavab verdi - Almanca söz bazası yığmaq (10 gün əvvəl)

rdrobert cavab verdi - Mikrofon süngərinə yazı (11 gün əvvəl)

rdrobert cavab verdi - Yerli virtual olaraq dost tapmaq platforması (11 gün əvvəl)

rdrobert cavab verdi - Almanca söz bazası yığmaq (11 gün əvvəl)

rdrobert cavab verdi - Playstation 4 almaq, Playsation klub açmaq (11 gün əvvəl)

rdrobert cavab verdi - Proqramistin ixtsasi hansidir? (11 gün əvvəl)

Software Developer cavab verdi - Azercell Kabinetim aplikasiyasında İstəSən tarifi haqqında (13 gün əvvəl)

Software Developer cavab verdi - Proqramistin ixtsasi hansidir? (13 gün əvvəl)

byshako cavab verdi - Google Azərbaycan nömrələrini qəbul etmir (23 gün əvvəl)

rdrobert cavab verdi - Honeygain, passiv gelir (24 gün əvvəl)

Lider istifadəçilər

Software Developer - 615 xal

E. Hacı - 607 xal

Onar Alili - 526 xal

Dilsuz - 448 xal

Cabbarov Sübhan - 434 xal

Maqa - 346 xal

Ruslan Butdayev - 328 xal

Namiq Bəndəli - 297 xal

U.Tarlan - 244 xal

Meherremoff - 234 xal

Sistemə daxil olmuş 23237 sualdan 92%-dən çoxu cavablandırılmışdır.

Proyekt haqqında