7 e mezzo cn vettore

k.i.k.k.o.8.9.

Nuovo Utente
23 Feb 2007
8
0
0
salve..mi servirebbe un favore enorme .sapreste dirmi come posso fare il gioco del 7 e mezzo in turbo pascal utilizzando il vettore......grazie mille:crying: :byebye:
 

peter74

Utente Attivo
27 Nov 2006
32
0
0
somma binari

program somma_binari;
uses wincrt;
var
a,b,c:array[1..5] of integer;
i,at,j:integer;
begin
j:=0;
writeln('di quante cifre è composto il primo numero? (max=4cifre)');
readln(j);
writeln('inserisci una x volta le cifre del numero in binario ');
repeat
readln(at);
if (at=0) or (at=1) then
begin
a[j]:=at;
c[j]:=a[j];
j:=j-1;
end
else
writeln('la cifra inserita non è un num binario, inserisci di nuovo la cifra');
until (j=0);
writeln('di quante cifre è composto il secondo numero? (max=4cifre)');
readln(j);
writeln('inserisci una x volta le cifre del numero in binario ');
repeat
readln(at);
if (at=0) or (at=1) then
begin
b[j]:=b[j]+at;
c[j]:=c[j]+b[j];
j:=j-1;
end
else
writeln('la cifra inserita non è un num binario, inserisci di nuovo la cifra');
until (j=0);
(*somma*)
for i:= 1 to 4 do
begin
if c=2 then
begin
c:=0;
c[i+1]:=c[i+1]+1;
end;
if c=3 then
begin
c:=1;
c[i+1]:=c[i+1]+1;
end;
end;
clrscr;
write('primo numero ');
for i:= 4 downto 1 do
write(a);
writeln(' +');
write('secondo numero ');
for i:= 4 downto 1 do
write(b);
writeln(' =');
writeln(' _______');
write('somma numeri ');
for i:= 5 downto 1 do
write(c);
end.
 

Discussioni simili