chuyển đổi cơ số 10 sang 2 Pascal
Tuyển Cộng tác viên Hoc24 nhiệm kì 26 tại đây: https://forms.gle/dK3zGK3LHFrgvTkJ6
chuyển đổi một số từ cơ số 2 sang cơ số 10
uses crt;
var st:string;
i,j,n,d,x,y:integer;
kq,lt:longint;
begin
clrscr;
write('nhap so nhi phan:'); readln(st);
d:=length(st);
kq:=0;
for i:=1 to d do
begin
lt:=1;
for j:=1 to d-i do
lt:=lt*2;
val(st[i],x,y);
kq:=kq+x*lt;
end;
writeln(st,' doi sang he 10 la: ',kq);
readln;
end.
Biểu diễn số thập phân: 253, 458, 1047, 3259 (2đ)
Biểu diễn có số nhị phân: 1011, 11011, 11101,1010 (2đ)
Biểu diễn các hệ số 16 (Hexa): 1AF, 2BD, 1BC, 2EF (2đ)
Chuyển đổi các hệ cơ số 10 sang cơ số 2: 7, 9, 21, 27 (2đ)
Chuyển đổi các hệ cơ số 10 sang hệ Hexa: 45,125, 235, 435 (2đ)
1.Chuyển các số sau sang biểu diễn ở hệ đếm thập phân :158 ,1002 , 102
2.Chuyển các số sau sang biểu diễn ở hệ nhị phân : 510, 2010, 201910
3.Chuyển các số sau từ hệ cơ số 16 sang hệ cơ số 2 : A, F, 1A , FF1
4.Chuyển các số sau từ hệ cơ số 2 sang hệ cơ số 16 : 1100, 11011011 , 1111000011001111
Câu 10. Chuyển biểu thức sau sang ngôn ngữ lập trình Pascal? b) (a2 + 2.b) ≤ 2 . (a2 + b2)
..........................................................................................................................................................
c ) (15 - b)2 . (a - c) d) (y3 - 5) . x ≥ 3. (x3 - y)
..........................................................................................................................................................
Chuyển các số sau sang hệ cơ số 10 110,01;. 11101001 1AB,2;. ABF,D
49 hệ cơ số 10 chuyển sang hệ cơ số 16 bằng bao nhiêu ?
Viết chương trình con chuyển các từ viết thường sang viết hoa. (trong pascal)
Vd: pascal sang PASCAL
Program Doi_Sang_Chu_Hoa;
Var S , SH: String; i : Byte;
Begin
Write('Nhap vao mot chuoi chu thuong : '); Readln(S);
SH := ''; {tạo xâu rỗng SH}
For i := 1 to Length(S) do SH[i] := UpCase(S[i];
Write('Chuoi da doi sang chu hoa: ',SH);
Readln;
End.
bạn dùng hàm UpCase(kí tự) để đổi từ chữ thường sang chữ hoa
Program Chuoi_In_Hoa;
Uses Crt;
Var i:integer;st:string;
Begin
Clrscr;
Writeln(‘DOI CHUOI SANG CHUOI HOA’);
Write(‘Nhap ho ten:’);readln(st); st[1]:=upcase(st[1]);
For i:=1 to length(St) do
If st[i]=’ ‘ then st[i+1]:=upcase(st[i+1]); Writeln(‘Ho ten sau khi doi lan 1 la: ‘,st);
For i:=1 to length(St) do st[i]:=upcase(st[i]);
Writeln(‘Ho ten sau khi doi lan 2 la: ‘,st);
Readln;
End.
program helo;
ues crt;
var s:string;i:longint
begin
clrscr;
write('s:=');readln(s);
for i:=1 to length(s) do s[i]:=upcase(s[i]);
writeln('s sau khi duoc doi sang chu hoa la');
readln;
end.
Hãy chuyển đổi các biểu thức viết trong toán học sang biểu thức viết trong pascal? a) {(a+b)²+4ab+b³}5a² b) [(2x²y+3)-3x²] giúp minh vơiiii ạ :((
a, ((a+b)*(a+b)+4*a*b+b*b*b)
b,((2*x*x*y+3)-3*x*x)
a, ((a+b)*(a+b)+4*a*b+b*b*b)
b,((2*x*x*y+3)-3*x*x)