TUYEN TAP 61 BAI TAP PASCAL CO BAN

... thức in kết hình Mô tả : CONST Bacmax = 50; TYPE Trang 27 Dathuc = Record Bac: Integer; Heso:Array[0 Bacmax] of Real; End; Program CONG_DA_THUC; Uses Crt; Type dathuc=record bac:integer; heso:array[0 ... Writeln('Phuong trinh co vo so nghiem') Else Writeln('Phuong trinh vo nghiem') Else Writeln('Phuong trinh co mot nghiem: x=',-c/b:4:2) Else Begin d:=b*b-4*a*c; If d=0 then Writeln('Phuong trinh co nghiem ... Writeln('C(',n,',',k,') = ',c(n,k):6:0); Readln; End k Bài 29: Lập tam giác PASCAL, Cn (dùng chương trình con) n Program TAM_GIAC _PASCAL; Uses Crt; Var i,j,n,k:integer; Function gt(n:integer):longint;...

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 Program COPY_FILE; Trang 37 Uses Crt; ... Read(f2,i); Write(i:3); End; Close(f2); Readln; End Bài 61 Viết chương trình tạo file F3 chứa số nguyên cách nối hai file số nguyên F1 F2 có đĩa In nội dung tập tin hình Program GHEP_FILE; Uses Crt; Var...

41
1,498
4

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 ... hai số nguyên không âm R1, S1, R1...

18
2,143
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 37 Uses Crt; ... ');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;...

41
1,985
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 Pascal ... thay đổi suốt chương trình - Cú pháp: CONST = ; hoặc: CONST : = ; Ví dụ: CONSTMax = 100; Name = 'Tran Van Hung'; Continue = FALSE; Logic = ODD(5); {Logic...

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; Var i,j,n:integer; ... C(k,n:integer):real; Begin C:=gt(n)/(gt(k)*gt(n-k)); End; Begin Clrscr; Writeln('VIET TAM GIAC PASCAL: '); Writeln(' -'); Write(' Nhap n = '); readln(n); For i:=0 to n Begin For...

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 clrscr; ... x1:=(-b)/(2*a); writeln('PT co nghiem kep la: ',x1:0:2); end else writeln('PT vo nghiem'); readln END Bài 5: Nhập vào số nguyên gồm chữ số -Kiểm tra tình chắn lể -kiểm tra xem có phải số nguyên tố không...

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 sinh,in danh sách vừa nhập Program danh_sach; ... Writeln; Writeln(' Bam phim de ket thuc '); Readln End Bài tập phần xâu : Bài tập1 : Chương trình nhập từ bàn phím ký tự chương trình đếm số lần xuất ký tự Program Dem_so_lan; Uses Crt ; Var...

45
14,419
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 Program COPY_FILE; Trang 37 Uses Crt; ... Writeln('VIET TAM GIAC PASCAL: '); Writeln(' -'); Write(' Nhap n = '); readln(n); For i:=0 to n Begin For j:=0 to i Write(C(j,i):3:0); Writeln; End; Readln; End Bài 30: Viết chương...

41
1,395
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); insert(s2[n],s,i); end; write(s); readln; end 17.VCT cho nhập xâu ký tự có lẫn vào số có chữ số (vd: fffhgj234fgg)- có kiểm tra việc nhập sai (vd: jghjg45jk ggdg012gdg ggdgg34hjhh3…)...

14
1,376
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 nghiem'); readln END Bài 5: Nhập vào số nguyên gồm chữ số -Kiểm tra tình chắn lể -kiểm tra xem có phải số nguyên tố không...

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

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

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,') = ',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;...

Xem thêm

Từ khóa: 61 bài tập pascal cơ bản các bài tập pascal cơ bản có lời giải một số bài tập pascal cơ bản có lời giải 1 số bài tập pascal cơ bản các bài tập pascal cơ bản lop 8 các bài tập pascal cơ bản lop 11 Nghiên cứu sự biến đổi một số cytokin ở bệnh nhân xơ cứng bì hệ thống Nghiên cứu tổ chức chạy tàu hàng cố định theo thời gian trên đường sắt việt nam Giáo án Sinh học 11 bài 13: Thực hành phát hiện diệp lục và carôtenôit Giáo án Sinh học 11 bài 13: Thực hành phát hiện diệp lục và carôtenôit Quản lý hoạt động học tập của học sinh theo hướng phát triển kỹ năng học tập hợp tác tại các trường phổ thông dân tộc bán trú huyện ba chẽ, tỉnh quảng ninh Phối hợp giữa phòng văn hóa và thông tin với phòng giáo dục và đào tạo trong việc tuyên truyền, giáo dục, vận động xây dựng nông thôn mới huyện thanh thủy, tỉnh phú thọ Nghiên cứu, xây dựng phần mềm smartscan và ứng dụng trong bảo vệ mạng máy tính chuyên dùng Nghiên cứu về mô hình thống kê học sâu và ứng dụng trong nhận dạng chữ viết tay hạn chế Định tội danh từ thực tiễn huyện Cần Giuộc, tỉnh Long An (Luận văn thạc sĩ)Thiết kế và chế tạo mô hình biến tần (inverter) cho máy điều hòa không khí Tổ chức và hoạt động của Phòng Tư pháp từ thực tiễn tỉnh Phú Thọ (Luận văn thạc sĩ)Kiểm sát việc giải quyết tố giác, tin báo về tội phạm và kiến nghị khởi tố theo pháp luật tố tụng hình sự Việt Nam từ thực tiễn tỉnh Bình Định (Luận văn thạc sĩ)Tăng trưởng tín dụng hộ sản xuất nông nghiệp tại Ngân hàng Nông nghiệp và Phát triển nông thôn Việt Nam chi nhánh tỉnh Bắc Giang (Luận văn thạc sĩ)Tranh tụng tại phiên tòa hình sự sơ thẩm theo pháp luật tố tụng hình sự Việt Nam từ thực tiễn xét xử của các Tòa án quân sự Quân khu (Luận văn thạc sĩ)Giáo án Sinh học 11 bài 14: Thực hành phát hiện hô hấp ở thực vật Giáo án Sinh học 11 bài 14: Thực hành phát hiện hô hấp ở thực vật BÀI HOÀN CHỈNH TỔNG QUAN VỀ MẠNG XÃ HỘI Chiến lược marketing tại ngân hàng Agribank chi nhánh Sài Gòn từ 2013-2015 TÁI CHẾ NHỰA VÀ QUẢN LÝ CHẤT THẢI Ở HOA KỲ QUẢN LÝ VÀ TÁI CHẾ NHỰA Ở HOA KỲ