Kiểu dữ liệu có cấu trúc - Hỏi đáp

sao đăng nhiều lần quá vậy bạn

Câu 1:

uses crt;
var s:string;
d,i,kt:integer;
begin
clrscr;
write('Xau S='); readln(s);
d:=length(s);
kt:=0;
for i:=1 to d do
if s[i]=' 'then kt:=1;
if kt=0 then writeln('trong xau khong co dau cach')
else writeln('trong xau co dau cach');
readln;
end.

Câu 2:

uses crt;
var a:array[1..100]of integer;
i,n,max,t,dem:integer;
begin
clrscr;
write('n='); readln(n);
{-----------------------------cau-a----------------------------}
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-----------------------------cau-b----------------------------}
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
{-----------------------------cau-c----------------------------}
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then t:=t+a[i];
{-----------------------------cau-d----------------------------}
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then inc(dem);
{-----------------------------cau-e---------------------------}
writeln('day so la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
writeln('gia tri lon nhat cua mang la: ',max);
writeln('tong cac phan tu le trong mang la: ',t);
writeln('so luong phan tu chia het cho 3 la: ',dem);
readln;
end.

var n,i,k,max,v,m:integer;

a,b:array[1..250] of integer;

procedure max1;

begin

max:=a[1];

v:=1;

for i:=2 to n do

if max<a[i] then begin max:=a[i]; v:=i; end;

writeln('max=',max,' vi tri cua max la ',v);

end;

procedure nhapk;

begin

v:=0;

m:=0;

write('nhap k: ',); readln(k);

for i:=1 to n do

if a[i]=k then

begin

v:=i;

m:=m+1;

b[m]:=v;

end;

if v<>0 then for i:=1 to m do write('vi tri ma k xuat hien tron day: ',b[i])

else write('KHONG TIM THAY');

end;

procedure nhapmang;

begin

write('nhap n: '); readln(n);

for i:=1 to n do

write('a[',i,']='); readln(a[i]);

writeln;

end;

begin

nhapmang;

max1;

nhapk;

readln;

end;

CHÚC BẠN HỌC TỐT

Program HOC24;

var n,i,x,d: integer;

a: array[1..32000] of integer;

begin

write('Nhap N : '); readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,' : '); readln(a[i]);

end;

write('Nhap x : '); readln(x);

d:=0;

for i:=1 to n do if x=a[i] then d:=d+1;

writeln('So ',x,' xuat hien ',d,' lan ');

write('So ',x,' nam o nhung vi tri : ' );

for i:=1 to n do if a[i]=x then write(i,' ; ');

readln

end.

uses crt;

var a,vt:array[1..100]of integer;

dem,i,n,d,x:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

write('Nhap x='); readln(x);

d:=0;

for i:=1 to n do

if a[i]=x then inc(d);

writeln('So lan xuat hien cua ',x,' trong day so la: ',d);

dem:=0;

for i:=1 to n do

if a[i]=x then

begin

inc(dem);

vt[dem]:=i;

end;

if dem>0 then

begin

write('So ',x,' xuat hien o cac vi tri lan luot la: ');

for i:=1 to dem do

write(vt[i]:4);

end;

readln;

end.

Kiểu dữ liệu của mảng có thể là những kiểu dữ liệu chuẩn (integer,byte,real,…), kiểu dữ liệu có cấu trúc (string,kiểu bản ghi).

Kiểu dữ liệu của mảng có thể là những kiểu dữ liệu chuẩn (integer,byte,real,…), kiểu dữ liệu có cấu trúc (string,kiểu bản ghi).

Cái này thì hơi khó giải thích nếu như bạn mới học lớp 10 trở xuống,nhưng thực chất thì không cần phải khai báo kích thước của mảng.
Mảng đó sẽ được gọi là "Dynamic Array",hoặc "Mảng động"(Google Dịch)

Nhưng trong cái mảng đó,bạn cần phải mở kích thước cho nó bằng setLength,và mấy cái này hơi phức tạp nên cứ khai báo kích thước mảng đi.

