Bai tap SGK Tin Hoc 11

real, boolean, integer, longint.[r]

(1)

BÀI TẬP SGK TIN 11

1- Viết chương trình nhập từ bàn phím số ngun dương N(N<= 100) dãy A gồm N số

ngun A(1),A(2), A(N) có giá trị tuyệt đối khơng lớn 1000 Hãy cho biết dãy A có

phải cấp số cộng hay không thông báo kết hình

2- Viết chương trình nhập từ bàn phím số nguyên dương N(N<= 100) dãy A gồm N số

nguyên A(1),A(2), A(N) có giá trị tuyệt đối không lớn 1000 Hãy đưa

thông tin sau:

a) Số lựuong số chẵn số lẻ dãy;

b) Số lượng số nguyên tố dãy;

3- Hãy viết chương trình nhập từ bàn phím xâu kí tự S có độ dài khơng q 100 Hãy cho

biết có chữ số xuất xâu S Thơng báo kết hình

Bài 5/79 var n,i:byte;

a: array [1 100] of integer; dung: boolean;

begin

write('so phan tu cua day : '); readln(n);

for i:=1 to n begin

write('phan tu thu ',i,' :'); readln(a[i]);

end;

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

dung:=true;

while (dung) and (i<n) if a[i+1]-a[i]=a[1] then i:=i+1 else dung:=false;

if i=n then write('day la cap so cong') else write('day khong la cap so cong'); readln;

end

Bài 6/79

var n,i,chan,le:byte;

a: array [1 100] of integer; dung: boolean;

(2)

chan:=0; le:=0;

for i:=1 to n begin

if a[i] mod 2=0 then chan:=chan+1 else le:=le+1;

end; i:=1; writeln;

Writeln('so luong so chan: ',chan); writeln('so luong so le : ',le); chan:=0;

while i<=n begin

dung:=true;

if a[i]<2 then dung:=false else

for le:=2 to trunc(sqrt(a[i])) if a[i] mod le=0 then dung:=false; if dung then chan:=chan+1;

i:=i+1; end;

write('so luong so nguyen to la: ',chan); readln;

end readln; end

Bài 7/ 79

Uses crt;

var a:array [1 190] of real; n,i:integer;

Begin Clrscr;

write('can tinh so Fibo thu :'); readln(n);

a[1]:=0; a[2]:=1;

for i:= to n a[i]:=a[i-1]+a[i-2]; write(a[n]:10:0);

(3)

Bài 10/80

var i,t: byte; a:string[100]; Begin

Clrscr;

write('nhap vao xau: '); readln(a);

t:=0; i:=1;

while i<=length(a) begin

if (a[i]<='9') and (a[i]>='0') then t:=t+1; i:=i+1;

end;

writeln('co ',t,' chu so xuat hien (tinh ca cac chu so giong nhau)'); readln;

end

BÀI TẬP SGK TIN 11!! var n,i:byte;

a: array [1 20] of real; t:real;

begin t:=0; n:=0;

for i:=1 to 20 begin

if a[i]>0 then begin t:=t+a[i]; n:=n+1; end; end;

writeln ('Day da nhap la : '); for i:=1 to 20 write(a[i]:5:1); writeln;

writeln('Trung binh cong cua cac phan tu duong la : ',t/n:5:5); t:=a[1];

(4)

writeln(' Phan tu nho nhat day la : ',t:5:5); readln;

end

BÀI TẬP SGK TIN 11!!

Tặng xấp này! Bài tập chơng

1 Mảng kiểu liệu có cấu trúc mảng kiểu có cấu trúc đề cập tới

sớm ngôn ngữ lập trình Nó xây dựng từ kiểu liệu có theo quy tắc khn dạng ngơn ngữ lập trình cung cấp Nó dùng để

chỉđịnh nhóm đối tượng tính chất

2 Chúng ta phải khai báo kích thước mảng để cách đánh số phần tử

nó

3 real, boolean, integer, longint

4 Tham chiếu đến phần tử mảng chiều xác định tên mảng

với số, viết cặp ngoặc [ ] (Ví dụ A[1]) Cịn tham chiếu đến phần

tử mảng chiều xác định tên mảng với số phân

cách dấu phẩy viết cặp ngoặc [ ] (A[1,2]) Bài 5.

uses crt;

var a:array[1 100] of integer; n,i,d:integer;

csc:boolean; begin

clrscr;

write('Nhap n: ');readln(n); for i:=1 to n

begin repeat

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

if abs(a[i])>1000 then writeln('Nhap so nho hon 1000'); until abs(a[i])<=1000; end;

csc:=false; d:=a[2]-a[1]; for i:=2 to n

if a[i+1]-a[i]=d then csc:=true; if

if if

if csc thenthenthen writeln('Day la cap so cong') elsethen elseelseelse

16

write('Day khong la cap so cong'); readln end end end end

VÝ Dô Bai Bai Bai Bai

program bai6; uses crt;

var A:array[1 100] of integer; i,n,dem,u,d:integer;

begin clrscr;

write('Nhap so luong phan tu: ');readln(n); for i:=1 to n

(5)

repeat

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

if abs(A[i])>1000 then write('Nhap so <1000 OK'); until abs(A[i])<1000;

end; dem:=0;

for i:=1 to n begin

if a[i] mod 2= then dem:=dem+1 end;

writeln('So luong so le: ',n-dem); writeln('So luong so chan: ',dem); for i:=1 to n

if a[i]>1 then

17

begin u:=2;

while (u<=sqrt(A[i])) and (A[i] mod u <> 0)

