Ładny brzuch
Mam napisa program w TurboPascalu ktry z czytujei dodaje do siebie z pliku textowego dwie liczby 100 cyfrowe
kazda w osobnej lini. Ze zczytaniem sobie poradze tylko mam problem jak je dodac do siebie POMOCY
Robisz to metod dodawania pisemnego :)
Ostatnio pisalem komus cos takiego:
uses crt; const n=3;{ile cyfrowe liczby} var a: array[0..n-1] of integer; b: array[0..n-1] of integer; c: array[-1..n-1] of integer; i,j: integer; begin clrscr; writeln('Podaj liczbe pierwsza'); for i:=0 to n-1 do read(a[i]); writeln('Podaj druga liczbe'); for i:=0 to n-1 do read(b[i]); writeln; for i:=n-1 downto 0 do begin c[i]:=c[i]+a[i]+b[i]; if c[i]>9 then begin c[i]:=c[i]-10; c[i-1]:=1; end; end; for i:=-1 to n-1 do write(c[i]); readln; readln; end.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
kazda w osobnej lini. Ze zczytaniem sobie poradze tylko mam problem jak je dodac do siebie POMOCY
Robisz to metod dodawania pisemnego :)
Ostatnio pisalem komus cos takiego:
uses crt; const n=3;{ile cyfrowe liczby} var a: array[0..n-1] of integer; b: array[0..n-1] of integer; c: array[-1..n-1] of integer; i,j: integer; begin clrscr; writeln('Podaj liczbe pierwsza'); for i:=0 to n-1 do read(a[i]); writeln('Podaj druga liczbe'); for i:=0 to n-1 do read(b[i]); writeln; for i:=n-1 downto 0 do begin c[i]:=c[i]+a[i]+b[i]; if c[i]>9 then begin c[i]:=c[i]-10; c[i-1]:=1; end; end; for i:=-1 to n-1 do write(c[i]); readln; readln; end.