61 Bài tập pascal cơ bản

Bai tap Pascal co ban

... Khong co - 14 Lê Ngọc Thắng hop_thu_cua_bodie_37@yahoo.com Bài tập Tập I Ví dụ với file INP.TXT 31 27 27 26 22 12 20 file OUT.TXT 3 Với file INP.TXT 1 29 29 26 19 12 20 file OUT3.TXT Khong co ... ghi file OUT.BL nh sau: -7 Lê Ngọc Thắng hop_thu_cua_bodie_37@yahoo.com Bài tập Tập I - Nếu đờng đi, ghi dòng chữ KHONG CO DUONG DI, - Nếu có đờng đi, ghi hai dòng: dòng thứ ghi số cung, dòng ....

Ngày tải lên : 24/06/2013, 01:28

18
2.1K
12

60 bài tập Pascal cơ bản

... giay: ');readln(x); gio:= x div 3600 ; x:=x mod 3600 ; phut:=x div 60; x:=x mod 60; Writeln('Ket qua = ', gio,'gio : ', phut, 'phut : ', x, 'giay'); Readln; End Bài 11: Nhập vào tâm bán kính đường ... While not eof(f) Begin read(f,i); write(i:3); End; Readln; End Bài 60: Mở file số nguyên có đĩa, chép nội dung sang tập tin in nội dung tập tin sau chép hình Program COPY_FILE; Trang...

Ngày tải lên : 26/07/2013, 01:27

41
2K
19

bai tap pascal co ban.doc

... chấm phẩy (;) 1.2 Lệnh CASE Cú pháp: Dạng CASE B OF Const 1: S1; Const 2: S2; Const n: Sn; END; Dạng CASE B OF Const 1: S1; Const 2: S2; Const n: Sn; ELSE Sn+1; END; Trong đó:  B: Biểu thức ... tên BAI1 .PAS Thoát khỏi Pascal Khởi động lại Turbo Pascal Mở file BAI1 .PAS Chèn thêm vào dòng: CLRSCR; vào sau dòng BEGIN Dịch chạy thử chương trình 10 Lưu chương trình vào đĩa 11 Thoát khỏi...

Ngày tải lên : 26/08/2013, 00:10

144
868
5

61 BÀI TẬP PASCAL CƠ BẢN

... ');readln(k); Writeln('C(',n,',',k,') = ',c(n,k):6:0); Readln; End Bài 29: Lập tam giác PASCAL, Cn k(dùng chương trình con) n Program TAM_GIAC _PASCAL; Uses Crt; Var i,j,n,k:integer; Trang 12 Function gt(n:integer):longint; ... While not eof(f) Begin read(f,i); write(i:3); End; Readln; End Bài 60: Mở file số nguyên có đĩa, chép nội dung sang tập tin in nội dung tập tin sau chép hình...

Ngày tải lên : 28/08/2013, 08:00

41
1.5K
4

Bai tap Pascal cơ bản

... Writeln('C(',n,',',k,') = ',c(n,k):6:0); Readln; End Bài 29: Lập tam giác PASCAL, Cn k(dùng chương trình con) n Program TAM_GIAC _PASCAL; Uses Crt; Var i,j,n,k:integer; Trang 12 Function gt(n:integer):longint; ... ((5*td+3*tn+tg/3=100)and (td+tn+tg=100)) then Writeln(td:6, tn:12, tg:15); Readln; End Trang Bài 23: Tạo bảng số dạng sau: 10 11 12 13 14 15 16 17 18 19 Program BANG_SO; Uses crt;...

Ngày tải lên : 10/10/2013, 04:11

41
644
2

Bài tập pascal cơ bản

... Tương tự với xếp với dãy giảm dần Bài 28: Cho dãy số a1, ,an; b1, ,bm xếp theo thứ tự tăng dần Lập trình để từ dãy xây dựng dãy theo thứ tự tăng dần Lời giải: Bài 29: Nhập số nguyên dương n dãy ... can'); if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=b*b+a*a)then writeln('Tam giac vuong'); readln END Bài 4: Lập trình giải phương trình bậc 2: Lời giải: uses crt; var a,b,c,x1,x2,d:real; BEGIN...

Ngày tải lên : 23/10/2013, 20:15

15
803
5

Bài tập Pascal cơ bản đến nâng cao theo chương trình tin học lớp 11 không phân ban

