Cant Find mistake

[dikabraz]

добрый вечер всем, очень нужна квалифицированная помощь в поиске ошбке в коде.
сама программа переводит числа из десятичной системы в двоичную, или наоборот, а также может складывать и умножать числа в десятичной и переводить их в двоичную.

PHP код:

Program x;
var s, b, f:string;
   per, per2, i, j, sum, sum2:integer;{10to2}
   summa1, summa2:real;
   n: LongInt;
begin
writeln('числа берутся положительные!');
writeln('если хотите перевести число из десятичной в двоичную, то введите 1');{выбор действия}
writeln('если хотите перевести число из двоичной в десятичную то введите 2');
writeln('если хотите сложить 2 числа в двоичной системе счисления, то введите 3');
writeln('если хотите умножить 2 числа в двоичной системе счисления, то введите 4');
readln(per);
per2:=1;

if per=3 then begin {сложение чисел}
writeln('введите первое и второе число');
readln(summa1, summa2);
n:=summa1+summa2;
per:=1;
per2:=2; 
end;

if per=4 then begin {умножение чисел}
writeln('введите первное и вротое число');
readln(summa1, summa2);
s:=summa1*summa2;
per:=2;
per2:=2;
end;

if per=1 then begin {перевод из десятичной в двоичную}
write('введите десятичное число =');
  if per2=1 then readLn(n) else begin{считывание десятичного числа}
  n:=abs(n);{нахождение модуля числа для правильности рассчетов}
  while n>1 do
    begin
      str(n mod 2, f); {вычисление двоичного числа путем деления на 2}
      n:= n div 2;
      b:= f+b;
    end;
  str(n mod 2,s);
  b:= f+b;
  writeLn('Двоичное число = ',b);
end;
end;

if per=2 then begin {из двоичной в десятичную}
clrscr;
repeat
j:=0;
writeln('Введите число в двоичной системе:');
if per2=1 then Readln(s) else begin
for i:=1 to length(s) do
if not (s[i] in ['0','1']) then {если есть что-то кроме 0 и 1}
 begin
  j:=1;
  writeln('Число введено неверно. Повторите ввод.');
  break;
 end;
until j=0;
sum:=0;{начинаем составлять десятичное число}
for i:=length(s)-1 downto 1 do{идем спредпоследнего знака назад}
 begin
  if s[i]='1' then{если 1}
   begin
    sum2:=1;{составляем очередную степень числа 2}
    for j:=1 to length(s)-i do sum2:=sum2*2;{возводим 2 в степень ее позизии с конца-1}
   end
  else sum2:=0;{если ноль ничего}
  sum:=sum+sum2;{прибавляем очередное слагаемое}
 end;
if s[length(s)]='1' then inc(sum);{если последнее в исходной строке = 1, увеличиваем число на 1}
writeln('Число в десятичной системе = ',sum);
end;
end;
end. 


выводится ошибка №26 Type Mismatch на строке n:=summa1+summa2;

обозначал их как integer- то же самое..
Укажите, пожалуйста, где ошибка? дело горит...

[Mad_Cat]

summa1, summa2:integer;

[dikabraz]

integer поставил, теперь тоже такая же ошибка 26 но уже на n:=summa1*summa2;

[_-Re@l-_]

Проще говоря, вы пытаетесь целочисленному типу присвоить сумму вещественных чисел.

[_-Re@l-_]

Делайте все три переменные longint или все три integer
a теперь вы пытаетесь строке присвоить произведение двух чисел

[Mad_Cat]

n:=Trunc(summa1*summa2);

[dikabraz]

Сообщение от _-Re@l-_

Делайте все три переменные longint или все три integer

делал n, summa1, summa2:integer;
делал longint
все равно такая же фигня 26 ошибка на summa1*summa2

[dikabraz]

Сообщение от Mad_Cat

n:=Trunc(summa1*summa2);

так же....

[dikabraz]

оказывается, я клинический идиот...

PHP код:

if per=3 then begin {сложение чисел} 
writeln('введите первое и второе число'); 
readln(summa1, summa2); 
[COLOR="Red"]n:[/COLOR]=summa1+summa2; 
per:=1; 
per2:=2;  
end; 

if per=4 then begin {умножение чисел} 
writeln('введите первное и вротое число'); 
readln(summa1, summa2); 
[COLOR="#ff0000"]s:[/COLOR]=summa1*summa2; 
per:=2; 
per2:=2; 
end; 


хехехе... спасибо вам за помощь=)

[dikabraz]

PHP код:

 begin
  j:=1;
  writeln('Число введено неверно. Повторите ввод.');
  break;
 end;
until j=0;
sum:=0;{начинаем составлять десятичное число}
for i:=length(s)-1 downto 1 do{идем спредпоследнего знака назад}
 begin
  if s[i]='1' then{если 1}
   begin 


на строке until j=0;
выходит 113 ошибка...
народ, помогите пж-та... все, что знал, перепробовал