Witajcie. Problem polega na napisaniu programu który dzieli liczby zapisane jako ciąg(string). Np. wrowadzamy 122394823058439( max do 100znaków) i drugi ciąg przez który dzielimy (np 1232534989), obie liczby są zapisane jako typ string. Póki co mam takie coś, ale gdzieś jest błąd. Może ma ktoś jakieś sugestie? Z góry dzięki za pomoc.
Program string;
uses crt;
var
s1,s2: string;
i,j: integer;
v1,v2,v3,v4: longint;
c: char;
Procedure Dzielenie;
begin
v3:=v1 div v2;
v1:=v1-(v3*v2);
v1:=v1*10;
end;
Procedure WczytajZmienne;
begin
clrscr;
writeln('Pierwszy string:');
readln(s1);
writeln('Drugi string:');
readln(s2);
clrscr;
for i:=1 to length(s1) do
v1:=v1*10+ord(s1[i]);
for i:=1 to length(s2) do
v2:=v2*10+ord(s2[i]);
writeln('Twoj wynik to:');
for i:=1 to j do
begin
Dzielenie;
write(abs(v3));
if i=1 then write(',');
end;
readkey;
end;
Procedure LiczbyPo;
begin
clrscr;
writeln('Ile chcesz liczb po przecinku?');
readln(j);
end;
procedure Menu;
begin
clrscr;
c:=' ';
v1:=0;
v2:=0;
v3:=0;
writeln('1. Wykonaj dzielenie');
writeln('2. Zmien ilosc liczb po przeciknu --> ',j);
writeln('0. Wyjdz');
c:=readkey;
case c of
'1': WczytajZmienne;
'2': LiczbyPo;
end;
end;
begin
j:=10;
c:=' ';
while (c<>'0') and (ord(c)<>27) do
begin
Menu;
end;
end.