Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  tres
Language: C/C++
Code:
     program tesio;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
 scelta:char;
 scelta2:char;
 scelta3:char;
 annocorrente:integer;
 annodinascita:integer;
 eta:integer;
 orale1:integer;
 orale2:integer;
 orale3:integer;
 scritto1:integer;
 scritto2:integer;
 scritto3:integer;
 mediaorale:real;
 mediascritta:real;
 mediatotale:real;
begin
 writeln('tesio');
 writeln;
 writeln;
 writeln('gabriele');
 write('digitare m per maschio e f per femmina: ');
 readln(scelta);
 if scelta='m' then writeln('sesso M')
  else
   writeln('sesso F');
 write('digitare l'' anno corrente:');
 readln(annocorrente);
 write('digitare il proprio anno di nascita: ');
 readln(annodinascita);
 writeln;
 eta:=annocorrente-annodinascita;
 writeln('la tua eta'' attuale e'' di: ',eta,' anni');
 writeln;
 write('inserisci il primo voto orale di informatica: ');
 readln(orale1);
 if orale1<1 then writeln('errore');
 if orale1>10 then writeln('errore');
 write('inserisci il secondo voto orale di informatica: ');
 readln(orale2);
 if orale2<1 then writeln('errore');
 if orale2>10 then writeln('errore');
 write('inserisci il terzo voto orale di informatica: ');
 readln(orale3);
 if orale3<1 then writeln('errore');
 if orale3>10 then writeln('errore');
 write('inserisci il primo voto scritto di informatica: ');
 readln(scritto1);
 if scritto1<1 then writeln('errore');
 if scritto1>10 then writeln('errore');
 write('inserisci il secondo voto scritto di informatica: ');
 readln(scritto2);
 if scritto2<1 then writeln('errore');
 if scritto2>10 then writeln('errore');
 write('inserisci il terzo voto scritto di informatica: ');
 readln(scritto3);
 if scritto3<1 then writeln('errore');
 if scritto3>10 then writeln('errore');
 writeln('digitare a per la media orale, b per la media scritta, c per la media totale');
 readln(scelta2);
 if scelta2='a' then
  begin
   mediaorale:=(orale1+orale2+orale3)/3;
   writeln('la tua media orale e'': ',mediaorale);
  end;
 if scelta2='b' then
  begin
   mediascritta:=(scritto1+scritto2+scritto3)/3;
   writeln('la tua media scritta e'': ',mediascritta);
  end;
 if scelta2='c' then
  begin
   mediatotale:=(orale1+orale2+orale3+scritto1+scritto2+scritto3)/6;
   writeln('la tua media totale e'': ',mediatotale);
  end;
 write('scrivi a per avere i voti piu'' alti, b per i piu'' bassi: ');
 readln(scelta3);
 if scelta3='a' then
  begin
   if (orale1>orale2) and (orale1>orale3) then writeln('il tuo voto piu'' alto di orale e'': ',orale1);
   if (orale2>orale1) and (orale2>orale3) then writeln('il tuo voto piu'' alto di orale e'': ',orale2);
   if (orale3>orale2) and (orale3>orale2) then writeln('il tuo voto piu'' alto di orale e'': ',orale3);
   if (scritto1>scritto2) and (scritto1>scritto3) then writeln('il tuo voto piu'' alto di scritto e'': ',scritto1);
   if (scritto2>scritto1) and (scritto2>scritto3) then writeln('il tuo voto piu'' alto di scritto e'': ',scritto2);
   if (scritto3>scritto2) and (scritto3>scritto1) then writeln('il tuo voto piu'' alto di scritto e'': ',scritto3);
  end;
 if scelta3='b' then
  begin
   if (orale1<orale2) and (orale1<orale3) then writeln('il tuo voto piu'' basso di orale e'': ',orale1);
   if (orale3<orale2) and (orale3<orale1) then writeln('il tuo voto piu'' basso di orale e'': ',orale3);
   if (orale2<orale1) and (orale2<orale3) then writeln('il tuo voto piu'' basso di orale e'': ',orale2);
   if (scritto1<scritto2) and (scritto2<scritto3) then writeln('il tuo voto piu'' basso di scritto e'': ',scritto1);
   if (scritto2<scritto1) and (scritto2<scritto3) then writeln('il tuo voto piu'' basso di scritto e'': ',scritto2);
   if (scritto3<scritto2) and (scritto3<scritto1) then writeln('il tuo voto piu'' basso di scritto e'': ',scritto2);
  end;
 readln; 
end.
          
Comments: