phongvo.blog

Bài 1:  Cho tam giác ABC  có chiều dài 3 cạnh lần lượt là a,b,c ; 0<a,b,c<10 Hãy tìm các giá trị  a,b,c sao cho tạo thành một tam giác vuông Thỏa mãn  a+b>c ; a+c>b và b+c>a thì là tam giác   C^2=a^2+b^2 Chuyên đề: Mảng 1 chiều (làm việc với dãy số) Ví dụ:  nhập vào các số có giá trị như sau Giá trị  mảng A 1 4 8 9 6 8 4 3 Vị trí: i 1 2 3 4 5 6 7 8 Lấy giá trị A[1]=3  A[2]=4 A[3]=8 A[4]=6 A[5]=9 A[6]=8 A[7]=4 A[8]=1 Khai báo mảng Var   A :array[1..50] of   integer; {khai báo mảng A là mảng gồm 50 số nguyên} 1 2 3 …. 50 Bài toán  Nhập vào từ bàn phím N số nguyên  (0<n...

KỲ THI HSG LỚP 9 THCS  TỈNH PHÚ YÊN  (2015-2016) môn: Tin học thời gian làm bài 150 phút Câu 1: (3đ) phần thưởng trong một cuộc thi giải toán trên Internet mỗi học sinh đều có số điểm tích lũy riêng của mình. số điểm tích lũy của mỗi học sinh là một số nguyên dương k(0<k<2x10 mũ 9). Đội tuyển của trường THCS tài năng có N học sinh tham gia dự thi (2<=N<=100). Tại cuộc gặp mặt trước cuộc thi cấp tỉnh, thầy hiệu trưởng quyết định thưởng cho các học sinh trong đội tuyển Q triệu đồng, biết rằng điểm tích lũy của mỗi học sinh đều chia hết cho Q. yêu cầu: Hãy tìm số nguyên dương Q lớn nhất dữ liệu vào: cho trong file văn bản PT.INP có cấu trúc như sau -           Dòng 1: ghi số nguyên dương N là số học sinh -           dòng 2: Ghi N số nguyên dương lần lượt là điểm tích lũy của N học sinh, các số được ghi cách nhau ít nhất một dấu cách. ví dụ: PT.inp ...

uses crt; var N,i:integer;     f,g:Text; function snt( a:integer):boolean; var j:integer; uoc:integer; begin uoc:=0; for j:= 1 to a do if a mod j =0 then uoc:=uoc+1; if uoc=2 then snt:=true else snt:=false; end; begin  assign(f,'bai1.txt') ; {khoi tao}  reset(f);              {doc du lieu}  read(f,n);             {doc du lieu vao bien N}  close(f) ;                   {dong tep}  assign(g,'kqbai1.txt') ; {khoi tao}  rewrite(g);              {tao tep tin moi}  for i:=1 to n-1 do  if (i mod 2=0) and (i mod 3=0) then write(g,i, ' ');  for i:=1 to N-1 do  if snt(i)=true then writeln(g,'snt:',i);  close(g);  readkey;  end.

Bài tập 2: Bài tập mảng dữ liệu lớp 9a có số học sinh là N, nhập điểm môn tin học cho tất cả các học sinh trong lớp, thực hiện a.   Tìm điểm  cao nhất  trong lớp b.  Tìm số lượng các bạn có điểm lớn hơn 5

Bài tập 3:Cho tệp INPUT.TXT chứa dữ liệu như sau -           Dòng 1: chứa số phần tử  n của dãy số nguyên -           dòng 2: chứa dãy A gồm  n phần tử số nguyên -           dòng 3: chứa dãy B gồm n phần tử số nguyên Yêu cầu: Xuất kết quả ra tệp OUTPUT.TXT -           Dòng 1: các số có trong dãy A nhưng không có trong dãy B -           dòng 2:  các số có trong cả 2 dãy A và B INPUT.TXT OUTPUT.TXT 6 3 5 6 8 2 1 4 7 8 2 5 6 3 1 5 6 8 2 Bài tập 4: Điểm trung bình học kỳ môn tin học của lớp 9A được lưu trong tệp tin DIEM.INP có cấu trúc dữ liệu như sau: mỗi dòng trong tệp chứa thông tin về học sinh gồm có tên, điểm tb HK1, điểm tb HK2; Yêu cầu:In kết quả ra tệp DIEM.OUT - ...

INPUT.TXT OUTPUT.TXT 3 5 6 8 2 1 8 5 5 4 1 2 3 4 5 5 5 6 8 8 1 khong 4 3 5  5 5  i:=o; while not eof(f) do begin i:=i+1; read(f,a[i]); end; N:=i; 10 3 5 6 8 2 1 8 5 5 4 readln(f,n); for i:=1 to N do read(f,a[i]);

Bài 1:   Cho  tệp tin input.txt chứa dữ liệu như sau Dòng 1: chứa 1 câu tối đa 255 từ Yêu cầu: Xuất dữ liệu ra tệp OUTPUT.txt dữ liệu như sau -          dòng 1: xâu vừa đọc mà không có bất kỳ kí tự rỗng nào -          dòng 2: tất cả các kí tự số có trong xâu -          dòng 3: tổng tất cả các kí tự số INPUT.TXT OUTPUT.TXT Chao cac ban lop 12 a 11 Chaocacbanlop12a11 1211 5  Bài 2:  Cho tệp inp.inp chứa dãy số;Yêu cầu : - Tính trung bình cộng của các số nguyên dương, ghi vào dòng 1 tệp out.out - Dòng 2: in ra tất cả các số song tố có trong dãy, nếu không có ghi không;(số song tố là số mà tổng các chữ số của nó cũng là một số nguyên tố) inp.inp out.out  5 12 6 3 9  7 ….. ……. Bài tập 3: Viết chương trình tính điểm trung bình môn toán cho tất cả họ...