Turbo Pascal

hali
nincs vkinek ez a tétel kidolgozva?:A Graph modul (TG) felépítése; leíró és állapottáblája; InitGraph és CloseGraph szerepe

OKJ vizsgára kéne....

c ben hogy tudok int et char ra konvertálni?
(char)valtozot
nem fogadja el

nagy tökre átirtam a programot, erre nem forudl le mert nem találja a gcpp-t<#fejbev>

uses crt;

const
n=3;

type rek = record
x, y : real;
end;

var
i,j,k, egyvonal, esz, derek:longint;
atl:longint;
m2,m1, m:longint;
szam, dszam:longint;
xatl, xq :real;
xi:Array<0..3000> of real;
d2:array<0..3000> of real;
szoras2, szoras, szumma:real;
r1, calpha, cbeta, cdelta: real;
r: array<1..3>of rek;
o: array<1..3>of real;
kiiras, fajlba : boolean;
szoveg, szovegszor: text;
ch: char;

function ksz(x,y:real):real;
begin
ksz:=(x-y)*(x-y);
end;

begin
randomize;
szam:=0;
dszam:=0;
esz:=0;
egyvonal:=0;
clrscr;
writeln;
writeln(' *---------------------------------------------------------------------------*');
writeln(' A programot irta : Borsody Peter G2In3. ');
writeln;
writeln(' A program feladata: ');
writeln(' Becsulje meg , mi annak a valoszinusege , hogy az egysegnegyzet');
writeln(' hataran valasztott harom pont tompaszogu haromszoget alkot .');
writeln(' Van-e , es ha igen , milyen befolyasa a kiserleti adatok megvalasztasanak');
writeln(' a szamitas hatekonysagara .');
writeln(' *---------------------------------------------------------------------------*');
writeln;
write(' * Kerem adja meg, hogy hanyszor vegezzem el a szimulaciot.(max 3 ezer) :');
readln(M2);
if M2>3000 then exit;
write(' * Kerem adja meg, hogy hany kiserletet vegezzek szimulacionkent (max 100 )');
readln(M1);
if M1>100 then exit;
M:=M1*M2;
writeln;
write(' * Az eredmenyeket szeretne a kepernyon latni (i/n) ?');
readln(ch);
if ch='i' then kiiras:=true else kiiras:=false;
ch:='n';
write(' * Az eredmenyeket szeretne fajlba (haromszog.txt,szoras.txt) iratni (i/n) ?');
readln(ch);
if ch='i' then begin fajlba:=true;
assign(szoveg,"haromszog.txt");
rewrite(szoveg);
assign(szovegszor,"szoras.txt");
rewrite(szovegszor);
end
else fajlba:=false;

writeln;
writeln(' * Vegzem a kiserleteket! kerem varjon.');
writeln;

for k:=1 to M2 do
Begin

for j:=1 to M1 do
Begin
for i:=1 to 3 do
Begin
r1:=random(4000)/1000;
if kiiras then write(' ',r1:3:4);
if (r1<4) and (r1>=3) then begin r.x:=0; r.y:=r1-3; end ;
if (r1<3) and (r1>=2) then begin r.x:=r1-2; r.y:=1; end ;
if (r1<2) and (r1>=1) then begin r.x:=1; r.y:=r1-1; end ;
if (r1<1) and (r1>=0) then begin r.x:=r1; r.y:=0; end ;
End;
o<1>:=sqrt( ksz(r<1>.x,r<2>.x)+ksz(r<1>.y,r<2>.y) );
o<2>:=sqrt( ksz(r❤️>.x,r<2>.x)+ksz(r❤️>.y,r<2>.y) );
o❤️>:=sqrt( ksz(r❤️>.x,r<1>.x)+ksz(r❤️>.y,r<1>.y) );
egyvonal:=0;
if o<1>+o<2><=o❤️> then egyvonal:=1;
if o<1>+o❤️><=o<2> then egyvonal:=1;
if o❤️>+o<2><=o<1> then egyvonal:=1;
if egyvonal=1 then begin
esz:=esz+1;
if kiiras then writeln(" - a haromszog csucsai egyvonalra esnek ! ");
if fajlba then write(szoveg,"-1;");
end
else Begin
calpha:=( o<1>*o<1> + o❤️>*o❤️> - o<2>*o<2> ) / ( 2 * o<1> * o❤️> );
cbeta:=( o<1>*o<1> + o<2>*o<2> - o❤️>*o❤️> ) / ( 2 * o<1> * o<2> );
cdelta:=( o❤️>*o❤️> + o<2>*o<2> - o<1>*o<1> ) / ( 2 * o<2> * o❤️> );
if (calpha<0) or (cbeta<0) or (cdelta<0) then begin
dszam:=dszam+1;
if kiiras then writeln(" - a haromszog megfelelo - ");
if fajlba then write(szoveg,"1;");
end;
End;
if kiiras then readln;
End;
if fajlba then writeln(szoveg,"");
Xi:=dszam/M1;
szam:=szam+dszam;
dszam:=0;
End;
writeln;
if fajlba then close(szoveg);
writeln(' * Osszesites kiiratasahoz kerem nyomja meg az ENTER-t *');
readln;
clrscr;

