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

Содержание

Слайд 2

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

 

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

Слайд 3

Программа перевода из 10-ой системы сч. в 2-ю в 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.

Слайд 4

Программа перевода из 10-ой системы сч. в 2-ю в 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+(n10 mod 2)*k;
k:=k*10;
n10:=n10 div 2
until (n10=0);
writeln('n2=',n2)
end.

Слайд 5

Программа перевода из 10-ой системы сч. в с.с. с основанием от 2

Программа перевода из 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.

Слайд 6

Программа перевода из 10-ой системы сч. в с.с. с основанием от 2

Программа перевода из 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.

Слайд 7

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

Program numbers_2_10;
var n10,

Программа перевода из 2-ой системы сч. в 10-ю в Pascal Program numbers_2_10;
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.

Слайд 8

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

Program numbers_2_10;
var n10,

Программа перевода из 2-ой системы сч. в 10-ю в Pascal Program numbers_2_10;
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.

Слайд 9

Программа перевода из системы сч. с основанием 2…9 в 10-ю в Pascal

Program

Программа перевода из системы сч. с основанием 2…9 в 10-ю в Pascal
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.

Слайд 10

Программа перевода из системы сч. с основанием 2…9 в 10-ю в Pascal

Program

Программа перевода из системы сч. с основанием 2…9 в 10-ю в Pascal
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.

Слайд 11

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

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

Слайд 12

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

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

Слайд 13

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

program Tabl_mul;
var X, Y, Z, p:integer;
begin
write('Введите р (2

Таблица умножения в Pascal program Tabl_mul; var X, Y, Z, p:integer; begin
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.

Слайд 14

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

program Tabl_mul;
var X, Y, Z, p:integer;
begin
write('Введите р (2

Таблица умножения в Pascal program Tabl_mul; var X, Y, Z, p:integer; begin
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.
Имя файла: Программы-перевода-из-одной-системы-счисления-в-другую.pptx
Количество просмотров: 104
Количество скачиваний: 0