Mảng là 1 tập hợp các phần tử được đánh số có thứ tự thường là từ 0 hoặc 1cho nên khi khai báo mảng ta cần khai báo thêm kích thước để máy có thể cấp phát đủ bộ nhớ chứa số lượng các phần tử.

Mảng là kiểu dữ liệu có cấu trúc bởi vì mảng (một chiều, hai chiều hay nhiều chiều) là kiểu có cấu trúc được đề cập tới sớm nhất trong các ngôn ngữ lập trình. Nó được xây dựng từ những kiểu dữ liệu dã có theo quy tắc khuôn dạng do ngôn ngữ lập trình cung cấp. Nó được dùng để chỉ định một nhóm đối tượng cùng một tính chất nào đó. Chẳng hạn, vectơ là một nhóm các số mà mỗi số ta có thể xác định chỉ cần biết chỉ số. Như vậy, để khai báo kiểu mảng phải chỉ ra kiểu dữ liệu chung của các phần tử và kiểu chỉ số.

uses crt;

var st:string;

begin

clrscr;

write('Nhap xau:'); readln(st);

writeln('Ki tu dau tien la: ',st[1]);

writeln('Ki tu cuoi cung la: ',st[length(st)]);

readln;

end.

uses crt;
var a,b:array[1..100]of integer;
n,i,dem,max,tam,j:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=100);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so chia het cho 4 la: ');
for i:=1 to n do
if a[i] mod 4=0 then write(a[i]:4);
writeln;
dem:=0;
for i:=1 to n do
if a[i] mod 7=0 then
begin
inc(dem);
b[dem]:=a[i];
end;
max:=b[1];
for i:=1 to dem do
if max<b[i] then max:=b[i];
writeln('So lon nhat chia het cho 7 la: ',max);
writeln('Cac chi so cua no trong day A la: ');
for i:=1 to n do
if max=a[i] then write(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 so sau khi sap xep giam dan la: ');
for i:=1 to n do
write(a[i]:4);
readln;
end.

Câu 1:

uses crt;
var xau: string;
n,i:integer;
begin
clrscr;
n:= 0;
write('Nhap xau: ');readln(xau);
for i:= 1 to length(xau) do
if xau[i] = chr(32) then n:= n + 1;
write('So ki tu la phim cach trong xau la: ', n);
readln
end.

Câu 2:

uses crt;
var xau: string;
n,i:integer;
begin
clrscr;
n:= 0;
write('Nhap xau: ');readln(xau);
for i:= 1 to length(xau) do
if xau[i] = upcase(xau[i]) then n:= n + 1;
write('So ki tu in hoa trong xau la: ', n);
readln
end.

uses crt;

var st:string;

begin

clrscr;

write('Nhap xau:'); readln(st);

writeln(length(st));

readln;

end.

uses crt;

var a:array[1..100]of integer;

n,i,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

for i:=1 to n do

if a[i]>0 then inc(dem);

writeln('So phan tu duong trong mang la: ',dem);

write('Mang ban vua nhap la: ');

for i:=1 to n do

write(a[i]:4);

readln;

end.

uses crt;

var i,n,dem:integer;

a:array[1..100]of real;

begin

clrscr;

write('Nhap so hoc sinh:'); readln(n);

for i:=1 to n do

begin

repeat

write('Nhap diem trung binh mon Tin Hoc cua ban thu ',i,'='); readln(a[i]);

until (0<a[i]) and (a[i]<=10);

end;

dem:=0;

for i:=1 to n do

if a[i]>=5 then inc(dem);

writeln('So ban co diem tren trung binh la: ',dem);

readln;

end.

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

for i:=1 to d do

if st[i]=' ' then st[i]:='_';

writeln('Xau sau khi thay doi la: ',st);

readln;

end.

uses crt;

var a:array[1..100]of integer;

n,i,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

for i:=1 to n do

if a[i] mod 5=0 then inc(dem);

writeln('So boi cua 5 la: ',dem);

readln;

end.