gotoxy(2,6);
writeln(' ',M,' kiserletbol ',szam,' -szor lett tompa szogu.');
writeln(' Ez ',(szam/(M1*M2))*100 :3:4 ,' szazalekot jelent.');
writeln;
szumma:=0;
Xatl:=Szam/M;
for k:=0 to M2 do
d2:= (Xi - Xatl)*(Xi - Xatl);
for k:=0 to M2 do
szumma:=szumma+d2;
szoras2:=szumma/M2;
szoras:=sqrt(szoras);
writeln(' ',M2,' darab szimulaciobol, ',M1,' elemu probabol szamitott szoras:',szoras :4:5);
if fajlba then begin
writeln(szovegszor, M2);
writeln(szovegszor, szoras);
close(szovegszor);
end;

writeln(' es a szoras-negyzet:',szoras2 :4:5);
szumma:=0;
for k:=0 to M2 do
szumma:=szumma+Xi;
writeln(' Az Xatlag=',szumma/M2 :4:5);
writeln;
readln;
readln;


end.

ha készitettem egy programot, megvan az exe fájl annak hogy lehet ikont rakni? hogy valami szép ikonja legyen?

http://www.freepascal.org/, de ha ennyire nem jottel ra...:^\...hat nem is tudom

A freepascal-t honnan tudom letölteni?

Hali! Ha valakit érdekel a progim, az küldjön egy mailt a [email protected]. Pascalban írtam!

uses crt;
const
N = 3;
M1 = 1; { ******************** =100 ***********}
{ Mm2 = 1000;}
type rec = record
x , y : real;
End;

var i,j,k,egyvonal,esz,derek:LongInt;
atl:LongInt;
M2,M : LongInt;
szam,dszam: longint;
Xatl,Xq : real;
Xi:Array<0..3000> of real;
d2:Array<0..3000> of real;
szoras2,szoras,szumma:real;
r1,calpha,cbeta,cdelta:real;
r : array<1..3> of rec;
o : array<1..3> of real; { oldalak hossza }
ch : char;
kiiratas, fajlba : boolean;
t :text;

function ksz(x,y:real) : real;
Begin
ksz:=(x-y)*(x-y); { ket koordinata kulonbsegenek negyzete }
End;

Begin
randomize;
szam:=0;
dszam:=0;
esz:=0;
egyvonal:=0;
// clrscr;
writeln;

writeln;
writeln(' A programot irta : Borsody Péter G 2In3');
writeln(' A program feladata: ');
writeln(' Becsulje meg ,mi annak a valoszinusege, hogy az egysegnegyzet');
writeln(' hataran valasztott harom pont tompaszogu haromszoget alkot.');
writeln(' Van-e, es ha igen, milyen befolyasa a kiserleti adatok megvalasztasanak');
writeln(' a szamitas hatekonysagara.');
writeln;
writeln(' Keram adja meg, hogy hanyszor vegezzem el a kiserletet.(max 3 ezer)');
readln(M2);
if M2>3000 then exit;
M:=M1*M2;

