-
IT café
Új hozzászólás Aktív témák
-
asuspc96
senior tag
Helló!
Valami szintaxis hibát észlel...én nemtudom már mi nem tetszik neki...
Program masodfoku;
Uses Crt;
Var A,B,C,D,x1,x2,z : Real;
Begin
Clrscr;
Writeln('Kérem az Axˇ2+Bx+C=0 alakú másodfokú egyenlet eggyütthatóit !');
Writeln('kerem adja meg A-t');
readln(A);
Writeln('kerem adja meg B-t');
readln(B);
writeln('kerem adja meg C-t');
readln(C);
z:=B*B-4*A*C;
If z<0 then
begin
writeln('az egyenletnek nincs valos gyoke');
end
else
begin
if 0<=z then
begin
D:=sqrt(z);
end
else
begin
if D>0 then
begin
sqrt(z);
x1:=(-1*B+sqrt(z))/(2*A);
x2:=(-1*B-sqrt(z))/(2*A);
Writeln('a gyoke:' ,x1:5:2);
Writeln('a masik gyoke:' ,x2:5:2);
end
else
begin
if D=0 then
x1:=(-1*B)/(2*A);
Writeln('az egyenlet ketszeres gyoke:' ,x1);
end;
Writeln;
Writeln('Nyomj ENTER-t a kilepeshez.');
Readln;
End.Valaki ?
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- Computex 2024: szimpatikus Montech billentyűzetek a porondon
- Kínai, és egyéb olcsó órák topikja
- ASUS routerek
- MIUI / HyperOS topik
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- PlayStation 5
- Milyen légkondit a lakásba?
- sziku69: Fűzzük össze a szavakat :)
- Politikai mémek
- Realme GT Master Edition - mestermunka
- További aktív témák...
- ASUS ROG STRIX Z690-A DDR4 White fehér garanciával
- Nem használt, hibátlan cuccok eladása brutálisan áron alul - kérlek olvasd el a teljes hirdetést.
- DELL OPTIPLEX 3020 SFF PC, i5-4570 CPU, 8 GB DDR3 RAM
- Szép! HP ZBOOK 15 G6 Tervező Vágó Laptop -60% 15,6" i9-9880H 32/512 QUADRO RTX 3000 6GB FHD
- EVGA GeForce FTW3 ULTRA GAMING RTX 3080 Ti 12GB GDDR6X 384bit videokártya
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen