phongvo.blog

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

XÂU KÝ TỰ I. KHAI BÁO KIỂU STRING TYPE TênKiểu = STRING[Max]; VAR Tên biến : TênKiểu; hoặc khai báo biến trực tiếp: VAR Tên biến : STRING[Max]; Trong đó Max là số ký tự tối đa có thể chứa trong chuỗi (Max ∈ [0,255]). Nếu không có khai báo [Max] thì số ký tự mặ mặc định trong chuỗi là 255. Ví dụ: Type Hoten  = String[30]; St80 = String[80]; Var Name : Hoten; Line : St80; St : String; {St có tối đa là 255 ký tự} II. TRUY XUẤT DỮ LIỆU KIỂU STRING - Có thể sử dụng các thủ tục xuất nhập Write, Writeln, Readln để truy xuất các biến kiểu String. - Để truy xuất đến ký tự thứ k của xâu ký tự, ta sử dụng cú pháp sau: Tênbiến[k]. IV. CÁC THỦ TỤC VÀ HÀM VẾ XÂU KÝ TỰ 4.1. Hàm lấy chiều dài của xây ký tự LENGTH(St : String):Integer; 4.2. Hàm COPY(St : String; Pos, Num: Byte): String; Lấy ra một xâu con từ trong xâu St có độ dài Num ký tự bắt đầu từ vị trí Pos . 4.3. Hàm POS(SubSt, St :String):Byte; Kiểm tra xâu con SubSt có nằm trong xâu St hay k...

DÃY ĐAN DẤU TRONG PASCAL Dãy đan dấu là dãy không có 2 phần tử cạnh nhau có dấu giống nhau. ví dụ: -2 4 -9 5 -23 8 là dãy đan dấu Thủ tục kiểm tra dãy đan dấu trong dãy số: procedure dandau; var i,j:integer;     kt:boolean; begin kt:=true; for i:=1 to N-1 do                 begin                 j:=i+1;                 if a[i] *a[j] >0 then kt:=false;                 end; If kt=true then write('Day A la day dan dau') else write('Day A khong phai day dan dau'); end;