writeln(' A generalt adatok kepernyore kiiratasahoz, kerem nyomja meg az "1" gombot, majd az "ENTER"-t !');
writeln(' A generalt eredmenyek fajlba iratasahoz, kerem nyomja meg az "2" gombot, majd az "ENTER"-t !');
readln(ch);
if ch='1' then kiiratas:=true else kiiratas:=false;
if ch='2' then fajlba:=true else fajlba:=false;
assign(t,'eredmeny.txt');
rewrite(t);
writeln;
writeln('Vegzem a kiserleteket! kerem varjon.');
if kiiratas then writeln(' veletlen szam ');
atl:=round(int( M2 / 20 ));
for k:=0 to M2 do
Begin
for i:=1 to 3 do
Begin
r1:=random(4000)/1000;
// if kiiratas then writeln(' ',r1);
if (r1<4) and (r1>=3) then begin r.x:=0; r.y:=1-r1; end ;
if (r1<3) and (r1>=2) then begin r.x:=1-r1; r.y:=1; end ;
if (r1<2) and (r1>=1) then begin r.x:=1; r.y:=r1; end ;
if (r1<1) and (r1>=0) then begin r.x:=r1; r.y:=0; end ;
End;
o<1>:=sqrt( ksz(r<1>.x,r<2>.x)+ksz(r<1>.y,r<2>.y) );
o<2>:=sqrt( ksz(r❤️>.x,r<2>.x)+ksz(r❤️>.y,r<2>.y) );
o❤️>:=sqrt( ksz(r❤️>.x,r<1>.x)+ksz(r❤️>.y,r<1>.y) );
egyvonal:=0;
if o<1>+o<2><=o❤️> then egyvonal:=1;
if o<1>+o❤️><=o<2> then egyvonal:=1;
if o❤️>+o<2><=o<1> then egyvonal:=1;
if egyvonal=1 then begin esz:=esz+1;
if kiiratas then writeln(' a haromszog csucsai egy vonalra esnek !!!!');
// writeln(t,'-1');
end;
else Begin
calpha:=( o<1>*o<1> + o❤️>*o❤️> - o<2>*o<2> ) / ( 2 * o<1> * o❤️> );
cbeta:=( o<1>*o<1> + o<2>*o<2> - o❤️>*o❤️> ) / ( 2 * o<1> * o<2> );
cdelta:=( o❤️>*o❤️> + o<2>*o<2> - o<1>*o<1> ) / ( 2 * o<2> * o❤️> );
if (calpha<0) or (cbeta<0) or (cdelta<0) then begin
dszam:=dszam+1;
writeln(' a haromszog nem derekszogu ');
//writeln(t,'0');
end else
//writeln(t,'1');
writeln('** a haromszog tompaszogu **');
End;
writeln(t,calpha:8,';',cbeta:8,';',cdelta:8,';');
Xi:=dszam/M1;
szam:=szam+dszam;
dszam:=0;
End;
close(t);
writeln;
writeln(' A szimulacio vege. Nyomja le az ENTER-t!');
readln;
// clrscr;

// gotoxy(2,6);
writeln(M,' kiserletbol ',szam,' -szor lett tompa szogu.');
writeln('Ez ',(szam/(M1*M2))*100 :3:4 ,' szazalekot jelent.');
{ writeln;
writeln('Ha a haromszoget nem alkoto pontokat nem szamoljuk akkor:');
writeln(M - esz,' kiserletbol ',szam,' -szor lett tompa szogu.');
writeln('Ez ',(szam/(M - esz))*100 :3:4 ,' szazalekot jelent.');
writeln;
writeln('Mert ',esz,' -szer nem alkotott haromszoget.');
writeln(' ez ',100*esz/M :3:4,' -szazalekot jelent.');

szumma:=0;
Xatl:=Szam/M;
for k:=0 to M2 do
d2:= (Xi - Xatl)*(Xi - Xatl);
for k:=0 to M2 do
szumma:=szumma+d2;
szoras:=sqrt(szumma/M2);
writeln(M2,' darab ',M1,' elenu kiserletbol szamitott szoras:',szoras :4:5);

szumma:=0; A szorasnegyzet szamitasa:
for k:=0 to M2 do
szumma:=szumma+Xi*Xi;
Xq:=sqrt(szumma/M2);
szoras2:=Xq*Xq-Xatl*Xatl;
writeln('es a szoras-negyzet:',szoras2 :4:5);
szumma:=0;
for k:=0 to M2 do
szumma:=szumma+Xi;
writeln('Az Xatlag=',szumma/M2 :4:5);
writeln;
writeln(' Tehat a kiserletek szamanak novelese nagymertekben csokkenti ');
writeln('a szorast es a szorasnegyzetet.');
repeat until keypressed;
readkey; }
readln;
End.

