Miért lép ki a free pascal programom a folyamat lefutása után?
Van egy free pascal programom, amit órán megcsináltunk. A házim az, hogy a program lefutása után ne lépjen ki a programból, hanem billentyű leütésre tegye meg azt.
Így néz ki:
Program osszeadas;
var
a,b,c : integer;
begin
writeln('add meg az első számot');
read (a);
writeln('add meg a második számot');
read (b);
c:=a+b;
write(a,'+',b,'=',c);
end.
Emlékeim szerint régebbi FP (ide) változatokban volt ilyen jelenség. Azonban nem az ide-ből, hanem terminálból/parancssorból futtatva programokat jól működtek.
Melyik FPC verziót használod?
Melyik FP (ide) verziót használod?
A "helló világ" egy ReadLn-nel a végén nálam hibátlanul megy a következő változatokkal (vár az Enter-re amikor kell):
FP (ide/linux) 1.0.12 2012/08/24
FPC 2.6.0
Ezt használom.
Free Pascal IDE for Win32 for i386
Version 1.0.12 2013/02/12
(Complier version 2.6.2)
readln- el nekem se működött de én igy oldottam meg:
Program osszeadas;
uses crt;
var
a,b,c : integer;
begin
writeln('add meg az első számot');
read (a);
writeln('add meg a második számot');
read (b);
c:=a+b;
write(a,'+',b,'=',c);
readkey;
end.
am ha azt akarod hogy csak n betűre lépjen ki akkor én igy csinálnám:
Program osszeadas;
var
a,b,c : integer;
begin
writeln('add meg az első számot');
read (a);
writeln('add meg a második számot');
read (b);
c:=a+b;
write(a,'+',b,'=',c);
end.
nem ez a legjobb mód de most ez jutott eszembe
ja bocs így :
Program osszeadas;
uses crt;
var a,b,c : integer;
p,n:char;
begin
clrscr;
n:='n';
writeln('add meg az első számot');
read (a);
writeln('add meg a második számot');
read (b);
c:=a+b;
write(a,'+',b,'=',c);
repeat;
read(p);
until p=n;
end.
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, 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!