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 - Procedure pascal
Forum - Pascal - Procedure pascal

Avatar
Crisped (Normal User)
Newbie


Messaggi: 11
Iscritto: 22/02/2013

Segnala al moderatore
Postato alle 20:44
Giovedì, 04/04/2013
Sono ancora qua XD
Questa volta devo dire un programma un pò più complesso, non so come ma ho de problemi con la variabile t, qualche suggerimento?

Codice sorgente - presumibilmente Delphi
  1. program tassa;
  2. uses crt;
  3. var i, n: integer;
  4.     tot, t, metriq: real;
  5.     risp: char;
  6.  
  7. procedure p1(var t: real; metriq: real);
  8.  
  9. begin
  10.   t:= metriq * 2;
  11. end;
  12.  
  13. procedure p2(var t: real; risp: char);
  14.  
  15. Begin
  16.   if (risp= 'S') or (risp= 's') then
  17.   begin
  18.     t:= t + t * 0.20;
  19.   end;
  20. End;
  21.  
  22. procedure p3(var tot: real; t: real);
  23.  
  24. begin
  25.   tot:= tot + t;
  26. end;
  27.  
  28. begin
  29.   clrscr;
  30.   tot:=0;
  31.   writeln('inserisci il totale delle abitazioni');
  32.   readln(n);
  33.   for i:= 1 to n do
  34.   begin
  35.     writeln('inserisci la metratura');
  36.     readln(metriq);
  37.     p1(t, metriq);
  38.     writeln('Ha il giardino?');
  39.     readln(risp);
  40.     p2(risp, t);
  41.     writeln('La tassa da pagare è di euro', t:6:2);
  42.     p3(tot, t);
  43.   end;
  44.   writeln('Il totale da pagare è di euro', tot:6:2);
  45.   writeln('Il numero delle tasse da pagare è', n);
  46.   readln;
  47. end.

Ultima modifica effettuata da Crisped il 04/04/2013 alle 20:44
PM Quote
Avatar
Poggi Marco (Member)
Guru


Messaggi: 969
Iscritto: 05/01/2010

Segnala al moderatore
Postato alle 23:48
Giovedì, 04/04/2013
Ciao!

Il compilatore ti segnala errore di incompatibilità tra i tipi.
Per risolvere basta invertire i termini alla chiamata di p2 ( vedi la riga 40).

PM Quote
Avatar
LittleHacker (Member)
Guru


Messaggi: 1033
Iscritto: 28/04/2009

Segnala al moderatore
Postato alle 1:34
Venerdì, 05/04/2013
Testo quotato
Postato originariamente da Crisped:

Sono ancora qua XD
Questa volta devo dire un programma un pò più complesso, non so come ma ho de problemi con la variabile t, qualche suggerimento?


Non ti rispondo alla domanda, visto che ti ha già risposto Marco...ma ti do un consiglio! Quando chiedi aiuto, non dire questo non va e posti il codice, devi dire questo non va per questo motivo, e poi posti il codide!

PM Quote
Avatar
Crisped (Normal User)
Newbie


Messaggi: 11
Iscritto: 22/02/2013

Segnala al moderatore
Postato alle 7:18
Venerdì, 05/04/2013
Grazie per l'aiuto, comunque va bene!

PM Quote
Avatar
gigisoft (Member)
Guru


Messaggi: 696
Iscritto: 11/10/2008

Segnala al moderatore
Postato alle 17:33
Domenica, 07/04/2013
inoltre, permetti un consiglio?

Per una maggiore compresibilita' per chi legge il codice ( quindi anche per te, e per chi, sul forum vorrebbe aiutarti) sarebbe una buona cosa usare nomi piu' significativi di

p1, p2, p3

in base al reale scopo per cui una funzione o procedura viene concepita.

Ciao. :k:

Luigi.

PM Quote