Программы перевода из одной системы счисления в другую

Программы перевода из одной системы сч. в другую в Pascal

Программа перевода из 10-ой системы сч. в 2-ю в Pascal
Рассмотрим программу на Pascal
Program numbers_10_2;
var n10, n2, k:longint;
begin
write ('n10='); readln(n10);
k:=1; n2:=0;
repeat
n2:=n2+;
k:=k*;
n10:=n10
until (n10=0);
writeln('n2=',n2)
end.

Программа перевода из 10-ой системы сч. в 2-ю в Pascal
Рассмотрим программу на Pascal
Program numbers_10_2;
var n10, n2, k:longint;
begin
write ('n10='); readln(n10);
k:=1; n2:=0;
repeat
n2:=n2+(n10 mod 2)*k;
k:=k*10;
n10:=n10 div 2
until (n10=0);
writeln('n2=',n2)
end.

Программа перевода из 10-ой системы сч. в с.с. с основанием от 2 до 9 в Pascal
Program numbers_10_p;
var n10, np, k:longint;
p:2..9;
begin
write ('p='); readln(p);
write ('n10='); readln(n10);
k:=1; np:=0;
repeat
np:=np+;
k:=k*;
n10:=n10
until (n10=0);
writeln('n',p,'=',np)
end.

Программа перевода из 10-ой системы сч. в с.с. с основанием от 2 до 9 в Pascal
Program numbers_10_p;
var n10, np, k:longint;
p:2..9;
begin
write ('p='); readln(p);
write ('n10='); readln(n10);
k:=1; np:=0;
repeat
np:=np+(n10 mod p)*k;
k:=k*10;
n10:=n10 div p
until (n10=0);
writeln('n',p,'=',np)
end.

Программа перевода из 2-ой системы сч. в 10-ю в Pascal
Program numbers_2_10;
var n10, n2, k:longint;
begin
write ('n2='); readln(n2);
k:=1; n10:=0;
while (n2<>0) do
begin
n10:=n10+;
k:=k*;
n2:=n2…;
end;
writeln('n10=',n10)
end.

Программа перевода из 2-ой системы сч. в 10-ю в Pascal
Program numbers_2_10;
var n10, n2, k:longint;
begin
write ('n2='); readln(n2);
k:=1; n10:=0;
while (n2<>0) do
begin
n10:=n10+(n2 mod 10)*k;
k:=k*2;
n2:=n2 div 10;
end;
writeln('n10=',n10)
end.

Программа перевода из системы сч. с основанием 2…9 в 10-ю в Pascal
Program numbers_p_10;
var n10, np, k:longint;
p:2..9;
begin
write ('p='); readln(p);
write ('n',p,'='); readln(np);
k:=1; n10:=0;
while (np<>0) do
begin
n10:=n10+;
k:=k*;
np:=np…;
end;
writeln('n10=',n10)
end.

Программа перевода из системы сч. с основанием 2…9 в 10-ю в Pascal
Program numbers_p_10;
var n10, np, k:longint;
p:2..9;
begin
write ('p='); readln(p);
write ('n',p,'='); readln(np);
k:=1; n10:=0;
while (np<>0) do
begin
n10:=n10+(np mod 10)*k;
k:=k*p;
np:=np div 10;
end;
writeln('n10=',n10)
end.

Таблица умножения в Excel

Таблица умножения в Excel

Таблица умножения в Pascal
program Tabl_mul;
var X, Y, Z, p:integer;
begin
write('Введите р (2 readln(p);
writeln (P,'-ичная таблица умножения');
for X:=1 to p-1 do
begin
for Y:=1 to p-1 do
begin
Z:= ... ... ;
Write(Z:3)
end;
writeln
end
end.

Таблица умножения в Pascal
program Tabl_mul;
var X, Y, Z, p:integer;
begin
write('Введите р (2 readln(p);
writeln (P,'-ичная таблица умножения');
for X:=1 to p-1 do
begin
for Y:=1 to p-1 do
begin
Z:=(X*Y div p)*10 +(X*Y) mod p;
Write(Z:3)
end;
writeln
end
end.