Bài toán chuyển đổi cơ số (thọ)

BÀI TOÁN CHUYỂN ĐỔI CƠ SỐ: Nhập cơ số vào, số vào và cơ số ra, đổi số vào ở cơ số vào thành số ra ở cơ số ra?. có kiểm tra dữ liệu khi nhập và cho phép nhập lại.

BÀI TOÁN CHUYỂN ĐỔI CƠ SỐ: Nhập cơ số vào, số vào và cơ số ra, đổi

số vào ở cơ số vào thành số ra ở cơ số ra? có kiểm tra dữ liệu khi nhập và cho phép nhập lại Cơ số vào và cơ số ra có thể nhận giá trị từ 2 đến 36

Ví dụ 1: cơ số vào : 16

số vào: 1f

cơ số ra: 2

số ra : 11111

ví dụ 2: cơ số vào : 8

số vào: 149

> dữ liệu sai và cho phép nhập lại

HƯỚNG DẪN GIẢI:

1 Chuyển số vào (sv) ở cơ số vào (csv) thành số tp ở cơ số 10

2 Chuyển số tp ở cơ số 10 thành số ra (sr) ở cơ số ra (scr)

CHƯƠNG TRÌNH CHI TIẾT:

6/9/2013-/var/www/html/tailieu/data_temp/document/bai-toan-chuyen-doi-co-so-tho 13707160463856/ncy1369381652.doc

uses crt;

const chuso:string='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';

var sv,sr:string;

csv,csr,du,i,k:0 36;

tp:longint;

kt:boolean;

begin

repeat

clrscr;

write('Nhap co so vao:');readln(csv);

write('Nhap so vao:');readln(sv);

for i:=1 to length(sv) do sv[i]:=upcase(sv[i]);

kt:=true;

for i:=1 to length(sv) do

if pos(sv[i],chuso)-1>=csv then kt:=false;

until (2<=csv)and(csv<=36)and kt;

repeat

write('Nhap co so ra:');readln(csr);

until (2<=csr)and(csr<=36);

{doi sang co so 10}

tp:=0;

for i:=1 to length(sv) do

begin

k:=pos(sv[i],chuso)-1;

tp:=tp*csv+k;

end;

{doi sang co so ra}

sr:='';

while tp >0 do

begin

du:=tp mod csr;

sr:=chuso[du+1]+sr;

tp:=tp div csr;

end;

writeln('Doi sang co so ',csr,':',sr);

readln;

end