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

Visualizzazione risultati da 1 a 11 di 11

Discussione: Turbo Pascal Aiuto per problema

Cambio titolo
  1. #1
    Nintendo Player L'avatar di Shuyin
    Registrato il
    03-04
    Località
    Ignota
    Messaggi
    2.562

    Turbo Pascal Aiuto per problema

    Ciao ragazzi, a scuola abbiamo iniziato ad usare il turbo pascal e l'insegnante c'ha lasciato questo problema: Realizzare un programma capace di verificare se un triangolo è rettangolo. Ebbene, come si fa? Credo serva a qualcosa il teorema di pitagora, ma come lo applico? Inoltre la variabile per la verifica deve essere di tipo booleana? Se qualcuno è in grado di postare l'intero algoritmo gliene sarei eternamente grato. (

  2. #2
    Utente Tostapane L'avatar di WarriorXP
    Registrato il
    10-02
    Località
    MI C.le - LE
    Messaggi
    23.429
    Dipende cosa hai in input

  3. #3
    Utente L'avatar di Mozart489
    Registrato il
    03-04
    Messaggi
    46
    Se in input hai due lati, usi pitagora. se in input hai un lato e un angolo, usi sin, cos, sin^-1 e cos^-1 per trovare gli altri lati
    PC: Olivetti Philos COLOR 46
    --------------------------------------------
    Processore: Intel™ 486 con 128 kbyte di cache
    Scheda Grafica: Intel™ 512 kbyte di memoria
    Memoria: 8 Mbyte
    CD: Non Presente
    Schermo: LCD 256 colori 640x480
    Scheda Audio: Beep di sistema
    Alimentatore: A manovella
    Accensione: Previa esclusione del BIOS
    --------------------------------------------

  4. #4
    Utente L'avatar di CPT-JHON-MILLER
    Registrato il
    01-04
    Località
    PD
    Messaggi
    821
    program triang;
    uses crt;
    var c1,c2,i:integer;
    begin
    clrscr;
    writeln('dammi il valore del cateto1 e del cateto2');
    readln(c1,c2);
    i:=sqrt(c1*c1+c2*c2);
    if i>0 then
    writeln('il triangolo è rettangolo')else;
    writeln('il triangolo non è rettangolo');
    readln;
    end.

    ti va bene??

    www.brothersinarmsgame.com

  5. #5
    Utente Tostapane L'avatar di WarriorXP
    Registrato il
    10-02
    Località
    MI C.le - LE
    Messaggi
    23.429
    Citazione CPT-JHON-MILLER
    program triang;
    uses crt;
    var c1,c2,i:integer;
    begin
    clrscr;
    writeln('dammi il valore del cateto1 e del cateto2');
    readln(c1,c2);
    i:=sqrt(c1*c1+c2*c2);
    if i>0 then
    writeln('il triangolo è rettangolo')else;
    writeln('il triangolo non è rettangolo');
    readln;
    end.

    ti va bene??
    Veramente non funziona 'sto programma

  6. #6
    Untochable L'avatar di squall88
    Registrato il
    05-03
    Località
    Nella CPU!
    Messaggi
    684
    Se non capite un cacchio di programmazione non postate messaggi stupidi!

  7. #7
    Utente Tostapane L'avatar di WarriorXP
    Registrato il
    10-02
    Località
    MI C.le - LE
    Messaggi
    23.429
    Mi sa che non hanno capito l'obiettivo del programma ._.
    Comunque Shuyin se decidi di aprire una discussione, poi dovresti seguirla...

  8. #8
    Utente L'avatar di Apocalisse
    Registrato il
    01-04
    Messaggi
    15
    Citazione Shuyin
    Ciao ragazzi, a scuola abbiamo iniziato ad usare il turbo pascal e l'insegnante c'ha lasciato questo problema: Realizzare un programma capace di verificare se un triangolo è rettangolo. Ebbene, come si fa? Credo serva a qualcosa il teorema di pitagora, ma come lo applico? Inoltre la variabile per la verifica deve essere di tipo booleana? Se qualcuno è in grado di postare l'intero algoritmo gliene sarei eternamente grato. (
    Ciao stavo pensando al tuo problema è mi è venuto in mente ke i triangoli devono avere come somma dei angoli 180° quindi pensando alla differenza il programma può venire più o meno così (NN ne sono propio convinto della esecuzione xke lo sto facendo al volo e a grosse linee, e poi sara un bel po ke nn uso pascal)

    Codice:

    Program triangolo;
    var a1, a2, a3: real;
    begin
    writeln ('Scrivi il primo angolo');
    readln (a1);
    writeln ('Scrivi il secondo angolo');
    readln (a2);
    a3:= 180-a1-a2;
    if a3=90 them writeln ('Il triangolo è rettangolo')
    else writeln ('il triangolo non è rettangolo');
    readln;
    end.

    Ciao, spero di averti dato una mano
    Provoca il più bravo
    Muorirai come uno schiavo
    [Hacker]

  9. #9
    Ex admin L'avatar di Lex
    Registrato il
    10-02
    Località
    Udine
    Messaggi
    36.677
    Se si hanno i 3 lati come input basta fare if sqr(ipotenusa)=(sqr(cateto1)+sqr(cateto2) then writeln ('Il triangolo è rettangolo.');
    Senza avere altre specifiche sul programma non posso essere più dettagliato.
    You will die, mortal


    Gli interventi di moderazione sono in rosso e grassetto. Chiarimenti a riguardo in privato.
    A causa di limiti di tempo, non risponderò a questioni relative al forum su MSN salvo in casi di reale emergenza. Se avete bisogno di contattarmi, mandatemi un mp.

  10. #10
    Utente L'avatar di Apocalisse
    Registrato il
    01-04
    Messaggi
    15
    Citazione Lex
    Se si hanno i 3 lati come input basta fare if sqr(ipotenusa)=(sqr(cateto1)+sqr(cateto2) then writeln ('Il triangolo è rettangolo.');
    Senza avere altre specifiche sul programma non posso essere più dettagliato.
    Hai ragione
    Provoca il più bravo
    Muorirai come uno schiavo
    [Hacker]

  11. #11
    Nintendo Player L'avatar di Shuyin
    Registrato il
    03-04
    Località
    Ignota
    Messaggi
    2.562
    Grazie ragazzi, sono riuscito a risolvere.

    Effettivamente non era difficilissimo, ma l'inesperienza mi ha giocato un brutto tiro.

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
  •