Chương trình pascal lseq
Một dãy tuyến tính là 1 bộ 3 có thứ tự (s1,s2,s3) thỏa mãn s2-s1=s3-s2 Trang 1 Bài tập dành cho bồi dưỡng học sinh Giỏi cấp Trung học cơ sở: Bài 1: Nhập vào một mảng có n số nguyên dương khác nhau. Hãy in ra tất cả các phần tử trong mảng Kết quả: Xuất ra file BT.out, là các phần tử tìm được, mỗi phần tử viết trên 1 dòng Chương trình: end; Trang 2 xuli; Bài 2: Tổng lập phương Tìm tất cả các số có 3 chữ số sao cho tổng lập phương của các chữ số bằng chính số đó Dữ liệu xuất: Xuất ra file LP.OUT, mỗi dòng là một số tìm được Chương trình: Bài 3: Hè đến rồi, Nam được bố dẫn đi chơi công viên. Trong công viên có
nhiều gian hàng trò chơi, Dữ liệu ra: file văn bản CHONSO.OUT, gồm 1 dòng chứa 2 số K, L trong đó K chỉ số thứ tự CHONSO.INP Trang 3 10 3 6 Chương trình: begin Trang 4 if b[i]=a[m] then Bài 4: Dãy tuyến tính Một dãy tuyến tính là 1 bộ 3 có thứ tự (s1,s2,s3) thỏa mãn s2-s1=s3-s2 Giải thích: Chương trình: begin Trang 5 end; xuli; Bài5: Nhập một dãy A có N số tự nhiên (N<40) và 1 số K. Hãy xuất ra các phần tử có số lần DAYSO.INP Chương trình: Trang 6 read(f,n,k); nhap; Bài 6 : Cho 5 số. Trong 5 số đó: Chương trình: procedure nhap; Trang 7 begin procedure xuli; Bài 7: Nhập dãy số thực a và số k. Xét xem trong dãy có k số dương đứng cạnh nhau hay không? Chương trình: Trang 8 write('Nhap vao so k can kiem tra: '); else d1:=0;
Bài 8: Ví dụ: Chương trình: write('Nhap so pt cua day: '); Trang 9 end; Bài 9: là 1 số chính phương. Chương trình: Trang 10 end; Bài 10: Nhập số thực x. Tìm phần nguyên có mấy chữ số, in ra màn hình chữ số lớn nhất. Chương trình: procedure dem( x: real);
Trang 11 n:=n div 10; end; Bài 11: Viết chương trình nhập vào số kg gạo. Giả sử ta có 1 số bao như sau: 20 kg, 10 kg, 5 kg, 2 - Cách 6: Chương trình: Trang 12 clrscr; if b10>0 then writeln('Bao 10: ',b10); Bài 12: Nhập vào 1 số n (n>5).
Hãy phân tích n thành tổng 3 số nguyên tố Chương trình: var i:integer; Trang 13 for i:=2 to trunc(sqrt(x))
do readln; Bài 13 : Viết chương trình nhập
vào 1 số nguyên dương n ( 0 < n < = 32000). Hày cho biết số nguyên Chương trình: Trang 14 function kiemtra1(n2:integer):integer; var h:integer; end; Trang 15 else write(A[t]); xet(i,m); Bài 14 : Ma trận đều theo hàng, cột: Chương trình: Trang 16 begin h:=0; Trang 17 end Bài 15: Ma trận vuông A gọi là ma phương nếu tổng mỗi hàng, tổng mỗi cột, tổng mỗi đường chéo Chương trình: for j:=1 to n do Trang 18 procedure xuly; s1:=0; readln; Bài 16: Một ma trận gọi là thưa nếu số phần tử 0 chiếm quá một nửa. Cho ma trận các số thực và Trang 19 0 4 0 Chương trình: var i,j:byte; Bài 17: Dữ liệu nhập: cho trong file Bai.inp gồm: Trang 20 Ví dụ: Chương trình: reset(f); Trang 21 writeln(f,i,' ',j); Chương trình: procedure
nhap; Trang 22 kt1:=false; for i:=1 to n do Bài 19: type ar=array[1 50,1 50]of byte; Trang 23 read(f,n,m); rewrite(f); Bài 20: Trang 24 - Các dòng tiếp theo là vị trí của hàng có tổng lớn nhất. for i:=1 to n do Trang 25 assign(f,fo); t:=t+a[i,j]; Bài 21: a/ Không Chương trình: |