u:=u+1;

if u>sqrt(A[i]) then d:=d+1; end;

write('So luong so nguyen to: ',d); readln

end VÝ Dô Bài 7.

var n, i:word; f, f1,f2:word; begin

clrscr; repeat

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

if n<2 then writeln('Nhap N>2 OK!'); until n>=2;

f1:=1; f2:=2;

for i:=3 to n begin

f:=f1+f2; f1:=f2; f2:=f; end;

write('So fibonaxi thu ',n,' la ' ,f); readln

(6)

VÝ Dô

Chơng trình thực đến Nmax=10001

Bài 8.

Chương trình thực việc hốn đổi vị trí dịng thứ i với dịng thứ N-i+1, nghĩa hốn đổi vị trí dịng với dịng cuối mảng hai chiều, dòng thứ hai từ

xuống với dịng thứ hai từ lên,… Việc hốn đổi vị trí dịng thứ i với dịng đối xứng

với thực i nhận giá trị từ đến N, làm cho dịng hốn đổi vị

trí lần Vì mạng A sau hốn đổi khơng thay đổi so với ban đầu

Bài

var A:array[1 15,1 15] of integer; N, i, j, max, ind, vsp:integer; begin

clrscr;

write('Nhap N: ');readln(n); for i:=1 to n

for j:=1 to n begin

write('Nhap A[',i,',',j,']: '); readln(A[i,j]);

end;

for i:=1 to n begin

max:=A[1,i];ind:=1; for j:=2 to n if A[j,i] > max then begin

max:=A[j,i]; ind:=j; end; vsp:=A[i,i]; A[i,i]:=max; A[ind,i]:=vsp; end;

for i:=1 to n begin

writeln;

for j:=1 to n write(A[i,j]:3); end;

(7)

Bài 10

var S:string; i,dem,n:integer; begin

clrscr;

write('Nhap xau: ');readln(S); n:=length(S);

dem:=0; for i:=1 to n

if (s[i]>='0') and (s[i]<='9') then inc(dem); write('Co ',dem,' chu so xau vua nhap'); readln

end Bai 11

program bai11;

uses crt;

const max=60;

type Hocsinh = record

hoten:string[30]; ngaysinh:string[10]; diachi:string[50]; toan, van:real; xeploai:char; end;

var lop:array[1 max] of hocsinh;

N, i:byte; begin

clrscr;

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

for i:=1 to n do

with lop[i] do {Chú ý câu lệnh này}

begin

writeln('Nhap so lieu hoc sinh thu ',i,':'); write('Ho va ten: ');readln(hoten); write('Ngay sinh: ');readln(ngaysinh); write('Dia chi : ');readln(diachi); write('Diem toan: ');readln(toan); write('Diem van : ');readln(van);

if toan+van>=18 then xeploai:='A';

(8)

xeploai:='B';

if (toan+van>=10) and (toan+van<14) then

xeploai:='C';

if (toan+van<10) then

xeploai:='D';

end; clrscr;

writeln('Danh sach hoc sinh:');

for i:=1 to n do with lop[i] do

writeln(hoten:30,'- xep loai: ',xeploai); writeln('Danh sach hoc sinh loai A:');

for i:=1 to n do with lop[i] do 21

if xeploai='A' then

writeln(hoten:30); readln

end

BÀI TẬP SGK TIN 11!!

1 Nhập mảng chiều,đếm số cặp phần tử khác mảng

2 Nhập dãy số N dương,sắp xếp dãy sốđó thuật tốn tráo đổi,đếm số lần thực

tráo đổi đo

3 Nhập dãy số nguyên dương N,CHO BIẾT CÓ BAO NHIÊU SỐ CHIA HẾT CHO7

4 Nhập dãy số nguyên N cho biết có phần tử chia hết cho 3.Tính tổng

số chia hết cho đo

Giúp dùm nha,,, BÀi 1:

var a,b:array [1 100] of integer; n,i,t:byte;

begin

write('so phan tu cua hai day la : '); readln(n);

writeln('Nhap day thu nhat: '); for i:=1 to n

begin

write('Phan tu thu ',i,' : '); readln(a[i]);

(9)

writeln('Nhap day thu hai : '); for i:=1 to n

begin

write('Phan tu thu ',i,' : '); readln(b[i]);

if a[i]<>b[i] then t:=t+1; end;

write('so cap phan tu khac : ',t); readln;

end Bài 2:

var a: array [1 100] of word; n,i,j,dem:byte;

tg:word; begin

for i:=1 to n begin

write('Phan tu thu ',i,' : '); readln(a[i]);

end; dem:=0;

for i:=N downto for j:=1 to i if a[i]<a[j] then begin

tg:=a[i]; a[i]:=a[j]; a[j]:=tg; dem:=dem+1; end;

write('Day da sap xep : '); for i:=1 to n write(a[i]:4); writeln;

write('so lan trao doi: ',dem); readln;

(10)

var a: integer; n,i,dem:byte; begin

write('so phan tu cua mang; '); readln(n);

dem:=0; for i:=1 to n begin

write('Phan tu thu ',i,' : '); readln(a);

if a mod = then dem:=dem+1; end;

write('Co ',dem,' so chia het cho '); readln;

end Bài 4:

var a,b:integer; n,i,j:byte; begin

b:=0; j:=0;

for i:=1 to n begin

write('phan tu thu ',i,' : '); readln(a);

if a mod = then begin

j:=j+1; b:=b+a; end; end;

writeln('co ',j,' phan tu chia het cho 3'); write('tong cac phan tu chia het cho la: ',b); readln;