Aiuto Pascal

[Xaldyn]

Program v_limite;

var m,g,df,r,Ttot,vs,k:real

N:integer;

f,t,v,s,a: array [1..10] of real;

Const g=9,8;

Begin

write ('inserisci N'); readln(n);

write ('inserisci massa della sfera'); readln(m);

write ('inserisci raggio della sfera'); readln®;

write ('inserisci densità fluido'); readln(df);

write ('inserisci costante'); readln(k);

write ('inserisci tempo totale dell'osservazione del moto')

vs:=4/3*pi*(r*r*r);

deltat:=Ttot/N;

v[0]:= 0;

t[0]:= 0;

F[0]:= m*g-df-Vs*g-k*v[0]*v[0];

a[0]:=F[0]/m

ris:= m*g-df*vs*g-k*v*v;

For i:= 1 to N do

Begin

t:= t[i-1]+deltat;

v:= v[i-1]+a[i-1]*deltat;

s:= s[i-1]+v[i-1]*deltat+a[i-1]+1/2*deltat*deltat;

F:= m*g-df*vs*g-k*v*v;

a:= F/m;

end;

 

questo è quanto fatto con la mia prof di Fisica ora i problemi sono molti: non mi ricordo il pascal è da tempo che non lo uso, la prof vuole una tabella ma non sò come farla, qualcuno mi può aiutare?

[Lestat]

Una tabella di cosa??

Spiegati meglio!!

[Xaldyn]

vuole una tabella su pascal su Ttot,s,v,a,F non sò come spiegartelo meglio perchè non l'ho mai fatta

[Linoleum]

Cosa vuol dire tabella?

Devi far vedere come variano v t e balle varie al variare di i?

In ogni caso, sei sicuro di aver scritto tutto?

 

Perchè scrivi

write ('inserisci tempo totale dell'osservazione del moto')

e poi non leggi niente!?

Dove lo salvi il tempo di osservazione!?

Immagino sia Ttot, ma in ogni caso non l'hai inizializzato...

 

Allo stesso modo

deltat:=Ttot/N;

non ha senso: quando hai dichiarato deltat!?

 

Se vuoi poi ti spiego anche cosa fa, ma non è niente di difficile ;)

[André LaCroix]

Uhm....

La "tabella" io l'ho sempre fatta in questo modo:

+----------------+--------------------+
|			  |					 |
+----------------+--------------------+
|			  |				 |
|					|				 |  
|			  |					 |
|			  |				 |
+----------------+--------------------+

Non so se ti può servire.

Per far sì che i dati vengano disposti in modo perfetto, devi usare il formato di stampa (pari a quanti spazi ci sono in ogni riquadro.

Ad esempio, se in ogni riquadro hai 10 spazi, scrivi

write(Variabile:10:2)

ovvero stampa la variabile con 8 cifre intere e 2 decimali.

Non so se sono stato chiaro.

Edited March 5, 2007 by Axel Lucius Kantaròs

[Linoleum]

Secondo me (almeno il mio prof di programmazione all uni fa così) la tabella la vuole scritta a mano...

[Xaldyn]

@Linoleum: Su quello mi sono sbagliato mentre lo facevo non ho scritto Readln(Ttot); :P

per deltat non l'ho messo cmq va in real, per la tabella intendo un qualcosa dove inserire i dati

[Linoleum]

In pratica tu le devi dare un foglio i valori delle variabili?

Comunque quel programma non fa altro che far inserire all'utente un valore per n, m, r, df, k e Ttot.

A questo punto inizializza vs e deltat (ovviamente il loro valore dipende da cosa ha inserito l'utente), poi inizializza t[0] (tempo iniziale), s[0] (spazio iniziale), v[0] (velocità iniziale), F[0] (forza iniziale) e a[0] (accelerazione iniziale).

A questo punto per i=1...N (N è il numero di osservazioni fatte nel tempo Ttot)

calcola quanto vale t, quanto vale s, v, F e a...

[Xaldyn]

quello l'avevo capito, ma non sò come fare sta tabella, purtroppo non ce l'ha spiegata la prof quindi non sò come dirtelo

[Linoleum]

io deciderei dei valori per le variabili fissate, poi farei una tabella con una colonna per le i, una per le t, una per le s, una per le v, una per le F e una per le a.

Poi scrivi i valori di i 1...N nell' apposita colonna e a fianco metti i valori di t, s e così via in funzione di i...

[Xaldyn]

ehm si con tutta la buona volontà ti ringrazio dell'aiuto che mi stai fornendo ma non puoi farlo in versione grafica quello che mi stai dicendo?

[André LaCroix]

Non ti consiglio di farlo in modalità grafica perchè sennò non funzionano più le funzioni della libreria standard (o meglio, funzionano, ma non puoi vederne gli effetti perchè è stato aperto un programma che utilizza la modalità grafica e l'altro programma, quello in modalità testo, è in background).

Tanto per fare un esempio, invece di usare la funzione write devi usare la funzione OutText, se non sbaglio.

[Lestat]

Ma siete sicuri che si tratti di una tabella di questo tipo?

Mi suona strano!

 

Mai sentito di fare una tabella in pascal!

[Linoleum]

Per intenderci, una roba del tipo

n=10

m=100

r=10

df=5

k=2

Ttot=20

vs=4/3*pigreco*1000

deltat=2

A questo punto tabella

| i | t | v | s | F | a |

| 0 | 0 | 0 | 0 | quello che è | quello che è/100 |

| 1 | 2 | 2*(quello che è /100) | ... |

| 2 | ... |

| 3 | ... |

Si capisce meglio cosa intendevo?

[André LaCroix]

Veramente no.

Non puoi fare uno screen di un programmino in Console con Pascal, e far capire anche me?

[Linoleum]

Ragazzi non so se è chiaro: io sto parlando di un foglio di carta su cui è scritto quanto da me detto nel precedente post...

All'uni quando il prof di programmazione voleva una tabella (2 volte in 6 mesi) voleva semplicemente un foglio...

[André LaCroix]

Ma no dai! Allora la proffa di Xaldyn m'ha fatto amminchiare per nulla? (|x

[Xaldyn]

la mia prof è una stronza si è "accorta" solo oggi che non l'avevamo fatto, cmq ecco l'ho rifatto oggi e con qualche modifica:

 

PROGRAM v_Limite;

uses crt,dos;

VAR m,df,r,ttot,vs,k,deltat:real;

n,i:integer;

F,t,v,s,a:array[0..10] of real;

CONST g=9.8;

TAB=5;

 

PROCEDURE Inserimento_dati;

Begin

write ('m = kg '); readln (m);

write ('r = m '); readln ®;

write ('df = kg/V '); readln (df);

write ('k = '); readln (k);

write ('ttot = s '); readln (ttot);

write ('n = '); readln (n);

end;

PROCEDURE Calcolo;

Begin

vs:=4/3*pi*r*r*r;

dt:=ttot/n;

v[0]:=0;

s[0]:=0;

t[0]:=0;

F[0]:=m*g+df*vs*g+k*v[0]*v[0];

a[0]:=F[0]/m;

For i :=0 to N DO

BEGIN

t:=dt+t[i-1];

v:=v[i-1]+a[i-1]*dt;

s:=s[i-1]+v[i-1]*a[i-1]+a[i-1]/2*dt*dt;

F:=m*g-df*vs*g-k*v*v;

a:=F/m;

END

end;

PROCEDURE Uscita_dati;

begin

writeln ('t(s)',TAB,'s(m)',TAB,'v(m/s)',TAB,'a(m/s²)',TAB,'F(N)');

for i:= 0 to n do

begin

writeln;

writeln(t:5:2,TAB,s:5:2,TAB,v:5:2,TAB,a:5:2,TAB,F:5:2);

end;

end;

begin

clrscr;

inserimento_dati;

calcolo;

uscita_dati;readln;

end.

 

Tab ora l'ho messo come const perchè dovrebbe risultarmi come spazio e non come valore numerico, però non sò come farlo riconoscere solo come spazio, qualcuno di voi lo sa?

Edited March 6, 2007 by Xaldyn

[André LaCroix]

Scrivi

TAB = '	 ';

In pratica, così facendo crei una stringa con 5 caratteri BLANK (spazi vuoti).

Edited March 6, 2007 by Axel Lucius Kantaròs

[Xaldyn]

grazie kanta ho avuto la conferma del mio lampo di genio xD;

[Xaldyn]

grazie kanta ho avuto la conferma del mio lampo di genio xD

[Xaldyn]

ragazzi scusate se vi assillo ancora di più ma volevo sapere una cosa, esiste un comando per portare le unità di misura nel sistema internazionale? cioè da metri a kilometri, da grammi a kilogrammi ect.. se esiste mi potete dire come si usa?

[Linoleum]

Scusa ma non puoi semplicemente partire con le unità di misura giuste?

[André LaCroix]

Usa il formato di stampa.

Ad esempio, se il risultato te lo da in metri, scrivi Nomevariabile:cifredavisualizzare:decimalidavisualizzare(omettilo per i valori reali).

[Xaldyn]

se potessi non l'avrei chiesto, purtroppo la nostra prof ama complicarci la vita, anche se a volte se la pia ner culo (molte volte xD), cmq io intendo che se per esempio io inserisco 5cm, ma quando devo calcolare mi serve avere la misura in m, quindi sul calcolo cosa metto per fare in modo che faccia ciò?