Bai tap hayphan mang

[r]

************chèn them pt vào mảng**************** program chenso;

uses crt;

var n,i,vtri,so:integer;

A:array[1 50]of integer;

begin

write('nhap so pt trong mang:');readln(n);

for i:=1 to n do

begin

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

end;

write('mang chua chen la: ');

for i:=1 to n do write(a[i]:6);

writeln;

write('nhap vitri va so can chen');readln(vtri,so); for i:=n+1 downto vtri+1 do

a[i]:=a[i-1];

a[vtri]:=so;

write('mang sau khi chen: ');

for i:=1 to n+1 do

write(a[i]:6);

readln

end

****************xoá pt trong mảng************* uses crt;

var a,b,c:array[1 100]of integer;

x,k,n,i,j:integer;

begin

clrscr;

writeln('nhap so pt:');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]:5);

writeln;

{them 1 pt vao mang}

write('nhap vi tri can them');readln(j);

write('nhap gia tri can them');readln(x);

for i:=1 to n+1 do

if i<>j then b[i]:=a[i]

else

begin

for k:=j+1 to n+1 do b[k]:=a[k-1];

b[j]:=x;

i:=n+1;

end;

for i:=1 to n+1 do write(b[i]:5);writeln; readln

end

hoặc:

program xoaso;

uses crt;

var i,n,vtri:integer;

a:array[1 20]of integer;

begin

write('nhap so pt trong mang');readln(n); for i:=1 to n do

begin

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

end;

write('mang chua xoa: ');

for i:=1 to n do write(a[i]:6);

write('vi tri muon xoa:');readln(vtri);

for i:=vtri to n-1 do

a[i]:=a[i+1];

write('mang sau khi xoa: ');

for i:= 1 to n-1 do write(a[i]:6);

readln

end

**************sap xep*************** program sapxep;

uses crt;

var n,i,j,tam:integer;

a:array[1 2]of integer;

begin

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

for i:=1 to n do

begin

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

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;

for i:=1 to n do write(a[i]:8);

readln

end

hoặc

program sapxep;

uses crt;

var n,i,j,tam:integer;

a:array[1 2]of integer;

begin

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

for i:=1 to n do

begin

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

writeln;

for j:=n downto 2 do

for i:=1 to j-1 do

if a[i]>a[i+1] then

begin

tam:=a[i];

a[i]:=a[i+1];

a[i+1]:=tam;

end;

for i:=1 to n do write(a[i]:8);

readln

end

******************tim ky tự***************

program kitu;

uses crt;

var n,i,dem:integer;y:char;

a:array[1 50]of char;

begin

write('mang co bao nhieu ktu: ');readln(n);

for i:=1 to n do

begin

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

end;

dem:=0;

write('ki tu muon tim: ');readln(y);

for i:=1 to n do

if a[i]=y then dem:=dem+1;

if dem=0 then write('ko co pt ',y,' nao')

else write('so pt tu ',y,' la:',dem);

readln

end

***************tbc sai so***************** rogram tbcsaiso;

uses crt;

var n,i:integer;tbc,tong:real;

a:array[1 20]of real;

begin

write('nhap so pt trong mang:');readln(n);

tong:=0;

for i:=1 to n do

begin

write('nhap a[',i,']=');readln(a[i]);tong:=tong+a[i]; end;

tbc:=tong/n;

write('tbc=',tbc:5);

writeln;

write('nhung pt sai so 1 la:');

for i:=1 to n do

if abs(tbc-a[i])<1 then write(a[i]:6) ;

readln

end