bai tap pascal file
bài tập pascal kiểu file
Ngày tải lên :
18/07/2013, 01:26
... nhập số liệu từ file trên, sắp xếp n dãy trên theo thứ tự tăng dần và ghi kết quả ra file
OUTPUT.TXT có dạng tương tự như file nhập liệu.
6
Làm việc với File trong Pascal
1. Một file văn bản trên ... chứa một chương trình Pascal hoàn chỉnh. Trong chương trình này trên một
dòng có thể chứa nhiều lệnh.
Em hãy viết chương trình in ra file mới có tên BLMOI.PAS chương trình Pascal trên sao cho ... chương trình nhập dữ liệu học sinh từ file trên và đưa vào các mảng dữ liệu tương ứng, tên file cũng
được đọc từ bàn phím.
Var f: text;
fn: string; {Tên file}
n, i: integer;
ht: array[1 100]...
- 12
- 42.2K
- 942
Bài tập pascal dạng file
Ngày tải lên :
18/07/2013, 01:26
... với File trong Pascal
1. M t file v n b n trên đ a có tên là SON.INF ch a đúng m t dòng bao g m hai s t ộ ă ả ĩ ứ ộ ồ ố ự
nhiên n, m đ c vi t cách nhau m t d u cách. Sau đây là m t ví d v file ... do
Begin
Readln(f,a[i]);
Writeln(a[i]);
End;
close(f);
Readln;
End.
(Bai 9)
Var f: text;
fn: string; {Tên file}
n, i, l, j: integer;
ht: array[1 100] of string[20];
t: array[1 100] of string[3];
xl: array[1 100] of char;
Begin
Write('Tên file cần ... nh p d li u h c sinh t file trên và đ a vào các m ng d li u ế ươ ậ ữ ệ ọ ừ ư ả ữ ệ
t ng ng, tên file c ng đ c đ c t bàn phím.ươ ứ ũ ượ ọ ừ
Var f: text;
fn: string; {Tên file}
n, i: integer;
ht:...
- 12
- 1.7K
- 12
Giáo trình lý thuật bài tập pascal Chương I
Ngày tải lên :
17/08/2012, 09:04
... Write('-Nhap mot so thuc = ');
Readln(so_thuc);
Writln;
GIAO TRINH LY THUYET VA BAI TAP TURBO PASCAL- CHUONG 1
Dang Thanh Tuan(15/3/2004)
**********0101**********
Program PTB2;
Var ... Writeln('De ');
Writeln('Cu ');
Readln
End.
*********0108*********
Program Tam_giac _Pascal;
Begin
Writeln(' 1');
Writeln(' 1 1');
Writeln(' 1 2 1'); ... ',x2:6:2);
End;
readln
End.
**********0102**********
Program Ao_thu;
Begin
Writeln(' BAI THO AO THU');
Writeln('Ao thu lanh leo nuoc trong veo');
Writeln('Mot...
- 4
- 1.1K
- 15
Bài tập pascal
Ngày tải lên :
17/08/2012, 10:48
... chạy chương trình trên.
4. Lưu chương trình vào đĩa với tên BAI1 .PAS.
5. Thoát khỏi Pascal.
6. Khởi động lại Turbo Pascal.
7. Mở file BAI1 .PAS.
8. Chèn thêm vào dòng: CLRSCR; vào sau dòng BEGIN
9. ... tập Pascal
Chương 4
CHƯƠNG TRÌNH CON: THỦ TỤC VÀ HÀM
I. KHÁI NIỆM VỀ CHƯƠNG TRÌNH CON
Chương trình con (CTC) là một đoạn chương trình thực hiện trọn vẹn hay một chức
năng nào đó. Trong Turbo Pascal, ... HÀNH
1. Khởi động Turbo Pascal.
2. Nhập vào đoạn chương trình sau:
Uses Crt;
Begin
Writeln(‘***********************************************************’);
Writeln(‘* CHUONG TRINH PASCAL DAU TIEN CUA...
- 144
- 2K
- 19
Giáo trình lý thuyết và bài tập Pascal
Ngày tải lên :
31/08/2012, 09:33
... GIAO TRINH LY THUYET VA BAI TAP TURBO PASCAL- CHUONG 1
Dang Thanh Tuan(15/3/2004)
**********0101**********
Program PTB2;
Var
a,b,c:Integer;
... ',x2:6:2);
End;
readln
End.
**********0102**********
Program Ao_thu;
Begin
Writeln(' BAI THO AO THU');
Writeln('Ao thu lanh leo nuoc trong veo');
Writeln('Mot chiec...
- 4
- 1.7K
- 19
Bài tập Pascal
Ngày tải lên :
13/11/2012, 12:03
... string;
Tuoi:byte;
CoQuan:String;
Luong:longint;
HonPhoi:Boolean;
End;
Chương trình cho phép:
a) Tạo file.
b) Xem file.
c) Thêm vào file một phần tử
d) Xóa khỏi file một phần tử.
e) Duyệt file để trả lời cho biết các thông tin cần biết về Luong ... giản đa thức, Cộng/Trừ/Nhân hai đa thức.
6
(Nếu file A có dòng: ‘DAY la dONG troNG File
thì dòng tương ứng trong file (B) là: ‘Day La Dong Trong File )
34. Khai báo kiểu dữ liệu như sau:
TYPE
Hoso ... đọc một file văn bản (A) và SAVE lại file đó với một tên khác (B) với nội
dung gồm tất cả dòng của file (A) đã được chuẩn hóa thành dạng Title Case
2
Lưu ý: Unit Printer của Turbo Pascal chỉ...
- 8
- 1.1K
- 14
Các bài tập Pascal
Ngày tải lên :
15/06/2013, 01:26
... Write(i,'x',j:2,'=',i*j:2,' ');Writeln;
End;
Readln
END.
Program BaiToanGaCho;
Var sg,sc: Byte;
BEGIN
Writeln(&apos ;Bai toan co Ga + Cho = 36 con. Chan ga + Chan
Cho = 100 chan');
... then
Writeln('Ket qua So Ga la: ',sg,' So Cho la:
',sc);
Readln
END.
Program BaiToanTramTrauTramCo;
Var td,tn,tg: Byte;
BEGIN
Writeln('Co 100 Trau an 100 bo co.');
...
- 20
- 1.5K
- 16
Bài tập PasCal
Ngày tải lên :
21/06/2013, 01:26
... phan tu khoi tap hop *)
Uses Crt;
Var tap: set of char;
ch: char;
BEGIN
tap: =[];
Writeln('Nhap cac phan tu cho mot tap hop cac ki tu: ');
Repeat
ch:=ReadKey;
tap: =tap+ [ch];
... end;
Var ds: Danhsach;
i: byte;
f: file of Danhsach;
BEGIN
ClrScr;
Writeln('Danh sach hoc sinh tu file bai2 .dat');
Writeln;
Assign(f,&apos ;bai2 .dat'); Reset(f);
For i:=1 ... char;
End;
Var ds1 : Danhsach1;
ds2 : Danhsach2;
f1 : file of Danhsach1;
f2 : file of Danhsach2;
36
Bài tập ngôn ngữ lập trình PasCal Biên soạn: Hoàng Đức Hà
x1:=(-b+sqrt(Delta))/(2*a);...
- 55
- 913
- 20
Bai tap Pascal co ban
Ngày tải lên :
24/06/2013, 01:28
... Tập I
Ví dụ với file INP.TXT
4 1 1 4 4
31 27 26 1
27 26 22 5
8 22 13 4
12 20 14 3
file OUT.TXT sẽ là
3 3
3 4
Víi file INP.TXT
4 1 1 3 4
1 29 26 1
29 26 19 5
8 19 14 7
12 20 14 5
file OUT3.TXT sẽ ... vào đợc cho bởi file INP.BL trong đó mỗi dòng ghi một xâu ký tự. Với mỗi
dòng đọc đợc của file INP.BL, có ba khả năng:
- Nếu xâu tơng ứng chứa ký tự khác với ( và ), ghi vào file OUT.BL dòng ... MIN1[i,1], . ., MIN1[i,N]. Ghi ra file MIN1-2.TXT mảng MIN2 thể
hiện tình trạng mìn theo cách thứ hai, mỗi dòng của mảng MIN2 ghi thành một dòng của
file.
2. Đọc từ file MIN2.TXT mảng MIN2 cho biết...
- 18
- 2.1K
- 12
BAI TAP PASCAL BOI DUONG HSGIOI HUYEN
Ngày tải lên :
26/06/2013, 01:26
... Bài tập Pascal BỒI DƯỢNG HỌC SINH GIỎI HUYỆN GV: Trần Minh Thọ
BÀI TẬP CƠ BẢN - Đáp án ++
1. Viết chương ... end;
write('ucln ',ucln);
write('bcnn ',a*b/ucln:1:1);
readln;
end.
Bài tập Pascal BỒI DƯỢNG HỌC SINH GIỎI HUYỆN GV: Trần Minh Thọ
repeat
ch:=readkey;
write('*');
s:=s+ch;
until ... nhập: abc6ghj7kkkkk1hhhh9
Kết quaû: abc1ghj6kkkkk7hhhh9
var a:array[1 100]of integer;
Bài tập Pascal BỒI DƯỢNG HỌC SINH GIỎI HUYỆN GV: Trần Minh Thọ
4. VCT giải hai bài toán cổ: 100 trâu 100...
- 8
- 5.4K
- 226
BAI TAP PASCAL BOI DUONG HOC SINH GIOI- KHONG CO DAP AN
Ngày tải lên :
02/07/2013, 01:25
... cu:
- D liu vào t file GB.INP gm nhiu dòng, dòng u là s test (<10), các dòng tip theo
mi dòng ghi 1 s t nhiên chn ln hn 2 (<32000)
- D liu ra là file GB.OUT gm các dòng ... bằng nhau thì in ra heát.
ví duï:
Input Output
Nguyen van truong truong
4
Truong thich hoc pascal Truong
pascal
5
BÀI 5: DÃY CON LỚN NHẤT
Cho một mảng số nguyên gồm n phần tử. Tìm dãy con gồm m ... phẩy).
Ví dụ:
DIENTICH.INP Kết quả trên màn hình (hoặc file DIENTICH.OUT)
10 6 2 10 6 2
60.0
4.0
30.0
17.5
Hạn chế kỹ thuật:
- Ghi tên file bài làm là DIENTICH.PAS.
- Dữ liệu vào là chính xác...
- 5
- 2.5K
- 88
Bài tập pascal rất hay
Ngày tải lên :
16/07/2013, 01:26
... phải.
Bài tập 2: Viết chương trình in ra màn hình tam giác Pascal. Ví dụ, với n=4 sẽ in ra hình
sau:
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
Ý tưởng:
Tam giác Pascal được tạo ra theo qui luật sau:
+ Mỗi dòng đều...
- 3
- 3.3K
- 76
