Регистрация
енот252
25.09.2022 08:55
Информатика
Есть ответ 👍

Нужно написать программу которая возводит число(n) в какой то системе счисления(p) в какую то другую (q). (системы счисления до 10) самое главное, не понимаю как перевести число в десятичную систему счисления на паскале(не всю если программу то хотя бы этот цикл по возведению числа в степень) .

202
448
Посмотреть ответы 2

Ответы на вопрос:

nikbayy
nikbayy
4,5(47 оценок)
Function atodec(n: string; k: integer): longint; { перевод из системы по основанию k в десятичную } var   i: integer;   pa,s: longint; begin   s: =0;   pa: =1;   for i: =length(n) downto 1 do begin       s: =s+pa*(ord(n[i])-ord('0'));       pa: =pa*k       end;   atodec: =s end; function dectoa(n: longint; k: integer): string; { перевод из десятичной системы в систему по основанию k } var   s: string;   c: integer; begin   s: ='';   c: =ord('0');   while n> 0 do begin       s: =chr(c+n mod k)+s;       n: =n div k       end;   dectoa: =s end; function atob(s: string; a,b: integer): string; { перевод из системы по основанию a в систему по основанию b } begin   atob: =dectoa(atodec(s,a),b) end;       var   a,b: integer;   n: string; begin   write('число в c/c по основанию [2; 10]: '); readln(n);   writeln('укажите исходное и результирующее основания: ');   read(a,b);   writeln(n,'(',a,') = ',atob(n,a,b),'(',b,')'); end. пример решения число в c/c по основанию [2; 10]: 643342414 укажите исходное и результирующее основания: 7 9 643342414(7) = 80050347(9)
Aslihaaan
Aslihaaan
4,5(47 оценок)

{кажется так. если будет ощибка в лс напиши}

program rrr;

uses crt;

var a,b,c,s: integer; {если будут дробные значения то вместо integer ставь real}

begin

writeln('введи стороны треугольника: '); read(a,b,c);

if a*a=b*b+c*c then

begin

s: =b*c/2;

writeln('площадь=',s);

end

else if b*b=a*a+c*c then

s: =a*c/2;

writeln('площадь=',s);

end

else if  c*c=a*a+b*b then

s: =a*b/2;

writeln('площадь=',s);

end

else s: =a+b+c;

writeln('периметр= ',s);

readln;

end.

Популярно: Информатика