Zaverecná práce, knihovna graph. – Pascal – Fórum – Programujte.com

Ahoj, nepomohl by mi někdo se závěrečnou prací? Zadaní je že Program načte dvě čísla ze souboru, vypočte to nejaké fyzikální veličiny a z výsledků pak udělá graf, napsal jsem ho až po výpočet, ale s knihovnou graph zadobře. 

Zatím mám napsano toto:

program MyPrgs1;     
uses   
    Crt,Math;
//const              
//type              
var
F,E:text;               
T,i,pozice,code,L,code1,vysledek: integer;
z,s,V,W: string;

begin
gotoXY(20,5);
WriteLn(#201,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#187);
gotoXY(20,6);    WriteLn(#186,#32, 'Zaverecna Prace ' ,#32,#32,#186);
gotoXY(20,7);    WriteLn(#186,#32, 'Filip Proks   ' ,#32,#32,#32,#32,#186);
gotoXY(20,8);   WriteLn(#186,#32, '2012/2013' ,#32,#32,#32,#32,#32,#32,#32,#32,#32,#186);
gotoXY(20,9);    WriteLn(#186,#32, '3.L' ,#32,#32,#32,#32,#32,#32,#32,#32,#32,#32,#32,#32,#32,#32,#32#186);
gotoXY(20,10);    WriteLn(#200,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#188);
gotoXY(20,11);    writeln('Stiskni enter');
    readkey;
    clrscr;
writeln('Vyber mØýen¡ stiskem 1 a§ 5:');
readln(i);
If i=1 then
begin
Assign(F,'soubor.txt');
Reset(F);
while not Eof(F) do
begin
readln(F,s);
V:=s[1];
W:=s[3];
val(v, T, code);
val(w, L, code1);
writeln(T);
writeln(L);
end;
close(f);
end;

If i=2 then
begin
Assign(F,'soubor1.txt');
Reset(F);
while not Eof(F) do
begin
readln(F,s);
V:=s[1];
W:=s[3];
val(v, T, code);
val(w, L, code1);
writeln(T);
writeln(L);
end;
close(f);
end;
If i=3 then
begin
Assign(F,'soubor2.txt');
Reset(F);
while not Eof(F) do
begin
readln(F,s);
V:=s[1];
W:=s[3];
val(v, T, code);
val(w, L, code1);
writeln(T);
writeln(L);
end;
close(f);
end;
If i=4 then
begin
Assign(F,'soubor3.txt');
Reset(F);
while not Eof(F) do
begin
readln(F,s);
V:=s[1];
W:=s[3];
val(v, T, code);
val(w, L, code1);
writeln(T);
writeln(L);
end;
close(f);
end;
If i=5 then
begin
Assign(F,'soubor4.txt');
Reset(F);
while not Eof(F) do
begin
readln(F,s);
V:=s[1];
W:=s[3];
val(v, T, code);
val(w, L, code1);
writeln(T);
writeln(L);
end;
close(f);
end;

readkey;
clrscr;
vysledek:=(L+T);
gotoXY(20,5);
writeln('Vysledek je :',(4*PI*L)/(T*T):0:2);
readkey;

readkey;
end

Ahoj, Napiš to prosím do pole "vložit zdrojový kód" .. jinak nemám chuť to ani zkoumat, strašně blbě se to čte tefdko

{----------------------------------------------------------------------------}
{ Autor:                                                                     }
{ Program:                                                                   }
{ Datum:                                                                     }
{----------------------------------------------------------------------------}

program MyPrgs1;      { Jmeno programu }
uses    { Seznam knihoven }
    Crt,Math;
//const              { Seznam konstant }
//type               { Seznam typu }
var
F,E:text;                { Seznam globalnich promennych }
T,i,pozice,code,L,code1,vysledek: integer;
z,s,V,W: string;

(* funkce a procedury *)

(* hlavni program *)
begin
gotoXY(20,5);
WriteLn(#201,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#187);
gotoXY(20,6);    WriteLn(#186,#32, 'Zaverecna Prace ' ,#32,#32,#186);
gotoXY(20,7);    WriteLn(#186,#32, 'Filip Proks   ' ,#32,#32,#32,#32,#186);
 gotoXY(20,8);   WriteLn(#186,#32, '2012/2013' ,#32,#32,#32,#32,#32,#32,#32,#32,#32,#186);
gotoXY(20,9);    WriteLn(#186,#32, '3.L' ,#32,#32,#32,#32,#32,#32,#32,#32,#32,#32,#32,#32,#32,#32,#32#186);
gotoXY(20,10);    WriteLn(#200,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#188);
gotoXY(20,11);    writeln('Stiskni enter');
    readkey;
    clrscr;
writeln('Vyber mØýen¡ stiskem 1 a§ 5:');
readln(i);
If i=1 then
begin
Assign(F,'soubor.txt');
Reset(F);
while not Eof(F) do 
begin
readln(F,s); 
V:=s[1];
W:=s[3];
val(v, T, code);
val(w, L, code1);
writeln(T);
writeln(L);
end;
close(f);
end;

If i=2 then
begin
Assign(F,'soubor1.txt');
Reset(F);
while not Eof(F) do 
begin
readln(F,s); 
V:=s[1];
W:=s[3];
val(v, T, code);
val(w, L, code1);
writeln(T);
writeln(L);
end;
close(f);
end;
If i=3 then
begin
Assign(F,'soubor2.txt');
Reset(F);
while not Eof(F) do 
begin
readln(F,s); 
V:=s[1];
W:=s[3];
val(v, T, code);
val(w, L, code1);
writeln(T);
writeln(L);
end;
close(f);
end;
If i=4 then
begin
Assign(F,'soubor3.txt');
Reset(F);
while not Eof(F) do 
begin
readln(F,s); 
V:=s[1];
W:=s[3];
val(v, T, code);
val(w, L, code1);
writeln(T);
writeln(L);
end;
close(f);
end;
If i=5 then
begin
Assign(F,'soubor4.txt');
Reset(F);
while not Eof(F) do 
begin
readln(F,s); 
V:=s[1];
W:=s[3];
val(v, T, code);
val(w, L, code1);
writeln(T);
writeln(L);
end;
close(f);
end;

readkey;
clrscr;
vysledek:=(L+T);
gotoXY(20,5);
writeln('Vysledek je :',(4*PI*L)/(T*T):0:2);
readkey;

readkey;
end.

#2 TheOndrap
a ze to docela pomohlo k citelnosti, co?

Skoda ze se clovek musi vzdy prokousat hromadou chyb nez zjisti, ze to odsazovani k necemu precijen je

#4 KIIV
Sem najivně doufal že dnes ještě někdo používá formátování :)

#1 Proksa
Na první pohled to vypadá syntakticky správně a mělo by to i fungovat, ale otázka je, jestli to, co to dělá, je to, co chceš :-). Hodilo by se vidět zadání. Například nechápu, jak se ze dvou čísel a jednoho výsledku dá udělat graf.

Pár připomínek do začátku:

- Všechny ty úseky "if i=něco then..." dělají to samé, jenom načítají z jiných souborů. Jestli to tak zůstane, není důvod psát stejný kód pětkrát - stačilo by podle i nastavit jméno souboru a pak data jednou načíst. A mimochodem, znáš příkaz Case?
- #32 je mezera a dá se psát i přímo.
- Máš tam spoustu dost chaotického čekání na stisk libovolné klávesy (Readkey). Někdy se čeká víckrát po sobě, takže první stisk nic neudělá. Někdy píšeš "stiskni enter", ale čekáš na cokoli. Někdy říkáš, aby se stisklo 1 až 5, jenže Readln vyžaduje navíc enter.
- Uživatel, který program vidí poprvé a nemá před sebou zdroják, nepochopí, co se vlastně děje, co má zadávat a co znamenají ta čísla, která program zobrazuje.

Víc ti neporadím, protože nevím, co to přesně má dělat.

#6 Mircosoft

Dík za rady ,zadání zní :Vytvořte program který počítá tíhové zrychlení z Harmonických kmitu mechanických soustav.V souboru budou zapsány naměřené hodnoty  Doby kmitu-T a délky kyvadla-L z kterých vypočte tíhové zrychlení a ze všech 5 pokusů poté vytvoří graf.

Máš dvě nezávislé proměnné (T a L) a jednu funkční hodnotu (g). Takže si nejdřív ujasni, jak ten graf má vypadat - tedy co bude x a co y.

Vlastní kreslení grafů jsme tady probírali nedávno: http://programujte.com/…rovo-schema/ , příklad na spuštění grafiky tam najdeš. Podrobnější popis funkcí jednotky Graph je třeba tady: http://mircosoft.mzf.cz/…/ZAKLADY.TXT .

#8 Mircosoft
A ješte mám jeden problém, pracuju v pspadu a překladač mám FPC, vždy když jsem jen zkusil stahout hotový program který využíval jednotku Graph ale nikdy mi nešel vždy mi akorát vypsal chybu... 

Jakou chybu? Jestli "BGI error: graphics not initialized, use Initgraph", tak buď nemáš ve stejném adresáři soubor EGAVGA.BGI, nebo to autor programu zvoral a zadal v initgraphu absolutní cestu k tomu souboru, takže to jinde než na jeho počítači chodit nebude.

#7 Proksa
Ten tvůj program je velmi "zvláštní", navíc mám pocit, že jsi nepochopil zadání.

Cituji: "V souboru budou zapsány naměřené hodnoty... a ze všech 5 pokusů poté vytvoří graf."

Tomu já rozumím tak, že v jednom souboru bude všech pět dvojic naměřených hodnot a ne že budou po dvou v pěti souborech...