Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Все лабораторные работы по паскалю / 7 лаб. Подпрограммы / procedure / Program5
.pas uses crt;
var dva,stepen,des,ost,dec: integer;
dvo: string;
//процедура перевода из двоичной в десятичную
procedure bindec;
begin
stepen:=1;
while dva>0 do begin
ost:=dva mod 10;
ost:=ost*stepen;
stepen:=stepen*2;
des:=des+ost;
dva:=dva div 10;
end;
end;
//процедура перевода из десятичной в двоичную
procedure decbin;
begin
while dec>0 do begin
if dec mod 2=0 then
dvo:=dvo + '0'
else begin
dvo:=dvo+'1';
dec:=dec-1;
end;
dec:=dec div 2;
end;
end;
begin
write('Введите двоичное число: ');
readln(dva);
bindec;
writeln('Десятичное число: ',des);
write('Введите десятичное число: ');
readln(dec);
decbin;
writeln('Двоичное число: ',dvo);
end.
var dva,stepen,des,ost,dec: integer;
dvo: string;
//процедура перевода из двоичной в десятичную
procedure bindec;
begin
stepen:=1;
while dva>0 do begin
ost:=dva mod 10;
ost:=ost*stepen;
stepen:=stepen*2;
des:=des+ost;
dva:=dva div 10;
end;
end;
//процедура перевода из десятичной в двоичную
procedure decbin;
begin
while dec>0 do begin
if dec mod 2=0 then
dvo:=dvo + '0'
else begin
dvo:=dvo+'1';
dec:=dec-1;
end;
dec:=dec div 2;
end;
end;
begin
write('Введите двоичное число: ');
readln(dva);
bindec;
writeln('Десятичное число: ',des);
write('Введите десятичное число: ');
readln(dec);
decbin;
writeln('Двоичное число: ',dvo);
end.
Соседние файлы в папке procedure