- Chức năng chính của CPU là thực hiện và điểu khiển việc thực hiện chương trình.

- Chức năng của bộ nhớ trong là nơi chứa chương trình được đưa vào để thực hiện và là nơi lưu trữ dữ liệu đang được xử lí.

+ ROM (Read only Memory): Lưu những thông tin quan trọng cần thiết cho hoạt động của máy tính do nhà sản xuất đưa vào.

+ RAM (Random Access Memory): Lưu trữ thông tin, dữ liệu có tính chất tạm thời trong quá trình xử lí nội dung.

- Chức năng của bộ nhớ ngoài : Dùng để lưu trữ dữ liệu lâu dài và hỗ trợ cho bộ nhớ trong.

- Chức năng của thiết bị vào là đưa thông tin vào máy tính.

- Chức năng của thiết bị ra là đưa dữ liệu ra từ máy tính.

Dữ liệu là chuỗi bất kỳ của một hoặc nhiều ký hiệu có ý nghĩa thông qua việc giải thích một hành động cụ thể nào đó.

- Thông tin là một khái niệm rất trừu tượng. Thông tin được hiểu như là sự thông báo, trao đổi, giải thích về một đối tượng nào đó và thường được thể hiện dưới dạng các tín hiệu như chữ số, chữ viết, âm thanh, dòng điện... Chẳng hạn thông tin về kết quả học tập của học sinh được giáo viên chủ nhiệm ghi trong sổ liên lạc giúp cho các bậc phụ huynh biết về tình hình học tập của con em mình.

uses crt;
var a,vt,b,c:array[1..100]of integer;
tam,n,i,t,max,kt,dem,dem1,dem2,j: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 ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cac phan tu cua mang la: ',t);
max:=a[1];
dem:=0;
for i:=1 to n do
if max<a[i] then max:=a[i];
for i:=1 to n do
if max=a[i] then
begin
inc(dem);
vt[dem]:=i;
end;
writeln('Phan tu lon nhat la: ',max);
writeln('Vi tri la: ');
for i:=1 to dem do
write(vt[i]:4);
writeln;
for i:=1 to n do
for j:=i to n do
if (i<>j) and (a[i]+a[j]=5) then writeln(a[i],' ',a[j]);
writeln('Cac so khong phai la so nguyen to la: ');
for i:=1 to n do
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=1 then write(a[i]:4);
end;
dem1:=0;
dem2:=0;
for i:=1 to n do
begin
if a[i]<0 then
begin
inc(dem1);
b[dem1]:=a[i];
end;
if a[i]>0 then
begin
inc(dem2);
c[dem2]:=a[i];
end;
end;
for i:=1 to dem1-1 do
for j:=i+1 to dem1 do
if b[i]<b[j] then
begin
tam:=b[i];
b[i]:=b[j];
b[j]:=tam;
end;
for i:=1 to dem2-1 do
for j:=i+1 to dem2 do
if c[i]<c[j] then
begin
tam:=c[i];
c[i]:=c[j];
c[j]:=tam;
end;
for i:=1 to dem1 do
write(b[i]:4);
for j:=1 to dem2 do
write(c[j]:4);
readln;
end.

e) {Cac so khong phai so nguyen to}

program so_khong_la_snt;

uses crt;

var

i,n,dem:longint;

a:array[1..10000] of longint;

begin

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

for i:=1 to n do

begin

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

end;

for i:=1 to n do

begin

dem:=0;

for j:=1 to a[i] do

begin

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

end;

if (dem><2) then writeln(a[i]);

end;

readln;

end.

b) {Dem so luong so lon hon 100}

program dem_so_luong_so_lon_hon_100;

uses crt;

var

i,n,dem:longint;

a:array[1..10000] of longint;

begin

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

for i:=1 to n do

begin

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

end;

dem:=0;

for i:=1 to n do

begin

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

end;

write('Vay so luong so lon hon 100 la: ',dem); readln;

end.

c) {In ra so chan}

program in_ra_so_chan;

uses crt;

var

i,n:longint;

a:array[1..10000] of longint;

begin

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

for i:=1 to n do

begin

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

end;

for i:=1 to n do

begin

if (a[i] mod 2 = 0) then writeln(a[i]);

end;

readln;

end.