Free pascalt-töltsél le, az jogtiszta, és még fut is!

Letöltöttem a Turbo Pascal 7.0át. WinXPm van és nem akar rajta elindulni.Bármelyik alkalmazást próbálom elindítani mindig azt írja ki ,hogy az autoexec.nt-nek nem felel meg (hogy az a 8 lábú büdöstalpú marsi pillangó ene rá)
Mit csináljak? A fájlt már letöröltem és de mégis ugyanazt a hibát írja ki.

Köff mindenkinek! Soha nem fogom Delphiben megírni!!!
AMúgy már megvan (44 képet kezelek). Látogassatok el a linuks.try.hu címre és ott megtalálhatjátok a progiaimat (ez a progi most nincs ott!). De figyelmeztetlek, ne kattintsatok a nekattints ide ikonra!!!!
Üdv:B@z from the Linuks Team

Ez Pascal alól nem fog ilyen könnyen mûködni, a kívánt memória meghaladja az alap Pascal képességeit. Ha csak sima, 8 bites képeket tárolsz a pointereken, akkor is képenként 22,5 k memória kell neki, ami 70 darabnál már majdnem másfél mega. Ennyit nem tud neked a heap-ból sem kiadni. Két megoldás lehet:
1. A programodat Delphi-ben írod. Ott full 32 bites hozzáférésed van a memóriához, nem lesz ilyen limit (gyakorlatilag a Win által megcímezhetõ összes memóriát lefoglalhatod, beleértve a swap-et is). Írd konzol alkalmazásként, úgy 99%-ban ugyanaz a forráskód, itt-ott kell csak módosítani (de ezek apróságok).
2. Szerzel egy XMS kezelõ unit-ot - aminek használata sajnos nem annyira egyszerû. Ráadásul használata Win-es környezetben nem túl biztonságos. Az NT/2K/XP vonalon nemigen lesz baja, de a 9x rendszerek hanyatt eshetnek tõle.

mondanám, hogy csináld Delphiben, vagy másképpen Pascalban
esetleg írd körül mit is akarsz csinálni akkor tudunk talán ötletet adni a kivitelezéshez
de adok egy liket ahol biztos találsz segítséget: prog.hu-->pascal a tudástártémákban is keress rá

Hali! Ért itt valaki a memóriakezeléshez?? Mert nekem problémám van vele! Két tömböm van, 35 elemû, pointer típusú. Ezt Getmem eljárással feltöltöm, a size = Imagesize(1,1,150,150) és Pascalos környezetben, ha mindent minimumra leveszek, akkor a 22.-ig jut el, ha megcsinálom exe-be, akkor a második tömb 10. eleméig jut el, aztán kifagy! Most ne azzal gyertek, hogy ne csináljak 70 pointert, mert szükséges! Valahogy ki kéne bõvíteni a memóriát!
Üdv:B@z from the Linuks Team
röff:Heap overflow

Sikerült megcsinálni , ahogy mondtad, köszi !

Hívhatod TRUE-val vagy FALSE-szal. Elõbbinél kirakja, utóbbinál elrejti. Amúgy nagyjából igen.

Köszi , otthon majd kipróbálom... nagyon lamer vagyok programozas-hoz.... szoval ez egy "sima" procedure, amit ., ha a foprogramba berakok, akkor eltunik a cursor ?

Kimaradt a speckó 😊

------------------

Procedure {Public}
Cursor(Switch:Boolean);

------------------

Ez ugye egy Unitból (TPU) lett kimásolva.

Gondolom TEXT mode-ban kellene, mert grafikusan alapból nem is látszik 😊

-------------------------

Procedure
Cursor;
Const
Cur:word=$0607;
Var
R:Registers;
Begin
Case Switch Of
False:Begin
With R Do
Begin
AH:=3;
BH:=0;
Intr($10,R);
Cur:=CX;
AH:=1;
CX:=$2000;
Intr($10,R);
End;
End;
True:Begin
R.AH:=1;
R.CX:=Cur;
Intr($10,R);
End;
End{Case};
End{Proc};

-------------------------
Remélem érthetõ!

Nem gondolod hogy pontosítanod kéne a problémádat?
Mert sztem nem ártana.

Hogyan lehet eltüntetni egy programban a cursor-t ?
kösz a segítséget