Nhập 1 số từ bàn phím. Nhiều nhất 6 chữ số. In ra cách đọc số đó. Ví dụ 12=> mười hai, 123=> một trăm hai mươi ba. 1456=> một ngàn bốn trăm năm mươi sáu
Nhập 1 số từ bàn phím. Nhiều nhất 6 chữ số. In ra cách đọc số đó. Ví dụ 12=> mười hai, 123=> một trăm hai mươi ba. 1456=> một ngàn bốn trăm năm mươi sáu
program doc_so;
uses crt;
var i,n:longint;
st1,st2:string;
begin
clrscr;
write('nhap n:');readln(n);
str(n,st1);
st2:=''
if length(st1)=6 then
begin
case st1[1] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' tram '
case st1[2] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' muoi '
case st1[3] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' nghin '
case st1[4] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' tram '
case st1[5] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' muoi '
case st1[6] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'lam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
writeln(st2);
end;
if length(st1)=5 then
begin
case st1[1] of
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' muoi '
case st1[2] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' nghin '
case st1[3] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' tram '
case st1[4] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' muoi '
case st1[5] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'lam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
writeln(st2);
end;
if length(st1)=4 then
begin
case st1[1] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' nghin '
case st1[2] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' tram '
case st1[3] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' muoi '
case st1[4] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'lam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
writeln(st2);
end;
if length(st1)=3 then
begin
case st1[1] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' tram '
case st1[2] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' muoi '
case st1[3] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'lam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
writeln(st2);
end;
if length(st1)=2 then
begin
case st1[1] of
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
st2:=st2+' muoi '
case st1[2] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'lam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
writeln(st2);
end;
if length(st1)=1 then
begin
case st1[1] of
'1':st2:=st2+'mot'
'2':st2:=st2+'hai'
'3':st2:=st2+'ba'
'4':st2:=st2+'bon'
'5':st2:=st2+'nam'
'6':st2:=st2+'sau'
'7':st2:=st2+'bay'
'8':st2:=st2+'tam'
'9':st2:=st2+'chin'
end;
writeln(st2);
end;
readln;
end.
#hdcm
lập trình dart (cơ bản)
mình cần 5 đề
deadline: 20/5
Nhập số . In ra số đó dưới dạng chữ ví dụ :1=> một, 12=> một hai. 1234=> một hai ba bốn
Viết 1 functions cho việc khởi tạo thông tin của một người(lưu dưới dạng một chuỗi ) .yêu cầu: nhập số lượng ng , sử dụng funtions đã tạo lưu người đó vào 1 danhhh sách, in ra danhh sách đó
cho n < 105 và k tìm cách xóa k chữ số sao cho sau khi xía n là lớn nhất
Program soa_so;
Uses crt;
Var i,j,k,l,n:longint;
st2:string;
Begin
Clrscr;
write('nhap n,k:');readln(n,k);
str(n,st2);k:=length(st2)-k;
For i:=1 to k do
Begin
l:=i;
For j:=i to length(st2)k do
If st2[l]<st2[j] then l:=j;
If l>i then delete(st2,i,l-i);
End;
Write(copy(st2,1,k));
Readln;
End.
Anh nào giúp em với ạ
Câu 1: anh(chị) hãy nhập vào một mảng gồm cso n số bất kì, sau đó in ra màn hình mảng đó.
Câu 2: in ra những số chẵn, lẻ, chia hết cho 3
Câu 3: in ra những số ở vị trí chẵn, lẻ
Câu 1:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so chan la: ');
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
writeln;
writeln('Cac so le la: ');
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:4);
writeln;
writeln('Cac so chia het cho 3 la: ');
for i:=1 to n do
if a[i] mod 3=0 then write(a[i]:4);
readln;
end.
Câu 3:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so o vi tri chan la: ');
for i:=1 to n do
if i mod 2=0 then write(a[i]:4);
writeln;
writeln('Cac so o vi tri le la: ');
for i:=1 to n do
if i mod 2=1 then write(a[i]:4);
readln;
end.
bài 1:Viết chương trình nhập vào một mảng số nguyên gồm n phần tử(n<100) nhập từ bàn phím thực hiện các công việc sau:
a)In ra màn hình các phần tử của mảng vừa nhập.
b) Sắp xếp dãy số nguyên theo thứ tự tăng dần.
c) Nhập số nguyên x bất kì.Tính số chắn lớn nhất không được vượt quá x.
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n,kt,max,x,j,tam:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Mang ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('Day tang dan la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
write('Nhap x='); readln(x);
max:=0;
kt:=0;
for i:=1 to n do
if (a[i] mod 2=0) and (a[i]<=x) then
begin
if max<a[i] then max:=a[i];
kt:=1;
end;
if kt=0 then writeln('Trong day khong co so le')
else writeln('So chan lon nhat khong vuot qua ',x,' la: ',max);
readln;
end.
Bài 1:
Sau khi thực hiện đoạn chương trình sau, giá trị của biến x bằng bao nhiêu? ( giả sử biến x và i đã được khai báo phù hợp)
a. x:=1;
for i:= 2 to 7 do x := x+1;
b. x:=20;
for i:= 1 to 4 do x := x-2;
Bài 2:
Các câu lệnh Pascal sau có hợp lệ không, vì sao?
a) for i:=100 to 1 do writeln('A');
b) for i:=1.5 to 10.5 do writeln('A');
c) for i=1 to 10 do writeln('A');
d) for i:=1 to 10 do; writeln('A');
Bài 3:
Viết chương trình tính tổng các số lẻ từ 1 tới N. N được nhập từ bàn phím.
AI GIÚP EM VỚI EM CẢM ƠN!!!
Bài 1:
a) x=7
b) x=12
Bài 2:
a) Không hợp lệ vì giá trị đầu lớn hơn giá trị cuối
b) Không hợp lệ vì giá trị đầu và giá trị cuối có kiểu dữ liệu real(vì trong pascal, vòng lặp for mà biến đếm là kiểu real thì không hợp lệ)
c) Không hợp lệ vì thiếu dấu :
d) Không hợp lệ vì sau vòng for có dấu ;
Bài 3:
uses crt;
var i,t,n:integer;
begin
clrscr;
write('nhap n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 2=1 then t:=t+i;
writeln(t);
readln;
end.
Chọn đáp án đúng 1, thông tin nào không phải là hằng số học : a, -2,23E01 b, 54 . c, -23.25 d, 45'
2, biểu thức nhận giá trị là True hoặc False là :
a, toán học thực và logic. b, logic và quan hệ c, toán học và lôgic . d, quan hệ và toán học
3, Biến t có thể nhận các giá trị là 1;100;12.55;-46.1 có thể khai báo biến t có kiểu là : a, integer và real. b, byte và integer . c, real và byte d, real
4, Phần mở rộng của Pascal là : a, ( .txt ) b, ( .dos ) c, (.gas ) d, ( .xls )
5, thủ tục để nhập dữ liệu vào biến là :
a, write và readln b, real và writeln. c, write và writeln d, real và readln
6, xét biểu thức ( n mod 2<>0) and ( m div 2 >= 5 ) với giá trị nào của m dưới đây để biểu thức trên cho giá trị là True : a, 5 B, 500 c, 455. D, 6
7, Biến n chỉ nhận một trong hai giá trị là '1' và '0' hãy cho biết khai báo nào sau đây là đúng : a, Var N : Clar b, Var N : Byte c, Var N : Boolean d, Var N : Real
8, hàm số căn bậc hai của P là : a, Abs (P) b, Sqr ( P ) c, Sqr ( P ) d, Sqrt ( P )
9, biểu thức ( 2*2 <1+1 ) or ( Abs (-3) <= 3 ) trong Pascal sẽ nhận giá trị là : a, đúng . b, sai c, True d, False.
10, hãy chọn ra kiểu dữ liệu có kích thước bộ nhớ lớn nhất trong các kiểu sau : a, integer b, byte . C, longint d, real
Phần tự luận :
1, hãy phân biệt kiểu giống và khác nhau của tên dành riêng và tên chuẩn
2, cho hình thoi ABCD có độ dài hai đường chéo AC và BD lần lượt là d1 và d2 dữ liệu được nhập từ bàn phím . Em hãy viết chương trình tính diện tích hình thoi ABCD
3, Em hãy viết biểu thức logic để ba số a,b, c tạo thành : - ba cạnh của tam giác. - ba cạnh của tam giác cân. - ba cạnh của tam giác đều . - ba cạnh của tam giác vuông
4, A, Tìm lỗi sai trong đoạn Pascal sau : Var so1,so2,hieu:=integer; Begin writeln ( ' chung trinh thuc hien phep tru so hoc ' ) So1:=400 So2:=250 ; Hieu:= so1-so2; Writeln('ketqua=',hieu:5); Readln; End b, cho biết kết quả xuất ra màn hình của chương trình trên sau khi đã sửa lỗi sai
5, viết chương trình tính trung bình cộng của 4 số bất kì dữ liệu nhập từ bàn phím với điều kiện sử dụng 4 biến .
tự luận bài 5
uses crt;
var a,b,c,d:integer;
tbc:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
tbc:=(a+b+c+d)/4;
writeln('trung binh cong cua 4 so la: ',tbc:4:2);
readln;
end.
Lập trình Scratch theo đề sau:
Nhân vật: thầy giáo và học sinh.
Thầy sẽ đưa ra 1 số nguyên dương N được nhập từ bàn phím.
Học sinh trả lời:
Nếu N là số chẵn thì thông báo là số chẵn.
Nếu N là số lẻ thì thông báo là số lẻ.
Quá trình nhập dữ liệu chỉ kết thúc khi nhập được 1 số vừa chia hết cho 2, cho 3.
Giả sử 1 byte biểu diển 1 ký tự. 10 byte tương đương với một trang giấy 40 dòng mỗi dòng 18 ký tự hỏi một quyển sách 500 trang chiếm bao nhiêu dung lượng trên máy tính