uses crt;
var a:array[1..100]of integer;
m,n,i,j,k,x,max,min,kq:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap m='); readln(m);
kq:=maxint;
for j:=0 to n do
if j+m<=n then
begin
for k:=j+1 to m+j do
begin
max:=a[j+1];
min:=a[j+1];
for x:=j+1 to m+j do
begin
if max<a[x] then max:=a[x];
if min>a[x] then min:=a[x];
end;
if kq>max-min then kq:=max-min;
end;
end;
writeln(kq);
readln;
end.

uses crt;
var a:array[1..100]of integer;
i,n,t,dem,dem1,dem2,dem3,dem4,t1,t2,t3,t4,max,min: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);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua mang A la: ',t);
dem:=0;
for i:=1 to n do
if a[i] mod 5=0 then inc(dem);
writeln('So phan tu chia het cho 5 la: ',dem);
dem1:=0;
t1:=0;
dem2:=0;
t2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then
begin
inc(dem1);
t1:=t1+a[i];
end
else begin
inc(dem2);
t2:=t2+a[i];
end;
end;
writeln('So phan tu chan la: ',dem1);
writeln('Tong cac phan tu chan la: ',t1);
writeln('So phan tu le la: ',dem2);
writeln('Tong cac phan tu le la: ',t2);
dem3:=0;
t3:=0;
dem4:=0;
t4:=0;
for i:=1 to n do
begin
if a[i]<0 then
begin
inc(dem3);
t3:=t3+a[i];
end;
if a[i]>0 then
begin
inc(dem4);
t4:=t4+a[i];
end;
end;
writeln('So phan tu am la: ',dem3);
writeln('Tong cac phan tu am la: ',t3);
writeln('So phan tu duong la: ',dem4);
writeln('Tong cac phan tu duong la: ',t4);
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('Gia tri lon nhat cua day so la ',max);
writeln('Chi so la: ');
for i:=1 to n do
if max=a[i] then write(i:4);
writeln;
writeln('Gia tri nho nhat cua day so la: ',min);
writeln('Chi so la: ');
for i:=1 to n do
if min=a[i] then write(i:4);
readln;
end.

uses crt;

var a,b,c,kt:integer;

begin

clrscr;

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

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

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

if (a+b>c) and (a+c>b) and (b+c>a) then

begin

kt:=0;

if sqr(a)=sqr(b)+sqr(c) then kt:=1;

if sqr(b)=sqr(a)+sqr(c) then kt:=1;

if sqr(c)=sqr(a)+sqr(b) then kt:=1;

end

else kt:=0;

if kt=0 then writeln('Day khong la bo ba Pytago')

else writeln('Day la bo ba Pytago');

readln;

end.

uses crt;
var a,b:array[1..100]of integer;
dem,i,n,t,dem1,x,kt,kt1,dn,vt: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);
writeln('Cac so chan co trong mang la: ');
t:=0;
dem1:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
write(a[i]:4);
t:=t+a[i];
inc(dem);
end;
writeln;
writeln('Trung binh cong cac phan tu co mat trong mang la: ',t/dem:4:2);
write('Nhap x='); readln(x);
kt:=0;
for i:=1 to n do
if a[i]=x then
begin
kt:=kt+1;
b[kt]:=i;
end;
if kt=0 then writeln(x,' khong co trong day')
else begin
writeln('Vi tri cua ',x,' trong day la: ');
for i:=1 to kt do
write(b[i]:4);
end;
kt1:=0;
for i:=1 to n-1 do
if a[i+1]>a[i] then kt1:=1;
if kt1=0 then writeln('Day la day con don dieu giam')
else begin
dn:=0;
dem1:=1;
for i:=1 to n-1 do
if a[i+1]<a[i] then
begin
inc(dem1);
if i+1=n then
begin
if dn<dem1 then
begin
vt:=dn;
dn:=dem1;
end
else if dn=dem1 then
begin
dn:=dem1;
vt:=i+1;
end;
end;
end
else if a[i+1]>a[i] then
begin
if dn<dem1 then
begin
vt:=i;
dn:=dem1;
end
else if dn=dem1 then
begin
dn:=dem1;
vt:=i;
end;
end;
dem1:=1;
writeln('Day don dieu giam dai nhat trong mang la: ');
for i:=vt-dn+1 to vt do
write(a[i]:4);
end;
readln;
end.