• In diretta da GamesVillage.it
    • News
    • -
    • In Evidenza
    • -
    • Recensioni
    • -
    • RetroGaming
    • -
    • Anteprime
    • -
    • Video
    • -
    • Cinema

Pag 1 di 2 12 UltimoUltimo
Visualizzazione risultati da 1 a 15 di 17

Discussione: programma in pascal che cal.......

Cambio titolo
  1. #1
    Utente L'avatar di aerox
    Registrato il
    10-02
    Messaggi
    5.239

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

    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 ?

  2. #2
    OmFG!!! HelP DAH PallY!!!
    Registrato il
    02-03
    Località
    P.I. Paese Ignobile
    Messaggi
    3.203
    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
    EX FFxi Player [WoW Player]

    Name: Liotix [Frappatappa/Liotix/Evilwarrior/Arrabbiata/Sinredemptor/Portasfiga]
    Race: Ex Hume, Male
    Country: San'Doria
    Rank: 3-3
    Main Job: Ex War lv.57/Brd lv.33 [Priest 70/Hunter 70/Warrior 70/Warlok 70/Paladin 63/Rogue61]
    Sub Job: Nin lv.28-Thf lv.20/Whm lv.16/
    Playing And Rocking on WOW

  3. #3
    Utente L'avatar di aerox
    Registrato il
    10-02
    Messaggi
    5.239
    mi potete spiegare per benino cosa devo scrivere fino alla prima condizione ? da li in p penso di cavarmela ...

  4. #4
    OmFG!!! HelP DAH PallY!!!
    Registrato il
    02-03
    Località
    P.I. Paese Ignobile
    Messaggi
    3.203
    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
    EX FFxi Player [WoW Player]

    Name: Liotix [Frappatappa/Liotix/Evilwarrior/Arrabbiata/Sinredemptor/Portasfiga]
    Race: Ex Hume, Male
    Country: San'Doria
    Rank: 3-3
    Main Job: Ex War lv.57/Brd lv.33 [Priest 70/Hunter 70/Warrior 70/Warlok 70/Paladin 63/Rogue61]
    Sub Job: Nin lv.28-Thf lv.20/Whm lv.16/
    Playing And Rocking on WOW

  5. #5
    OmFG!!! HelP DAH PallY!!!
    Registrato il
    02-03
    Località
    P.I. Paese Ignobile
    Messaggi
    3.203
    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.....
    EX FFxi Player [WoW Player]

    Name: Liotix [Frappatappa/Liotix/Evilwarrior/Arrabbiata/Sinredemptor/Portasfiga]
    Race: Ex Hume, Male
    Country: San'Doria
    Rank: 3-3
    Main Job: Ex War lv.57/Brd lv.33 [Priest 70/Hunter 70/Warrior 70/Warlok 70/Paladin 63/Rogue61]
    Sub Job: Nin lv.28-Thf lv.20/Whm lv.16/
    Playing And Rocking on WOW

  6. #6
    L'avvelenato L'avatar di netstorm
    Registrato il
    07-03
    Località
    Aachen
    Messaggi
    6.345
    Ma funziona? mi è venuto il dubbio perchè secondo me non puoi mettere la variabile "x" come REAL, bensì come char

  7. #7
    Utente L'avatar di aerox
    Registrato il
    10-02
    Messaggi
    5.239
    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 ?
    Ultima modifica di aerox; 13-02-2004 alle 21:57:35

  8. #8
    OmFG!!! HelP DAH PallY!!!
    Registrato il
    02-03
    Località
    P.I. Paese Ignobile
    Messaggi
    3.203
    La x è in string infatti
    EX FFxi Player [WoW Player]

    Name: Liotix [Frappatappa/Liotix/Evilwarrior/Arrabbiata/Sinredemptor/Portasfiga]
    Race: Ex Hume, Male
    Country: San'Doria
    Rank: 3-3
    Main Job: Ex War lv.57/Brd lv.33 [Priest 70/Hunter 70/Warrior 70/Warlok 70/Paladin 63/Rogue61]
    Sub Job: Nin lv.28-Thf lv.20/Whm lv.16/
    Playing And Rocking on WOW

  9. #9
    OmFG!!! HelP DAH PallY!!!
    Registrato il
    02-03
    Località
    P.I. Paese Ignobile
    Messaggi
    3.203
    apici se vuoi che usi le lettere come lettere formanti una parola
    EX FFxi Player [WoW Player]

    Name: Liotix [Frappatappa/Liotix/Evilwarrior/Arrabbiata/Sinredemptor/Portasfiga]
    Race: Ex Hume, Male
    Country: San'Doria
    Rank: 3-3
    Main Job: Ex War lv.57/Brd lv.33 [Priest 70/Hunter 70/Warrior 70/Warlok 70/Paladin 63/Rogue61]
    Sub Job: Nin lv.28-Thf lv.20/Whm lv.16/
    Playing And Rocking on WOW

  10. #10
    Utente L'avatar di aerox
    Registrato il
    10-02
    Messaggi
    5.239
    Ma che cosa è lo string ?
    io conosco solamente gli integer e i real , lo string a cosa serve ? Serve per le parole ?

  11. #11
    OmFG!!! HelP DAH PallY!!!
    Registrato il
    02-03
    Località
    P.I. Paese Ignobile
    Messaggi
    3.203
    Lo string accetta lettere e numeri (Sui numeri non sono sicuro, comunque se sì, solo gli interi)
    EX FFxi Player [WoW Player]

    Name: Liotix [Frappatappa/Liotix/Evilwarrior/Arrabbiata/Sinredemptor/Portasfiga]
    Race: Ex Hume, Male
    Country: San'Doria
    Rank: 3-3
    Main Job: Ex War lv.57/Brd lv.33 [Priest 70/Hunter 70/Warrior 70/Warlok 70/Paladin 63/Rogue61]
    Sub Job: Nin lv.28-Thf lv.20/Whm lv.16/
    Playing And Rocking on WOW

  12. #12
    janky
    Ospite
    ma scusa, non potevi usare un semplice case X of?

  13. #13
    OmFG!!! HelP DAH PallY!!!
    Registrato il
    02-03
    Località
    P.I. Paese Ignobile
    Messaggi
    3.203

    Re: programma in pascal che cal.......

    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
    EX FFxi Player [WoW Player]

    Name: Liotix [Frappatappa/Liotix/Evilwarrior/Arrabbiata/Sinredemptor/Portasfiga]
    Race: Ex Hume, Male
    Country: San'Doria
    Rank: 3-3
    Main Job: Ex War lv.57/Brd lv.33 [Priest 70/Hunter 70/Warrior 70/Warlok 70/Paladin 63/Rogue61]
    Sub Job: Nin lv.28-Thf lv.20/Whm lv.16/
    Playing And Rocking on WOW

  14. #14
    Utente L'avatar di aerox
    Registrato il
    10-02
    Messaggi
    5.239
    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.

  15. #15
    ...ros1k... L'avatar di <TheShop>Evoc Thurner
    Registrato il
    10-03
    Località
    La Spezia
    Messaggi
    7.558
    janky

    ma scusa, non potevi usare un semplice case X of?
    beh in effetti è la prima cosa che deve venire in mente!

Pag 1 di 2 12 UltimoUltimo

Regole di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •