Question

[Hương Giang]

1.Viết chương trình nhập 1 xâu bất kì từ bàn phím. Hãy in ra màn hình số lượng các kí tự trắng và vị trí của các kí tự trắng trong xâu ?

2.Viết chương trình nhập 1 xâu bất kì từ bàn phím. Hãy in ra màn hình số lượng các kí tự không phải là kí tự trắng và vị trí của các kí tự đó trong xâu ?

3. Cho dãy số nguyên A gồm N số nguyên dương a1,a2,...,an (trong đó N<=50, 0<=ai<=32767). Hãy viết chương trình thực hiện các công việc sau:

a) Nhập dữ liệu cho dãy số A

b) In ra màn hình dãy số A cần nhập.

c) Tìm giá trị lớn nhất (Max) trong dãy A

d) In ra màn hình vị trí của giá trị lớn nhất trong dãy A

e) Tìm giá trị nhỏ nhất ( Min) trong dãy A

f) In ra màn hình vị trí của giá trị nhỏ nhất trong dãy A.

MONG MỌI NGƯỜI GIÚP MÌNH VỚI Ạ :(((( MAI MÌNH THI HỌC KÌ RỒI. CẦN GẤP Ạ !!!

MÌNH CẢM ƠN !!!

Answer 1

[Nguyễn Lê Phước Thịnh]

Câu 1:

uses crt;
var st:string;
i,dem,d:integer;
vt:array[1..255]of integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
dem:=0;
for i:=1 to d do
if st[i]=' ' then
begin
inc(dem);
vt[dem]:=i;
end;
writeln('So luong ki tu trang la: ',dem);
write('Vi tri:');
for i:=1 to dem do
write(vt[i]:4);
readln;
end.

Câu 2:

uses crt;
var st:string;
i,dem,d:integer;
vt:array[1..255]of integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
dem:=0;
for i:=1 to d do
if st[i]<>' ' then
begin
inc(dem);
vt[dem]:=i;
end;
writeln('So luong ki tu khac ki tu trang la: ',dem);
write('Vi tri:');
for i:=1 to dem do
write(vt[i]:4);
readln;
end.

Câu 3:

uses crt;
var a:array[1..50]of integer;
n,i,max,min:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=50);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until (0<=a[i]) and (a[i]<=32767);
end;
writeln('Day so ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('Vi tri cua gia tri lon nhat la: ');
for i:=1 to n do
if max=a[i] then write(i:4);
writeln;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('Vi tri cua gia tri nho nhat la: ');
for i:=1 to n do
if min=a[i] then write(i:4);
readln;
end.