Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Pascal - problemi matematici
Forum - Pascal - problemi matematici

Avatar
la_stefana (Normal User)
Newbie


Messaggi: 1
Iscritto: 02/09/2008

Segnala al moderatore
Postato alle 21:58
Martedì, 02/09/2008
mi servirebbe il programma in pascal di questi due problemini.. grazie in anticipo!!

1. "introdotti da tastiera tre numeri controllare se questi rappresentano le misure dei lati di un triangolo. in tal caso calcolare il perimetro." (controllare che i tre numeri siano positivi; affinchè esista il triangolo, il lato maggiore deve essere minore della somma degli altri e minore della loro differenza.)

2. "introdotti da tastiera calcolare il minimo e il massimo dei 3 numeri introdotti."

grazie :)

Ultima modifica effettuata da WARRIOR il 05/09/2008 alle 10:04
PM Quote
Avatar
Anonymous (Member)
Guru


Messaggi: 1059
Iscritto: 30/07/2006

Segnala al moderatore
Postato alle 22:32
Martedì, 02/09/2008
questo è un forum e si danno aiuti.. non si fanno programmi su richiesta...

tuttavia.. se troverò qualche minuto più tardi, butterò giù qualche riga..

non son difficili...

PM Quote
Avatar
Anonymous (Member)
Guru


Messaggi: 1059
Iscritto: 30/07/2006

Segnala al moderatore
Postato alle 0:01
Mercoledì, 03/09/2008
considerati fortunata perchè qui è raro che si risponde a questo tipo di richieste...

cmq ero in vena e quindi eccoti qua..


Codice sorgente - presumibilmente Delphi
  1. program triangolo;
  2. uses crt;
  3. var a,b,c,d:integer;
  4. begin
  5. clrscr;
  6. writeln('Inserisci 3 numeri');
  7. readln(a,b,c);
  8. d:=a+b+c;
  9.  if not ((a>0) and (b>0) and (c>0)) then
  10.   begin
  11.    writeln('Le misure immesse non sono corrette');
  12.    readln;
  13.   end
  14.  else
  15. if a>b then
  16.  begin
  17.   if a>c then
  18.     begin
  19.      if (a<(b+c)) and (a>abs(b-c)) then
  20.        writeln('i tre numeri possono essere segmenti di un triangolo con perimetro:',d)
  21.      else
  22.       writeln('i tre numero non sono misure dei segmenti di un triangolo');
  23.      readln;
  24.     end
  25.   else
  26.     begin
  27.      if (c<(a+b)) and (c>abs(a-b)) then
  28.       writeln('i tre numeri possono essere segmenti di un triangolo con perimetro:',d)
  29.      else
  30.       writeln('i tre numero non sono misure dei segmenti di un triangolo');
  31.      readln;
  32.     end;
  33.   end
  34. else
  35.  begin
  36.   if (b<(a+c)) and (b>abs(a-c)) then
  37.     writeln('i tre numeri possono essere segmenti di un triangolo con perimetro:',d)
  38.   else
  39.    writeln('i tre numero non sono misure dei segmenti di un triangolo');
  40.   readln;
  41.  end;
  42. readln;
  43. end.


Codice sorgente - presumibilmente Delphi
  1. program maggiore_minore;
  2. uses crt;
  3. var a,b,c,x:integer;
  4. begin
  5.  writeln('inserisci il primo numero');
  6.  readln(a);
  7.  writeln('inserisci il secondo numero');
  8.  readln(b);
  9.  if a>b then
  10.   begin
  11.    x:=a;
  12.    a:=b;
  13.    b:=x;
  14.   end;
  15.  writeln('Inserisci il terzo numero');
  16.  readln(c);
  17.  if (b>c) and (a<c) then
  18.   begin
  19.    x:=b;
  20.    b:=c;
  21.    c:=x;
  22.   end
  23.  else
  24.   begin
  25.    x:=a;
  26.    a:=c;
  27.    c:=b;
  28.   end;
  29.  writeln('numero maggiore: ',c,'; Numero minore: ',a);
  30.  readln
  31. end.




dovrebbero funzionare... fai qualche prova.. e se c'è qualche errore posta qui che provo a capire dve sta..

anche se è meglio lo facessi tu dato che ti ho già dato il piatto pronto..

p.s. scommetto che si tratta di due esercizi per le vacanze vero??

PM Quote