Mi nem jó a free pascalban?
Egy olyan gondom lenne hogy itthon unalomból csináltam egy programot amiben a számolást lehet gyakorolni kiírja hogy hány hiba hány jó és hány százalék. A számolás a négy alapművelettel történik Az elején választani lehet hogy melyiket 0, Összeadás 1, Kivonás 2, Szorzás 2,Osztás 4,Véletlen
A program most kb 170 soros ha az elején beírom a 3-ast akkor nem történik semmi vagy kilép és kiír valamit. A ketesnél még müködik, de a véletlennél is összezavarodik kicsit. És ugy van megcsinálva hogy egymás után többször lefut tehát kilépés nélkül akárhányszor lehet probálni jelenleg 10000-szer. A számolásokat és a véletleneket random végzi, de a program tele van for és if ciklusokkal. A kérdés ez miért van hogy a 3-adikat már nem akarja normálisan lefutattni?
válasza:
válasza: válasza:„0, Összeadás 1, Kivonás 2, Szorzás 2,Osztás 4,Véletlen”
Hááát, ha elhiszem, amit írtál, nem lep meg, hogy a hármasra nem ír semmit...
Mellesleg az a 170 sor nekem marha soknak tűnik így látatlanban, ha tényleg csak azt csinálja, amit írtál.
válasza: válasza:@#4:
Megnyitod Jegyzettömbbel, és kimásolod.
Kb 3 hónapja programozunk most kezdtem a középiskolát és itthon is szeretek evvel kisebb programokat csinálni. Most a tömböknél tartunk. Ha ez a probléma megoldodik akkor megcsinálom ugy hogy nehézséget is lehessen állítani. Az elején azért van ennyi Longint hogy ne lógjon ki jobban szeretem ha látom hogy mit írok.
De itt van:
program szamolas;
uses Crt;
var a, b, c, h, p, o, g, v:Longint;
a1, b1, c1, h1, p1, o1, g1:Longint;
a2, b2, c2, h2, p2, o2, g2, g4:Longint;
h3, p3, g3:Longint;
s, s1, s2, s3, a3, b3, o3, c3:real;
Begin
textbackground(9);
Clrscr;
For g4:= 1 to 10000 do
Begin
Writeln('Válassz! Számot írj!');
Writeln('0, Összeadás');
Writeln('1, Kivonás');
Writeln('2, Szorzás');
Writeln('3, Osztás');
Writeln('4, Véletlen');
Readln(v);
if v = 4 then
Begin
Randomize;
v:=random(3);
End;
Clrscr;
if v = 0 then
Begin
Randomize;
h:=0;
p:=0;
For g:=1 to 30 do
Begin
a:=random(10);
b:=random(10);
o:=a+b;
textcolor(11);
Writeln('Feladat:',g,',',' Összesen:30db');
Writeln(a,'+',b,'=');
Readln(c);
if c=o then
Begin
textcolor(10);
Writeln('A válasz helyes!');
textcolor(11);
p:=p+1;
End;
if c<>o then
Begin
textcolor(12);
Writeln('A válasz rossz!');
textcolor(11);
h:=h+1;
End;
Readkey;
Clrscr;
End;
s:=(p/30)*100;
textcolor(14);
Writeln('Rossz:',h,' Jó:',p,' Az eredmény:',s:0:0,'%');
End;
if v = 1 then
Begin
Randomize;
h1:=0;
p1:=0;
For g1:=1 to 30 do
Begin
a1:=random(10);
b1:=random(10);
o1:=a1-b1;
textcolor(11);
Writeln('Feladat:',g1,',',' Összesen:30db');
Writeln(a1,'-',b1,'=');
Readln(c1);
if c1=o1 then
Begin
textcolor(10);
Writeln('A válasz helyes!');
textcolor(11);
p1:=p1+1;
End;
if c1<>o1 then
Begin
textcolor(12);
Writeln('A válasz rossz!');
textcolor(11);
h1:=h1+1;
End;
Readkey;
Clrscr;
End;
s1:=(p1/30)*100;
textcolor(14);
Writeln('Rossz:',h1,' Jó:',p1,' Az eredmény:',s1:0:0,'%');
End;
if v = 1 then
Begin
Randomize;
h2:=0;
p2:=0;
For g2:=1 to 30 do
Begin
a2:=random(10);
b2:=random(10);
o2:=a2*b2;
textcolor(11);
Writeln('Feladat:',g2,',',' Összesen:30db');
Writeln(a2,'X',b2,'=');
Readln(c2);
if c2=o2 then
Begin
textcolor(10);
Writeln('A válasz helyes!');
textcolor(11);
p2:=p2+1;
End;
if c2<>o2 then
Begin
textcolor(12);
Writeln('A válasz rossz!');
textcolor(11);
h2:=h2+1;
End;
Readkey;
Clrscr;
End;
s2:=(p2/30)*100;
textcolor(14);
Writeln('Rossz:',h2,' Jó:',p2,' Az eredmény:',s2:0:0,'%');
End;
if v = 3 then
Begin
Clrscr;
Randomize;
h3:=0;
p3:=0;
For g3:=1 to 30 do
Begin
a3:=random(10);
b3:=random(10);
o3:=a3/b3;
textcolor(11);
Writeln('Feladat:',g3,',',' Összesen:30db');
Writeln(a3,'/',b3,'=');
Readln(c3);
if c3=o3 then
Begin
textcolor(10);
Writeln('A válasz helyes!');
textcolor(11);
p3:=p3+1;
End;
if c3<>o3 then
Begin
textcolor(12);
Writeln('A válasz rossz!');
textcolor(11);
h3:=h3+1;
End;
Readkey;
Clrscr;
End;
s3:=(p3/30)*100;
textcolor(14);
Writeln('Rossz:',h3,' Jó:',p3,' Az eredmény:',s3:0:0,'%');
End;
End;
Readkey;
End.
Kapcsolódó kérdések:
Minden jog fenntartva © 2025, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!