Viết Chương Trình Nêu Cách đổi Từ Hệ Nhị Phân ...

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

danhle766
Chưa có nhóm

Trả lời
253
Điểm
8049
Cảm ơn
243

Tin Học
Lớp 9
60 điểm
danhle766 - 14:43:36 12/12/2020

viết chương trình nêu cách đổi từ hệ nhị phân sang hệ thập phân trong pascal

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

keyy
_Interesting_

Trả lời
1742
Điểm
353
Cảm ơn
1315

keyy

Câu trả lời hay nhất!
12/12/2020

Program NN;Uses crt;Var St:string; A:array[1..100] of longint; n,i,k,gt: longint;Begin Clrscr; Write('Nhap nhi phan: '); Readln(St); For i:=1 to length(St) do If St[i]='1' then A[i]:=1 else A[i]:=0; n:=0; For i:=1 to length(St) do Begin gt:=1; For k:=1 to length(St)-i do gt:=gt*2; n:=n+A[i]*gt; End; write('So thap phan la: ',n); ReadlnEnd.

Hãy giúp mọi người biết câu trả lời này thế nào?

avatar

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar3 voteGửiHủy

Cảm ơn 3
Báo vi phạm

- tranthikhanhhuyen2k5
- Chưa có nhóm
- Trả lời
  753
- Điểm
  983
- Cảm ơn
  1790
Cày nhanh thế@@
- thangvu1820
- Chưa có nhóm
- Trả lời
  0
- Điểm
  150
- Cảm ơn
  0
đúng nhưng chưa đủ,phải xét thêm các trường hợp gõ các số bất kì khác số 1 và 0,nên bài này sài dạng text là tốt nhất
- keyy
- _Interesting_
- Trả lời
  1742
- Điểm
  353
- Cảm ơn
  1315
Đối với COMPETITIVE PROGRAMMING thì sẽ không có ai ngu đến nỗi nhập số khác yêu cầu của đề nhé :))

Đăng nhập để hỏi chi tiết

Xem thêm:

>> Tuyển tập 100+ đề bài đọc hiểu Ngữ Văn lớp 9

tuongtaylor
Hội code dạo

Trả lời
2376
Điểm
46183
Cảm ơn
1806

tuongtaylor

13/12/2020

uses crt;var tong,t,i:longint; s:string;beginclrscr; write('Nhap nhi phan: ');readln(s); t:=1; for i:=length(s) downto 1 do begin if s[i]='1' then inc(tong,t); t:=t*2; end; writeln(tong);readlnend.

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar1starstarstarstarstar1 voteGửiHủy