kho bai tap pascal
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. ... Writeln(N,’ khong phai la so nguyen to’)
Else
Begin
{Đếm số ước số}
d:=0;
For i:=2 To N div 2 Do
If N MOD i=0 Then d:=d+1;
{Kiểm tra}
If d=0 Then Writeln(N,’ la so nguyen to’)
Else Writeln(N,’ khong ... tục.
6.2. Câu lệnh có cấu trúc
9
Giáo trình bài tập Pascal
S =
p p a p b p c
( )( )( )− − −
với p =
1
2
(a+b+c)
Bài tập 2.6: Viết chương trình tính kho ng cách từ một điểm I(x
i
,y
i
) đến đường...
- 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
... dữ liệu trừu tượng nào đó do
sinh viên tự khai báo}
DataPtr = ^Node;
Node = Record
Data : Hoso;
Next : DataPtr;
End;
VAR
NhanVien,Tam:DataPtr;
a) Viết các thủ tục để tạo một danh sách liên kết ... bao
nhiêu kí tự (không kể kí tự xuống dòng và kí tự kho ng trắng), bao nhiêu từ
(Một từ là một chuỗi con khác rỗng giới hạn giữa hai kí tự kho ng trắng)
22. Viết chương trình cho phép tạo một ... nhập vào từ bàn phím một chuỗi. Ta định nghĩa một
từ là một dãy liên tục các kí tự khác kho ng trắng, kho ng trắng là dấu tách từ
duy nhất. Chương trình có nhiệm vụ thông báo ra màn hình các...
- 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');
... < a*a + b*b then Writeln('Day la tam giac
Nhon ');
End;
End
Else Writeln('Khong la ba canh cua tam giac ');
Readln
END.
Program GiaiHePT;
Var a1,b1,c1,a2,b2,c2: Integer;
... C[i,j]:=A[i,j]+B[i,j];
Writeln('Ma tran C co cac phan tu la:');
If vt=0 then Writeln('Khong co phan tu nao tron
chuc ');
Readln
END.
Program SapXepTangGiam;
Var M: Array[1 100]...
- 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];
... Writeln('Cac phan tu cua tap hop la:');
For ch:='a' to 'z' do
If ch in tap then Write(ch,' ');
33
Bài tập ngôn ngữ lập trình PasCal Biên soạn: Hoàng Đức ... Close(f);
End;
Function Card(S: Tap) : byte;
Var i,n: byte;
Begin
n:=0;
For i:=0 to 99 do If i in S then Inc(n);
Card:=n;
End;
BEGIN
Nhap;
Clrscr;
Write(&apos ;Tap S co ',Card(S),'...
- 55
- 913
- 20
Bai tap Pascal co ban
Ngày tải lên :
24/06/2013, 01:28
... biểu thức số học đúng thì ghi vào file
OUT.BL dòng chữ
KHONG DUNG
Ví dụ
INP.BL OUT.BL
(((abc)) KHONG HOP LE
((()()))() DUNG
(()(()())))) KHONG DUNG
Bài 32. Cho một đồ thị vô hớng N đỉnh đánh số ... 0<=A[i]<=B[i]<T.
1. Cho trớc một kho ng thời gian [P1,Q1]. HÃy xét xem liệu tại mọi thời điểm của
đoạn đó luôn có chơng trình chạy hay không?
2. Cho trớc một kho ng thời gian [R1,S1]. HÃy xét ... không có chơng trình chạy hay không?
3. HÃy tìm kho ng thời gian [P,Q] dài nhất sao cho tại mọi thời điểm của nó luôn có
chơng trình chạy.
4. HÃy tìm kho ng thời gian [R,S] dài nhất sao cho tại mọi...
- 18
- 2.1K
- 12
BAI TAP PASCAL BOI DUONG HSGIOI HUYEN
Ngày tải lên :
26/06/2013, 01:26
... ',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 ch=#13;
writeln;
write('Co hien mat khau khong(c/k):');readln(tl);
if ... 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 ... '9'];
for i :=1 to length(s) do if s[i]in so then s1:=s1+s[i];
write('Co hien so khong (c/k)');readln(tloi);
if upcase(tloi)<>'C' then write('Tam biet')
...
- 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
... bằng nhau thì in ra hết.
ví dụ:
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ố ngun gồm n phần tử. Tìm dãy con gồm m phần ... ngun t cách nhau ít nht 1 du cách có tng bng s ã cho (hoc khơng tìm
c – ghi là “khong”).
Input Output
3
8
12
3 5
5 7
9 9 9 9 9 9 9
BÀI 2: SẮP SỐ TRONG XÂU
1. Nhập một xâu s bao ... trong yêu cầu 1) được ghi trên cùng một dòng theo đúng
thứ tự trên, hai số liên tiếp cách nhau một kho ng trắng.
Dữ liệu ra: Kết quả ghi ra màn hình (hoặc ghi ra file DIENTICH.OUT) trên 5 dòng:
...
- 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
bài tập pascal kiểu file
Ngày tải lên :
18/07/2013, 01:26
... 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 ... trong phần Câu hỏi, ví dụ, bài tập nhưng theo
chiều ngược lại, tức là thực hiện các thao tác ghi.
(Bai 1)
Var f:text;
m,n:integer;
Begin
m:=10; n:=4;
assign(f, 'son.inf'); reWrite(f);
Writeln(f, ... ',n);
close(f);
assign(f, 'son.inf'); reset(f);
Readln(f, m, n);
close(f);
Writeln(m:4, n:4);
Readln;
End.
(Bai 2)
Var f:text;
m,n:integer;
Begin
m:=4; n:=5;
assign(f, 'sod.inf'); reWrite(f);
Writeln(f,...
- 12
- 42.2K
- 942
Bài tập pascal dạng file
Ngày tải lên :
18/07/2013, 01:26
... dòng bao g m M s cách nhau b i d uế ố ệ ủ ỗ ồ ố ở ấ
cách.
2
Writeln(m); Writeln(n);
Readln;
End.
(Bai 3)
Var f:text;
n,i:integer;
a:array[1 100] of integer;
Begin
Write('Nhập số n: ');Readln(n);
Writeln('Nhập ... reset(f);
Readln(f, n);
For i:=1 to n do Readln(f,a[i]);
close(f);
For i:=1 to n do Writeln(a[i]);
Readln;
End.
(Bai 4)
Var f:text;
n,i:integer;
a:array[1 100] of integer;
Begin
Write('Nhập số n: ');Readln(n);
Writeln('Nhập ... reset(f);
Readln(f,n);
For i:=1 to n do Read(f,a[i]);
close(f);
For i:=1 to n do Writeln(a[i]);
Readln;
End.
(Bai 6)
Var f: text;
n, i: integer;
a: array[1 100] of integer;
Begin
Write('Nhập số n: ');...
- 12
- 1.7K
- 12
