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

Bai tap Pascal co ban

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
  • 1,287
  • 9

60 bài tập Pascal bản

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,279
  • 9

bai tap pascal co ban.doc

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...
  • 144
  • 379
  • 5

61 BÀI TẬP PASCAL BẢN

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,074
  • 4

Bai tap Pascal bản

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...
  • 41
  • 292
  • 0

Bài tập pascal bản

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...
  • 15
  • 304
  • 4

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

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
  • 7,303
  • 14

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

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
  • 712
  • 13

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

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
  • 652
  • 2

Bài tập pascal bản ppt

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...
  • 17
  • 262
  • 1

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

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 ...
  • 15
  • 289
  • 5

Bài tập pascal bản doc

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...
  • 18
  • 334
  • 0

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

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;...
  • 78
  • 130
  • 2

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

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ố lẻ Số lẻ sau số trước cộng ... Bài tập 5.3 Viết chương trình nhập n số, xoá số thứ k n số vừa nhập.In n-1 số lại n= 10 (Nhập 10 phần tử) Ví dụ: Nhập 2, 3, 4, 5, 6, 8, 7, 6, 5, k= (Xoá phần tử thứ 8) In ra: 2, 3, 4, 5, 6, 8, ...
  • 54
  • 549
  • 0

bài tập pascal bản lời giải chi tiết

bài tập pascal cơ bản có lời giải chi tiết
... end  Bài : Cho số Trong số đó: Nếu số thi in số 1, ngược lại Nếu số in số 2, ngược lại Nếu số số lại in số 3, ngược lại Nếu số in số 4, ngược lại Nếu cặp số in 5, ngược lại Nếu số ... readln; end  Bài 9: số chữ số tính chất sau: Mỗi số trừ số viết theo thứ tự ngược lại số phương Chương trình: uses crt; function chinhphuong(n:integer):boolean; begin chinhphuong:=false; ... end  Bài 37: Tạo bảng: Trang 46 Cho bảng A N*N số nguyên ( N...
  • 93
  • 453
  • 1

Xem thêm

Từ khóa: các bài tập pascal cơ bản có lời giảimột số bài tập pascal cơ bản có lời giải1 số bài tập pascal cơ bảncác bài tập pascal cơ bản lop 8các bài tập pascal cơ bản lop 11bài tập pascal cơ bản có lời giảibài tập pascal cơ bản lớp 861 bài tập pascal cơ bảnbài tập pascal cơ bản về tệpmột số bài tập pascal cơ bản lớp 8một số bài tập pascal cơ bảnbài tập pascal cơ bản và nâng caobài tập pascal cơ bản lớp 11bà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 ban60 bài tập pascal cơ bảnTạo động lực làm việc cho người lao động tại Tổng công ty Tài nguyên và Môi trường Việt NamThực trạng đào tạo ngành Việt Nam học ở Việt Nam hiện nayluận văn thạc sĩ kế toán doanh thu, chi phí và kết quả kinh doanh trong các doanh nghiệp thƣơng mại trên địa bàn quận hà đôngluận văn thạc sĩ kế toán doanh thu, chi phí và xác định kết quả kinh doanh tại công ty cổ phần LILAMAluận văn thạc sĩ kế toán hoạt động thu chi tại viện quy hoạch thủy lợi – bộ nông nghiệp và phát triển nông thônluận văn thạc sĩ kế toán quản trị chi phí sản xuất và giá thành sản phẩm xây dựng tại công ty cổ phần công trình hàng khôngluận văn thạc sĩ kế toán quản trị chi phí sản xuất và giá thành sản phẩm tại các công ty may thuộc bộ quốc phòngluận văn thạc sĩ kế toán quản trị chi phí tại công ty cổ phần giầy hải dƣơngluận văn thạc sĩ kế toán quản trị chi phí tại công ty TNHH laurelton diamonds việt namluận văn thạc sĩ lập kế hoạch kinh doanh năm 2016 phòng giao dịch yên phong trực thuộc ngân hàng thƣơng mại cổ phần quân đội chi nhánh bắc ninhluận văn thạc sĩ một số giải pháp hoàn thiện chiến lƣợc cạnh tranh ngành hàng dầu mỡ nhờn ô tô, xe máy của tổng công ty hóa dầu petrolimexluận văn thạc sĩ một số giải pháp nâng cao chất lƣợng đào tạo tại trƣờng cao đẳng công nghệ hà nộiluận văn thạc sĩ nâng cao chất lƣợng dịch vụ y tế xã hội hóa của các bệnh viện công lập trên địa bàn tỉnh hải dƣơngluận văn thạc sĩ nâng cao chất lƣợng nhân lực của công ty cổ phần IIG việt namluận văn thạc sĩ nâng cao hiệu quả cho vay tiêu dùng tại sở giao dịch agribankluận văn thạc sĩ nâng cao hiệu quả hoạt động kiểm tra kiểm soát nội bộ của ngân hàng TMCP công thƣơng việt namluận văn thạc sĩ nâng cao năng lực cạnh tranh của khách sạn hilton garden inn hanoiluận văn thạc sĩnâng cao hiệu quả sử dụng vốn kinh doanh tại công ty cổ phần xây dựng số 9 – vinaconexluận văn thạc sĩ phát triển chiến lƣợc marketing của công ty trách nhiệm hữu hạn la vie – chi nhánh hà nộiluận văn thạc sĩ phát triển dịch vụ môi giới chứng khoán tại công ty cổ phần chứng khoán bảo việt (BVSC
Nạp tiền Tải lên
Đăng ký
Đăng nhập