Viết chương trình cho phép đổi một số từ cơ số bất kỳ sang cơ số 10.
60 điểm
NguyenChiHieu
Viết chương trình cho phép đổi một số từ cơ số bất kỳ sang cơ số 10.
Trả lời
Tổng hợp câu trả lời (2)
Thùy Dương
01:12:13 01-Dec-2021
Program Doi_co_so;
Var n: String;
s:byte;
Function DCS_10st:String;s:byte:longint;
Var CS1: array['0'..'9'] of byte;
CS2: array['A'..'Z'] of byte;
ch:Char;
i:byte;
Tam:longint;
Begin
i:=0;
ch:='0';
while i<=9 do
Begin
CS1[ch]:=i;
inci;
incch;
End;
i:=10;
ch:='A';
While ch<'Z' do
Begin
CS2[ch]:=i;
inci;
incch;
End;
Tam:=0;
While st<>'' do
Begin
ch:=st[1];
if ch>=′0′ and ch<=′9′ then Tam:=Tam*s+CS1[ch]
else Tam:=Tam*s+CS2[ch];
Deletest,1,1;
End;
DCS_10:=Tam;
End;
Begin
Write′Nhapn:′;Readlnn;
Write′Cosocuasovuanhap:′;Readlns;
WriteDCS10(n,s);
Readln
End.
NguyenHieu
01:11:31 24-Nov-2021
Program Doi_co_so;
Var n: String;
s:byte;
Function DCS_10(st:String;s:byte):longint;
Var CS1: array['0'..'9'] of byte;
CS2: array['A'..'Z'] of byte;
ch:Char;
i:byte;
Tam:longint;
Begin
i:=0;
ch:='0';
while i<=9 do
Begin
CS1[ch]:=i;
inc(i);
inc(ch);
End;
i:=10;
ch:='A';
While ch<'Z' do
Begin
CS2[ch]:=i;
inc(i);
inc(ch);
End;
Tam:=0;
While st<>'' do
Begin
ch:=st[1];
if (ch>='0') and (ch<='9') then Tam:=Tam*s+CS1[ch]
else Tam:=Tam*s+CS2[ch];
Delete(st,1,1);
End;
DCS_10:=Tam;
End;
Begin
Write('Nhap n:');Readln(n);
Write('Co so cua so vua nhap: ');Readln(s);
Write(DCS_10(n,s));
Readln
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
1
Câu hỏi hay nhất cùng chủ đề
- Phân tích số N thành tổng các số liền nhau Cho số nguyên dương N. Hãy cho biết có thể phân tích N thành tổng các số tự nhiên liên tiếp hay không? Nếu có hãy phân tích N thành tổng của các số tự nhiên liên tiếp với nhiều số hạng nhất có thể được. VD: Nhâp n = 5 Xuất: 5 = 1 + 1 + 1 + 1 + 1 5 = 1 + 1 + 1 + 2 5 = 1 + 1 + 3 5 = 1 + 2 + 2 5 = 1 + 4 5 = 2 + 3 5 = 5
- Hai số tự nhiên A, B được coi là hữu nghị nếu như số này bằng tổng các ước số của số kia và ngược lại. Lập trình tìm và chiếu lên màn hình các cặp số hữu nghị trong phạm vi từ 1 đến 10000. (Lưu ý: số 1 được coi là ước số của mọi số còn mỗi số không được coi là ước số của chính nó).
- Viết chương trình chuẩn hóa xâu, trong đó sử dụng chương trình con để đọc và ghi dữ liệu.
- Các thành phần của ngôn ngữ lập trình là A. Chương trình thông dịch và chương trình biên dịch B. Chương trình dịch, bảng chữ cái, cú pháp, ngữ nghĩa C. Bảng chữ cái, cú pháp, ngữ nghĩa D. Tên dành riêng, tên chuẩn và tên do người lập trình định nghĩa
Viết chương trình cho phép sắp xếp một dãy số với yêu cầu sử dụng các chương trình con: Nhập mảng, in mảng, đổi giá trị của hai số và tính tổng của mảng đó.
CÔNG TY TNHH TOP EDU
Số giấy chứng nhận đăng kí kinh doanh: 0109850622, cấp ngày 09/11/2021, nơi cấp Sở Kế Hoạch và Đầu tư Thành phố Hà Nội
Hãy giúp mọi người biết câu trả lời này thế nào?
5