- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- votlage71: Kábel menedzsment
- gban: Ingyen kellene, de tegnapra
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- droidic: Időutazás floppyval: A 486-os visszavág PCem-men
- btz: Internet fejlesztés országosan!
- bambano: Bambanő háza tája
- Meggyi001: Nyilvános wc-k.....még mindig hiánypótló...
Hirdetés
-
LOGOUT
Ú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!
- Szinte új! 3 Hónapos! Playstation 5 Slim Disc (Lemezes) Kiadás! Garancia: 2027.05.15
- GYÖNYÖRŰ iPhone 13 Pro 256GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS3074, 100% Akkumulátor
- HIBÁTLAN iPhone 13 512GB Starlight -1 ÉV GARANCIA - Kártyafüggetlen, MS3076, 100% Akkumulátor
- Új, Garanciális (1-3ÉV) Gamer PC-Számítógép, néve szóló számlával! I5 14400F / RTX 5060 / 32GB DDR5
- GYÖNYÖRŰ iPhone 13 mini 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3136, 95% Akkumulátor
Állásajánlatok
Cég: FOTC
Város: Budapest