From 33d784311eb2dca7e8d19102e9df69fbdd470bd9 Mon Sep 17 00:00:00 2001
From: materus <materus@podkos.pl>
Date: Sun, 17 Nov 2024 20:43:42 +0100
Subject: [PATCH] =?UTF-8?q?R=C3=B3wnanie=20Kwadratowe=20-=20Pascal?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../zad1_rownanie_kwadratowe.pas              | 44 +++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 Algorytmy i struktury danych/Pascal/AiSD5_C2 Ćwiczenie 2/zad1_rownanie_kwadratowe.pas

diff --git a/Algorytmy i struktury danych/Pascal/AiSD5_C2 Ćwiczenie 2/zad1_rownanie_kwadratowe.pas b/Algorytmy i struktury danych/Pascal/AiSD5_C2 Ćwiczenie 2/zad1_rownanie_kwadratowe.pas
new file mode 100644
index 0000000..17c0208
--- /dev/null
+++ b/Algorytmy i struktury danych/Pascal/AiSD5_C2 Ćwiczenie 2/zad1_rownanie_kwadratowe.pas	
@@ -0,0 +1,44 @@
+program rownanie_kwadratowe;
+var
+   a,b,c   : Double;
+   x,x1,x2 : Double;
+   Delta   : Double;
+begin
+   write('Podaj a: ');
+   ReadLn(a);
+   write('Podaj b: ');
+   ReadLn(b);
+   write('Podaj c: ');
+   ReadLn(c);
+
+
+   
+   if a=0 then
+   begin
+      x:=c/b;
+      writeln('To jest rownanie liniowe');
+      writeln(x:0:5); // Wypisze pięć miejsc po przecinku zamiast naukowej notacji
+   end else
+   begin
+      Delta:=b*b-4*a*c;
+      if Delta < 0 then
+         writeln('Brak rozwiazan')
+      else
+      begin
+         if Delta > 0 then
+         begin
+            x1:=(-b - Sqrt(Delta))/(2*a);
+            x2:=(-b + Sqrt(Delta))/(2*a);
+            writeln('Dwa pierwiastki');
+            writeln(x1:0:5);
+            writeln(x2:0:5);
+         end else 
+         begin
+            x:=b/(2*a);
+            writeln('Jeden pierwiastek');
+            writeln(x:0:5);
+         end;
+      end;
+      
+   end;
+end.