phongvo.blog

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ọ...

var N,n1,i,s:integer; {ham tinh so nguyen to} function snt(x:integer):boolean; var i:integer; begin         snt:=x>1;        for i:= 2 to x-1 do if x mod i =0 then snt:=false; end; {ham tinh tong cac chu so cua 1 so} function tong(n:integer):integer; var s:integer; begin s:=0; while n>0 do         begin            s:=s+ n mod 10;            n:=n div 10;         end; end; begin clrscr; repeat     write('Nhap n:'); read(n); until (n>1) and(n<1000); writeln('Tong cac chu so cua n:',tong(n));  {xet xem n co phai la so song to hay khong} if snt(n) and snt(tong(n)) then write('N la so song to') else  write('N khong phai so song to'); {in ra cac so song to tu 1 den 100} for i:=1 to 100 do if  snt(i) and snt(tong(i)) then write(i, ' '); readkey; end.

KIỂU BẢN GHI (RECORD) I. KHAI BÁO DŨ LIỆU KIỂU RECORD TYPE TênKiểu = RECORD Field1 : Kiểu1; Field2 : Kiểu2; ... FieldN: KiểuN; END; VAR Biến : TênKiểu; Ví dụ: TYPE HocSinh  = Record Hoten : String[20];     Tuoi : Integer; DiemTB : real; End; VAR  HS : HocSinh; II. XUẤT NHẬP DỮ LIỆU KIỂU RECORD Không thể dùng các thủ tục xuất/nhập, các phép toán so sánh đối với các biến kiểu record mà chỉ có thể sử dụng thông qua từng truờng của biến record đó. 2.1. Truy nhập trực tiếp: TênbiếnRecord.Field ví dụ: hs.hoten:=’ Nguen van An’; hs.tuoi:=26; hs.diemtb:=6.5; 2.2. Sử dụng câu lệnh WITH WITH  TênbiếnRecord DO BEGIN Xử lý Field1; Xử lý Field2; ... Xử lý FieldN; END; 2.3. Gán biến Record: Ta có thể gán 2 biến Record cùng kiểu với nhau. ví dụ: Hs:=hs1; BÀI TẬP Bài tập 1: Viết chương trình quản lý điểm thi nghề phổ thông của học sinh  gồm 2 môn thi: lý thuyết và thực hành; nội dung công việc gồ...