Phần 1) mình làm được rồi, còn phần 2) ở phần xuất ra hình dạng của tam giác mình "bí" rồi! Bạn nào giúp mình với!
Mình cảm ơn trước nhé! <3
Kiểu dữ liệu có cấu trúc
anh em giúp mình bài này với!!
''nhập vào xâu S
a.đếm số k là số kí tự chữ cái tiếng anh n hoa khác nhau trong xâu S''
(VD: xâu S: NGu VaN => k=3 hay xâu S: mOn tin hOc => k=1)
b. liệt kê các kí tư chữ cái tiếng anh in hoa và có cùng số lần xuất hiện trong xâu S
(VD: xâu S: NGu VaN => N xuat hien 2 lan, G xuat hien 1 lan, V xuat hien 1 lan)
cảm ơn các bạn!!
cái này đúng
var S:string ;
j:integer;
n,k:byte;
i:char;
begin
k:=0;
write('nhap xau S');
read (S);
for i:= 'A' to 'Z' do
begin
n:=0;
for j:= 1 to length(S) do
if s[j]=i then
n:=n+1;
if n<> 0 then
k:=k+1;
end;
write ('so ki tu chu cai tieng anh in hoa khac nhau trong xau S=',k);
readln
end.
Đúng 0
Bình luận (0)
câu b
('đúng ')
var S:string ;
j:integer;
n,k:byte;
i:char;
begin
k:=0;
write('nhap xau S ..');
read (S);
for i:= 'A' to 'Z' do
begin
n:=0;
for j:= 1 to length(S) do
if s[j]=i then
n:=n+1;
if n<> 0 then
begin
write(i,' xuat hien',n,' lan');
writeln(' ');
end;
end;
readln
end.
Đúng 0
Bình luận (1)
var a:string ;
i,j:integer;
n,k:byte;
begin
k:=0;
write(nhap xau S);
read (S);
for i:= 'A' to 'Z' do
begin
n:=0;
for j:= 1 to length(S) do
if a[j]=i then
n:=n+1;
if n<> 0 then
k:=k+1;
end;
write ('so ki tu chu cai tieng anh in hoa khac nhau trong xau S=',k);
readln
end.
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
giup minh giai bai toan nay
lap chuong trinh nhap xau s dem xem trong xau do co bao nhieu so hoan thien. thong bao ket qua ra man hinh
Số chính phương được định nghĩa là bình phương của một số. Hãy viết chương trình tính tổng các số chính phương có trong một dãy (a1, a2, ..., am, với m là một số nguyên dương trong khoảng từ 1 đến 107 ).
Yêu cầu:
Dữ liệu vào là file: CP.INP
+ Dòng thứ nhất: Ghi số m (m trong khoảng từ 1 đến 107)
+ Dòng thứ hai ghi m phần tử trong dãy.
Dữ liệu ra là file: CP.OUT
+ Ghi tổng các số chính phương có trong dãy
+ Nếu không có số chính phương trong dãy thì ghi số 0.
Ví dụ:
CP.INP
CP...
Đọc tiếp
Số chính phương được định nghĩa là bình phương của một số. Hãy viết chương trình tính tổng các số chính phương có trong một dãy (a1, a2, ..., am, với m là một số nguyên dương trong khoảng từ 1 đến 107 ).
Yêu cầu:
Dữ liệu vào là file: CP.INP
+ Dòng thứ nhất: Ghi số m (m trong khoảng từ 1 đến 107)
+ Dòng thứ hai ghi m phần tử trong dãy.
Dữ liệu ra là file: CP.OUT
+ Ghi tổng các số chính phương có trong dãy
+ Nếu không có số chính phương trong dãy thì ghi số 0.
Ví dụ:
| CP.INP | CP.OUT | CP.INP | CP.OUT |
|
5 2 4 5 7 25 |
29
|
4 2 3 1 7 |
0
|
Lưu bài làm vào file CP.PAS
Mình thử trả lời các bạn xem có đúng ko nha!!!
__________
program CP;
var scs,tong,m,i,z,k:longint;
A:array[1..10000000] of longint;
f:text;
begin
assign(f, 'CP.INP');
reset(f);
readln(f,m);
for i:=1 to m do read(f,A[i]);
close(f);
tong:=0;
scs:=0;
for z:=1 to m do
for k:=1 to A[z] do
if (k*k=A[z]) then
begin
scs:=scs+1;
tong:=tong+A[z];
end;
assign(f, 'CP.OUT');
rewrite(f);
if (scs<>0) then writeln(f, tong) else writeln(f, '0');
close(f);
end.
Đúng 0
Bình luận (0)
Viết câu lệnh rẽ nhánh tính \(z=\left\{{}\begin{matrix}x-2y\\y\end{matrix}\right.\) Nếu x>y Trong trường hợp con lại P/s Mn giúp mk với ak
- chương trình gõ chữ việt như ......: hiển thị biểu tượng V màu đỏ trên góc phải thanh Taskbar. Trường hợp trình hỗ trợ chữ Việthiển thị chữ E màu xanh , cần thực hiện thao tác ........ để chuyển sang biểu tượng V màu đỏ.
- trong chương trình hỗ trợ chữ Việt cần điều chình bộ mã...... và kiểu gõ.......
- điều chỉnh Font trong hệ soạn thảo văn bản phù hợp với bộ mã điều chỉnh trong chương trình hỗ trợ chữ Việt
Đọc tiếp
- chương trình gõ chữ việt như ......: hiển thị biểu tượng V màu đỏ trên góc phải thanh Taskbar. Trường hợp trình hỗ trợ chữ Việthiển thị chữ E màu xanh , cần thực hiện thao tác ........ để chuyển sang biểu tượng V màu đỏ.
- trong chương trình hỗ trợ chữ Việt cần điều chình bộ mã...... và kiểu gõ.......
- điều chỉnh Font trong hệ soạn thảo văn bản phù hợp với bộ mã điều chỉnh trong chương trình hỗ trợ chữ Việt
Cho 2 mảng A,B gồm n số nguyên được sắp xếp theo thứ tự tăng dần. Hãy tạo mảng C gồm các số từ mảng A và B sao cho các phần tử của C cũng được sắp xếp theo thứ tự tăng dần.
a, Đưa ra vị trí các số nguyên trong A.
b, Tìm trong mảng B các phần tử có giá trị 0
Cho dãy số nguyên A1,A2,A3,...,An gồm 200 phần tử. Viết chương trình tính tổng và đếm số lượng các phần tử lẻ có trong dãy số đó.
Câu hỏi: Cho mảng A gồm N số nguyên
Yêu cầu:
1. In ra màn hình và tính tổng các số nguyên âm.
2. Hãy cho biết vị trí và giá trị của số lớn nhất trong A.
Mn giúp mình với ạ, mình đang cần gấp.
uses crt;
var a:array[1..100]of integer;
n,i,t,max:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------------------------cau-1-------------------------------}
writeln('day so ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if a[i]<0 then t:=t+a[i];
writeln('tong cac so nguyen am la: ',t);
{---------------------------------cau-2-------------------------------}
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('gia tri lon nhat cua day la: ',max);
writeln('vi tri la: ');
for i:=1 to n do
if max=a[i] then write(i:4);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nập vào mảng A gồm N số nguyên ( N< - 100 ) và nhập thêm vào một số nguyên k. Tính tổng và tích các số không lớn hơn k trong N số đã nhập
Mọi người giúp em với ạ
uses crt;
var a:array[1..100]of integer;
i,n,k,t:integer;
s:longint;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-------------------------------xu-ly-------------------------------}
write('nhap k='); readln(k);
t:=0;
s:=1;
for i:=1 to n do
if a[i]<=k then
begin
t:=t+a[i];
s:=s*a[i];
end;
writeln('tong cac so khong lon hon ',k,' trong day la: ',t);
writeln('tich cac so khong lon hon ',k,' trong day la: ',s);
readln;
end.
Đúng 0
Bình luận (0)