... ĐT : 0972. 311. 481 Trang 30 Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang Bài tập 2: Chương trình nhập danh sách học sinh gồm Họ tên, tuổi, lớp Chương trình in danh sách sau xếp theo thứ tự ... upcase(s[i+1]; Writeln(‘xau sau dieu chinh la’,s); Readln End Bài tập phần ghi, file Bài tập 1: Chương trình nhập danh sách học sinh gồm Họ tên, tuổi, lớp học...

Ngày tải lên : 30/10/2013, 08:49

45
14.4K
17

Bài soạn Những bài tập Pascal cơ bản

... ');readln(k); Writeln('C(',n,',',k,') = ',c(n,k):6:0); Readln; End Bài 29: Lập tam giác PASCAL, Cn k(dùng chương trình con) n Program TAM_GIAC _PASCAL; Uses Crt; Var i,j,n,k:integer; Trang 12 Function gt(n:integer):longint; ... While not eof(f) Begin read(f,i); write(i:3); End; Readln; End Bài 60: Mở file số nguyên có đĩa, chép nội dung sang tập tin in nội dung tập tin sau chép hình...

Ngày tải lên : 24/11/2013, 09:11

41
1.4K
24

Bài tập Pascal cơ bản và hướng dẫn

... readln; end VCT tìm ước chung lớn bội chung nhỏ hai số nhập vào từ bàn phím? var a,b,min,max,ucln:integer; begin write('moi nhap hai so can xac dinh: '); readln(a,b); ... a[i]:=a[j]; a[j]:=tam; end; for i:=1 to n writeln(a[i]); readln; end VCT đọc số có chữ số nhập vào từ bàn phím? uses crt; Var s:array[1 9] of string; a,b,c,n:integer; begin clrscr; repeat write('nhap ... inc(n); delete(s,i,1...

Ngày tải lên : 26/12/2013, 20:00

14
1.4K
4

Bài tập pascal cơ bản ppt

... Bài 3: Lập chương trình nhập vào độ dài cạnh tam giác thực : + Tính chu vi, diện tích, đường cao ... can'); if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=b*b+a*a)then writeln('Tam giac vuong'); readln END Bài 4: Lập trình giải phương trình bậc 2: Lời giải: uses crt; var a,b,c,x1,x2,d:real; BEGIN clrscr; ... x1:=(-b)/(2*a); writeln('PT co nghiem kep la: ',x1:0:2); end else writeln('PT vo nghie...

Ngày tải lên : 19/06/2014, 09:20

17
777
4

Bài tập pascal cơ bản dành cho hs-sv pps

... readln END Bài 15: Lập trình giải toán cố sau Vừa gà vừa chó Bó lại cho tròn Ba mưoi sáu Một trăm chân chẵn Lời giải: uses crt; var cho: byte; BEGIN clrscr; for cho: =1 to 25 if 4 *cho+ (36 -cho) *2=100 ... to 25 if 4 *cho+ (36 -cho) *2=100 then writeln('So ga la: ',36 -cho, ' so cho la: ' ,cho) ; readln END Bài 16: Nhập số nguyên dương n

Ngày tải lên : 21/07/2014, 15:20

15
817
16

Bài tập pascal cơ bản doc

... khối lợng M[J] cầu J Bài 29 Có N Bài với số hiệu 1, 2, , N, N

Ngày tải lên : 07/08/2014, 11:20

18
773
3

những bài tập pascal cơ bản và nâng cao

... Tổng Hợp 61 Bài Tập Pascal Có Lời Giải p:=(a +b+c End )/2; s:=sq rt(p* (pa)*(p Trang b)*( pc)); Writ eln(' Chu vi ... Writeln('Ket qua = ', gio,'gio : ', phut, 'phut : ', x, 'giay'); Readln; End Bài 11: Nhập vào tâm bán kính đường tròn Sau nhập vào điểm A(x, y) kiểm tra xem có thuộc đường tròn hay không? Program KIEM_TRA_DIEM_THUOC_DUONG_TRON; ... ');readln(k); Writeln('C(',n,',',k,')...

Ngày tải lên : 06/02/2015, 08:00

78
540
5

Tổng Hợp 61 Bài Tập Pascal Có Lời Giải

... la: ',s:6:2); Readln; End Bài 36: Giải hệ phương trình: Viết chương trình giải hệ phương trình tuyến tính ẩn dùng ma trận a11.x + a12.y = c1 a21 + a22.y = c2 Type MT = Bài 37: Hãy viết chương trình ... vuông cấp n array[1 a Tính tổng phần tử nằm đường chéo 0,1 20] of b Tính tổng bình phương số nằm hàng chẵn integer; c Tính tổng bậc hai số không âm cột lẻ d Đếm số phần tử có gi...

Ngày tải lên : 11/04/2015, 23:33

65
1.6K
0

Một số bài tập pascal cơ bản lớp 8

... phần xếp Bài tập 1.10: Viết chương trình cho biết chữ số hàng trăm, hàng chục, hàng đơn vị số có ba chữ số Ví dụ nhập số 357 máy in ra: - Chữ số hàng trăm: - Chữ số hàng chục: - Chữ số hàng đơn ... Trang 19 100 tập Turbo Pascal IV Cấu trúc lặp với số lần lặp chưa biết Bài tập 4.1: Viết chương trình in số lẻ nhỏ n ( Với n nhập) a Hướng dẫn: - Sử dụng kiến thức số...

Ngày tải lên : 08/06/2015, 23:27

54
4K
3