{ SCITANIE.PAS Copyright (c) Vird } { Program ktory nacita 2 velke cisla aj viac ako 100 miestne } { a scita ich. } { } { Author: Vird } { Datum: 20.01.2007 http://www.trsek.com } program cisla; uses crt; type TVelCislo=record cc:string; dlzka:integer; {dlzka retazca} end; var c,vc:TVelCislo; pom:array[1..100]of integer; m,n,i,x,d,d1,d2,d3:integer; procedure nacit; begin write('Zadaj 1 cislo = '); readln(c.cc); c.dlzka:=length(c.cc); write('Zadaj 2 cislo = '); readln(vc.cc); vc.dlzka:=length(vc.cc); write('Vysledok je = '); end; procedure PripocitajVC(cislo:TVelCislo; var vcislo:TVelCislo); begin i:=0; {...............ZACIATOK USEKU...........} if cislo.dlzka>=vcislo.dlzka then {zaciatok ked cislo1>cislo2} begin n:=vcislo.dlzka; m:=cislo.dlzka; while i<=m do begin i:=i+1; val(cislo.cc[(m-i)+1],d1,d3); if i<=n then val(vcislo.cc[(n-i)+1],d2,d3) else d2:=0; d:=d1+d2+x; if d>=10 then begin pom[i]:=d mod 10; x:=1; end else begin pom[i]:=d; x:=0; end; end; if x>0 then pom[m+1]:=x; if pom[m+1]>0 then write(pom[m+1]); end; for i:=m downto 1 do write(pom[i]); if cislo.dlzka=10 then begin pom[i]:=d mod 10; x:=1; end else begin pom[i]:=d; x:=0; end; end; if x>0 then pom[m+1]:=x; if pom[m+1]>0 then write(pom[i]); for i:=m downto 1 do write(pom[i]); {.....KONIEC USEKU........} end; end; begin writeln('Program na scitanie 2 n-miestnych cisel'); nacit; pripocitajvc(c,vc); readln; end.