esercitazione con pascal su gruppo Rh
interattivo

program RH;
uses crt;
var a,b,c:char;
    s:string;
    esatte,errate,fn,fg:integer;

procedure pausa;
begin
readln;
end;

procedure cancella;
begin
clrscr;
end;

procedure s1(a:char);
begin
gotoxy(5,3);writeln('genitori omozigotici per carattere ');
gotoxy(5,5);writeln('fenotipo genitori');
gotoxy(30,5);writeln(a);
gotoxy(50,5);writeln(a);
gotoxy(5,15);write('numero fenotipi nei figli ? ');readln(fn);
if fn=1 then begin writeln('esatto');esatte:=esatte+1;end
 else begin writeln('errato=era ',1);errate:=errate+1;end;
gotoxy(5,17);write('numero genotipi nei figli ? ');readln(fg);
if fg=1 then begin writeln('esatto');esatte:=esatte+1;end
 else begin writeln('errato=era ',1);errate:=errate+1;end;
gotoxy(5,9);writeln('fenotipo figli');
gotoxy(40,9);writeln(a);
pausa;
gotoxy(5,6);writeln('genotipo genitori');
gotoxy(30,6);writeln(a,a);
gotoxy(50,6);writeln(a,a);
gotoxy(5,7);writeln('gametogenesi');
gotoxy(30,7);writeln(a,s,a);
gotoxy(50,7);writeln(a,s,a);
gotoxy(5,10);writeln('genotipo figli');
gotoxy(40,10);writeln(a,a);
pausa;cancella;
end;

procedure s3(a,b:char);
begin
gotoxy(30,3);writeln('omozigote');
gotoxy(50,3);writeln('eterozigote');
gotoxy(5,5);writeln('fenotipo genitori');
gotoxy(30,5);writeln(a);
gotoxy(50,5);writeln(a);
gotoxy(5,15);write('numero fenotipi nei figli ? ');readln(fn);
if fn=1 then begin writeln('esatto');esatte:=esatte+1;end
 else begin writeln('errato=era ',1);errate:=errate+1;end;
gotoxy(5,17);write('numero genotipi nei figli ? ');readln(fg);
if fg=2 then begin writeln('esatto');esatte:=esatte+1;end
 else begin writeln('errato=era ',1);errate:=errate+1;end;
gotoxy(5,9);writeln('fenotipo figli');
gotoxy(40,9);writeln(a);
pausa;
gotoxy(5,6);writeln('genotipo genitori');
gotoxy(30,6);writeln(a,a);
gotoxy(50,6);writeln(a,c);
gotoxy(5,7);writeln('gametogenesi');
gotoxy(30,7);writeln(a,s,a);
gotoxy(50,7);writeln(a,s,c);
gotoxy(5,10);writeln('genotipo figli');
gotoxy(30,10);writeln(a,a);gotoxy(50,10);writeln(a,c);
pausa;cancella;
end;


procedure s5(a:char);
begin
gotoxy(5,3);writeln('genitori eterozigote,eterozigote ');
gotoxy(5,5);writeln('fenotipo genitori');
gotoxy(30,5);writeln(a);
gotoxy(50,5);writeln(a);
gotoxy(5,15);write('numero fenotipi nei figli ? ');readln(fn);
if fn=2 then begin writeln('esatto');esatte:=esatte+1;end
 else begin writeln('errato=era ',1);errate:=errate+1;end;
gotoxy(5,17);write('numero genotipi nei figli ? ');readln(fg);
if fg=3 then begin writeln('esatto');esatte:=esatte+1;end
 else begin writeln('errato=era ',1);errate:=errate+1;end;
gotoxy(5,9);writeln('fenotipo figli');
gotoxy(30,9);writeln(a);gotoxy(50,9);writeln(c);
pausa;
gotoxy(5,6);writeln('genotipo genitori');
gotoxy(30,6);writeln(a,c);
gotoxy(50,6);writeln(a,c);
gotoxy(5,7);writeln('gametogenesi');
gotoxy(30,7);writeln(a,s,c);
gotoxy(50,7);writeln(a,s,c);
gotoxy(5,10);writeln('genotipo figli');
gotoxy(30,10);writeln(a,a);gotoxy(50,10);writeln(a,c);
gotoxy(40,10);writeln(c,c);
pausa;cancella;
end;

procedure s2(a,b:char);
begin
gotoxy(5,3);writeln('genitori omozigotici per carattere ');
gotoxy(5,5);writeln('fenotipo genitori');
gotoxy(30,5);writeln(a);
gotoxy(50,5);writeln(b);
gotoxy(5,15);write('numero fenotipi nei figli ? ');readln(fn);
if fn=1 then begin writeln('esatto');esatte:=esatte+1;end
 else begin writeln('errato=era ',1);errate:=errate+1;end;
gotoxy(5,17);write('numero genotipi nei figli ? ');readln(fg);
if fg=1 then begin writeln('esatto');esatte:=esatte+1;end
 else begin writeln('errato=era ',1);errate:=errate+1;end;
gotoxy(5,9);writeln('fenotipo figli');
gotoxy(40,9);writeln(a,b);
pausa;
gotoxy(5,6);writeln('genotipo genitori');
gotoxy(30,6);writeln(a,a);
gotoxy(50,6);writeln(b,b);
gotoxy(5,7);writeln('gametogenesi');
gotoxy(30,7);writeln(a,s,a);
gotoxy(50,7);writeln(b,s,b);
gotoxy(5,10);writeln('genotipo figli');
gotoxy(40,10);writeln(a,b);
pausa;cancella;
end;

procedure programmi;
begin
s1(a);s1(c);s2(a,c);s3(a,b);s5(a);
pausa;
end;

begin
cancella;
a:='R';c:='r';s:=' / ';
writeln('esempio trasmissione carattere gruppo sanguigno Rh ');
writeln('Rh+ dominante  R , Rh- recessivo  r');
writeln('vengono proposti vari fenotipi dei genitori');
writeln('si richiede di scrivere numero di fenotipi e genotipi');
writeln('possibili nei figli');
writeln('si conferma o corregge la risposta ');
writeln('si rappresentano i vari fenotipi e genotipi ');
pausa;cancella;
programmi;
end.

indice o inizio