programma in pascal che cal.......

[aerox]

Vorrei fare un piccolo programma in pascal che calcoli le aree delle semplici figure geometriche ( quadrato, triangolo, rettangolo, trapezio ) , e volevo che all'inizio il programma chiedesse :

Di quale figura geometrica vuoi calcolare l'area?

da tastiera si immetteva il nome della figura e poi venissero richiesti i dati necessari, ( Es.: base altezza.) e poi venisse calcolata l'area e comunicata.

Il mio problema è che non so come far riconoscere la scrittura da tastiera , cioè come faccio a mettere la condizione che quando scrivo triangolo mi calcoli l'area del triangolo e quando dico rettangolo quella del rettangolo ?

Le cose che ho fatto finora a scuola sono:
Allora io conosco le condizioni
IF .......THEN ..... ELSE
IF ........ THEN
i cicli
WHILE .........DO
REPEAT.............UNTIL

Mi potete aiutare spiegandomi i vari passaggi ?

[cicciubello]

Dici nel write che se vuole calcolare il rettangolo deve digitare "ret" se vuole il quadrato "quad" ecc.... Dai l'input di leggere e poi vai con la sfilza di condizioni: if, then, else e i cicli

Questo è il modo più semplice. Altrimenti prova ad usare la funzione "keypressed" che però non ho la più pallida idea di come si usi

[aerox]

mi potete spiegare per benino cosa devo scrivere fino alla prima condizione ? da li in p penso di cavarmela ...

[cicciubello]

Una curiosità, è la prima volta che ti avvicini al Pascal?

No, giusto per chiedere, perchè ti voglio dire che è molto intuitivo secondo me come linguaggio e anche semplice. Con applicazione ti divertirai, nei limiti del linguaggio

[cicciubello]

program poi;
var x:string;
a,b,c,area,per,circ:real;
begin
writeln ('Questo programma Š stato ideato e programmato da Marco Alderighi.');
writeln ('Questo programma pu• compiere svariate azioni.');
readln;
writeln ('Questo programma pu• calcolare area e perimetro di quadrato,');
writeln ('triangolo equilatero di lato dato, area e perimetro di rettangolo,');
writeln ('parallelogramma di lato e altezza dati, area e perimetro di rombo');
writeln ('di diagonali date, area e perimetro di trapezio isoscele di basi e');
writeln ('lato dati, area e circonferenza di cerchi di raggio dato.');
readln;
writeln ('Per scegliere l''opzione giusta digita:qua(quadrato),tri(triangolo),');
writeln ('ret(rettangolo),par(parallelogramma),rom(rombo),tra(trap ezio),');
writeln ('che(cerchio).');
readln (x);
if x=('ret') then begin
writeln ('Hai scelto l''opzione rettangolo.');
write ('Inserisci lato:');
readln (a);
write ('Inserisci altezza:');
readln (b);
area:=a*b;
per:=a+a+b+b;
writeln ('Area:',area:0:2);
writeln ('Perimetro:',per:0:2);
readln;
end
else;
if x=('qua') then begin

Ecco come lo impostai io a suo tempo.....

[netstorm]

Ma funziona? mi è venuto il dubbio perchè secondo me non puoi mettere la variabile "x" come REAL, bensì come char

[aerox]

x=('ret')
il mio problema stava lì , non pensavo che leggesse indifferentemente sia numeri che lettere !
di solito io usavo es.:
If x=5 then............. cioè ho usatosempre numeri !
ma con le lettere bisogna usare gli apici oppure è indifferente?

Ma che cosa è lo string ?
io conosco solamente gli integer e i real , lo string a cosa serve ? Serve per le parole ?

[cicciubello]

La x è in string infatti

[cicciubello]

apici se vuoi che usi le lettere come lettere formanti una parola

[aerox]

Ma che cosa è lo string ?
io conosco solamente gli integer e i real , lo string a cosa serve ? Serve per le parole ?

[cicciubello]

Lo string accetta lettere e numeri (Sui numeri non sono sicuro, comunque se sì, solo gli interi)

[janky]

ma scusa, non potevi usare un semplice case X of?

[cicciubello]

aerox

IF .......THEN ..... ELSE
IF ........ THEN
i cicli
WHILE .........DO
REPEAT.............UNTIL

Mi potete aiutare spiegandomi i vari passaggi ?

Ma tu hai fatto i cicli e non conosci la variabile string? Strano

[aerox]

Non capisco dove ho sbagliato .............. dite un pò voi:

volevo fare in modo che all'inizio dicesse
" vuoi calcolare area o perimetro? "
dopo di che facesse scegliere tra un pò di figure.
Il problema è che il perimetro me lo calcola mentre quando dico
area non mi chiede di quale figura ma si chiude il programma !
Ho paura di aver sbagliato a mettere un pò di end........ dato che il programma mi chiede di mettere un pò di end conn il punto e virgola ! Per chiudere tutti i begin che ho aperto !

Ah per fare questo programma ho usato due variabili string la x e la y ,
x per la prima domanda.
y per la seconda.

[<TheShop>Evoc Thurner]

janky

ma scusa, non potevi usare un semplice case X of?

beh in effetti è la prima cosa che deve venire in mente!