0

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

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

60 bài tập Pascal bản

Tư liệu khác

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

Bai tap Pascal co ban

Tin học

... khối lợng M[J] cầu J Bài 29 N Bài với số hiệu 1, 2, , N, N
  • 18
  • 2,143
  • 12
bai tap pascal co ban.doc

bai tap pascal co ban.doc

Tin học

... Nếu giây 60 thì: phút:=phút + giây DIV 60 giây:=giây MOD 60 - Nếu phút 60 thì: giờ:=giờ + phút DIV 60 phút:=phút MOD 60 Bài tập 3.14: Viết chương trình tìm Max, Min số: a, b, c, d Bài tập 3.15: ... PHANTICH(n); Readln; End BÀI TẬP TỰ GIẢI Bài tập 4.7: Viết hàm tìm Max , số thực Bài tập 4.8: Viết hàm PERFECT(n:Word):Boolean; để kiểm tra số nguyên n phải số hoàn thiện hay không? Bài tập 4.9: Viết ... 10=0 WRITELN 24 Giáo trình tập Pascal Bài tập 3.18: Viết chương trình in hình bảng cữu chương Gợi ý: Dùng vòng lặp FOR lồng nhau: i số bảng cữu chương (2 9), j số thứ tự bảng cữu chương (1 10) For...
  • 144
  • 868
  • 5
61 BÀI TẬP PASCAL CƠ BẢN

61 BÀI TẬP PASCAL BẢN

Cao đẳng - Đại học

... 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 đĩ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,498
  • 4
Bai tap Pascal cơ bản

Bai tap Pascal bản

Tư liệu khác

... 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 đĩ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
  • 644
  • 2
Bài tập pascal cơ bản

Bài tập pascal bản

Kỹ thuật lập trình

... 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 phải số nguyên tố không...
  • 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

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

Tin học

... Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang Phần I : CÁC BÀI TẬP BẢN Bài 1: Tìm giá trị lớn số a, b, c, d (a, b, c, nhập từ bàn phím) Program Program TIM_SO_LON_NHAT; ... 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 7: Nhập vào tâm bán kính đường ... n Do Write(a[i] : 8); 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...
  • 45
  • 14,419
  • 17
Bài soạn Những bài tập Pascal cơ bản

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

Tin học

... 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 đĩ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,395
  • 24
Bài tập marketing cơ bản

Bài tập marketing bản

Kinh tế - Thương mại

... Nam Câu 2: Lập bảng số liệu số lượt khách phân theo quốc tịch đến Việt Nam năm vừa qua tháng đầu năm 2010 Đưa nhận xét? Tp Hồ Chí Minh, ngày 04 tháng 10 năm 2010 Trang Bài làm: • Bảng số lượt khách ... 2008-2009 số lượt khách xu hướng giảm • Bảng số liệu số lượt khách quốc tế đến VN tháng đầu năm 2010: Tháng Số lượt người 416 249 446 323 473 509 432 608 350 982 375 707 (Nguồn: Tổng cục Du lịch) ... Vẽ đồ thị số lượt khách quốc tế đến Việt Nam năm vừa qua tháng đầu năm 2010 Đưa nhận xét? Bài làm: • Bảng số liệu số lượt khách quốc tế đến VN năm vừa qua: Năm Số lượt (người) 2005 467 757 2006...
  • 10
  • 843
  • 1
Bài Tập Excel cơ bản , Nâng Cao

Bài Tập Excel bản , Nâng Cao

Tư liệu khác

... 1.Điền liệu trống bảng 2.Đònh dạng bảng tính theo mẫu Tính bảng số Theo liệu bảng 3, vẽ biểu đồ biểu diễn mức thu thuế theo loại hàng kinh doanh Trang-15 Bài tập Excel Bài Tập 12: Tạo Worksheet ... cột THÀNH TIỀN 13 Đònh dạng cột số dấu tách hàng ngàn, trang trí kẻ khung bảng tính Bài tập Trang-6 Bài tập Excel BẢNG TÍNH TIỀN ĐIỆN Tháng 10/2003 800 Đơn giá STT LOẠI SD KD NN SX CN KD SX ... cột số dấu tách hàng ngàn Kẻ khung trang trí bảng tính Trang-7 Bài tập Excel Bài 7: Nhập liệu, thực tính toán lưu với tên TenAnhChi_Ex7.xls BẢNG THANH TOÁN LƯƠNG THÁNG 10/2003 Hệ số lương:...
  • 16
  • 3,460
  • 74

Xem thêm