bài tập pascal có lời giải lop 8

... Việt Trang 44 Bài tập Pascal – Từ đến nâng cao Các ôn tập – Phần Bài tập 14.01 Cho ma trận nguyên Anxn Hãy xây dựng ma trận B từ ma trận A cách loại bỏ đường chéo TD : 23 -> 78 Bài tập 14.02 Nhập ... Biên soạn: Th.s Nguyễn Anh Việt Trang 42 Bài tập Pascal – Từ đến nâng cao Các ôn tập – Phần Bài tập 13.01 Nhập số n, tìm số nguyên tố lớn = 10 11 Bài tập 13.03 Nhập số n số k, tìm k số nguyên ... Trang 38 Bài tập Pascal – Từ đến nâng cao Bài tập 11.01 – Đổi số nhị phân thành số thập phân: Để đổi số nhị phân thành số thập phân ta thực sau: TD: Đổi số 10001001 Tính luỹ thừa = 27 1 28 26 64

Ngày tải lên: 13/09/2017, 10:28

... la: ', S); 28 Bài tập ngôn ngữ lập trình PasCal Readln; END Biên soạn: Hoàng Đức Hà 29 Bài tập ngôn ngữ lập trình PasCal Biên soạn: Hoàng Đức Hà Bài tập chơng 6 Bài 1 : Bạn ... a[n] ) ; Readln ; 11 Bài tập ngôn ngữ lập trình PasCal END Biên soạn: Hoàng Đức Hà 12 Bài tập ngôn ngữ lập trình PasCal Biên soạn: Hoàng Đức Hà Bài tập chơng 3 Bài 1 : Dùng thủ ... cùng Bài giải: a ) Var S: string; 26 Bài tập ngôn ngữ lập trình PasCal i: integer; Biên soạn: Hoàng Đức Hà BEGIN Write('Cho mot xau S co... dem:=0; 18 Bài tập ngôn ngữ lập trình PasCal

Ngày tải lên: 21/06/2013, 01:26

...  G? ?8? ??75&(,0G5& /(07  ? ?8? ??75&(,05& '? ?8? ??& 8U& ,8U& r8U       -( .& ,? ?8, 9G  & ? ?8? ??9& '? ?8& apos;:,R ... /(,07666666666666666666666666666666666675& /(07  G? ?8? ??75&(,0G5& /(07  ? ?8? ??75&(,05& '8X& ,8U& r8U       -( .& ,? ?8, 9G  & '? ?8& apos;:,  & ... /(,07666666666666666666666666666666666666666675& /(07  ? ?87 5&  <(,05& 8U& '8U& r8U       -( .& ? ?8? ??9& '? ?8& apos;:UR& . /(,07%  `? ?8  7*'s5&

Ngày tải lên: 04/08/2013, 01:27

... Đồ hoạ trong Pascal Pascal Nâng cao (Advanced Pascal) Hoàng Hữu Hạnh WriteLn(‘Kết quả là: ’, FuncVar(x, y):2:2);  Đối số của CTC có kiểu Procedure Kiểu dữ liệu Procedure cũng có thể dùng làm ... thị {$F+} và {$F-} Phần 4, Đồ hoạ trong Pascal Pascal Nâng cao (Advanced Pascal) Hoàng Hữu Hạnh  Không có khai báo Interrupt và câu lệnh Inline.  Không có các CTC lồng bên trong. Phần 2 2 CHUYỂN ... (Advanced Pascal) Hoàng Hữu Hạnh . A[0]:=5; A[1]: =84 ; A[2]:=7; A[4]:=114; A[5]:= 98; A[6]:=111; Vùng nhớ biến A sẽ là: 0 1 2 3 4 5 6 7 8 9 10 05 85 117 114 98 111 Nếu ta xem vùng nhớ trên là một chuối

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

... có phần tóm tắt lý thuyết, phần bài tập mẫu và cuối cùng là phần bài tập tự giải để bạn đọc tự mình kiểm tra những kiến thức và kinh nghiệm đã học. Trong phần bài tập mẫu, đối với những bài tập ... cho màn hình BÀI TẬP MẪU Bài tập 2.1: Viết chương trình nhập vào độ dài hai cạnh của tam giác và...Giáo trình bài tập Pascal • Hàm KEYPRESSED: Hàm trả về giá trị TRUE nếu như có một phím bất ... Ví dụ: 4 Giáo trình bài tập Pascal Var a,b,c:Rea; {Khai báo biến} Delta := b*b – 4*a*c; (* Tính delta để giải phương trình bậc 2 *) BÀI TẬP THỰC HÀNH 1. Khởi động Turbo Pascal. 2. Nhập vào đoạn

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

... trình c) Có một số biến có sẵn trong chương trình, khơng cần khai báo d) Tên biến có độ dài tùy ý GV: Lê Bá Khánh Toàn 19 Tin hoc 8 Trường T H C S Đức Phú Năm học: 20 08- 2009 Câu 88 : Chương ... GV: Lê Bá Khánh Toàn Tin hoc 8 10 [...]... là a 327 68 b 32767 c 2 tỉ d -327 68 +32767 GV: Lê Bá Khánh Toàn 14 Tin hoc 8 Trường T H C S Đức Phú Năm học: 20 08- 2009 2 Câu 35 a là biến dữ ... Tbình. + 6.5=<ĐTBCN< ;8, xếp loại: Khá. + ĐTBCN> =8, xếp loại: Giỏi. Program xep_loai; Uses crt; GV: Lê Bá Khánh Toàn Tin hoc 8 7 Trường T H C S Đức Phú Năm học: 20 08- 2009 Var ĐTBHKI,ĐTBHKII,ĐTBCN:real;

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

...  G? ?8? ??75&(,0G5& /(07  ? ?8? ??75&(,05& '? ?8? ??& 8U& ,8U& r8U       -( .& ,? ?8, 9G  & ? ?8? ??9& '? ?8& apos;:,R ... /(,07666666666666666666666666666666666675& /(07  G? ?8? ??75&(,0G5& /(07  ? ?8? ??75&(,05& '8X& ,8U& r8U       -( .& ,? ?8, 9G  & '? ?8& apos;:,  & ... /(,07666666666666666666666666666666666666666675& /(07  ? ?87 5&  <(,05& 8U& '8U& r8U       -( .& ? ?8? ??9& '? ?8& apos;:UR& . /(,07%  `? ?8  7*'s5&

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

... readlnEND .Bài 14:Nhập vào 1 xâu kí tự và cho biết xâu vừa nhập vào có bao nhiêu nguyên âm và bao nhiêu kí tự số .Lời giải: uses crt;var s:string;dem1,dem2,i:byte;BEGINTrang 8Bài 15:Lập trình giải bài ... readlnEND .Bài 7:Nhập số có 3 chữ số tính tổng các chữ số của nó :Lời giải: uses crt;var a:integer;tong:byte;BEGIN tong:=tong+a mod 10;Trang 5 writeln('Tong cac chu so do la: ',tong); readlnEND .Bài 8: Nhập ... ',tong); readlnCó thể biến đổi đề bài của bài toán đi như: tính số phibonaci thứ n hoặc nhập vào 1 số kiểm tra xem số đó có phải là số phibonaci hay không…Các bài đó làm tương tự .Bài 19: Nhập số

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

... readln END. Có thể biến đổi đề bài của bài toán đi như: tính số phibonaci thứ n hoặc nhập vào 1 số kiểm tra xem số đó có phải là số phibonaci hay không…Các bài đó làm tương tự. Bài 19: Nhập ... nguyen to'); end; readln END. Bài 12: Số hoàn hảo là số mà có tổng các ước của nó không kể nó bằng chính nó. VD: số 28 có các ước là: 1 2 4 7 14 số 6 có các ước là: 1 2 3 Lập trình nhập ... la: ',dem); readln END. Bài 17: Nhập 1 số n kiểm tra tính chẵn lẻ, xem số đó có chia hết cho 3 không,tổng các chữ số của nó có là bội của 6 không Lời giải: uses crt; var n,m,tong:integer;

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

... /(07  G? ?8? ??75&(,0G5& /(07  ? ?8? ??75&(,05& '? ?8? ??& 8U& ,8U& r8U       -( .& ,? ?8, 9G  & ? ?8? ??9& '? ?8& apos;:,R ... /(,07666666666666666666666666666666666675& /(07  G? ?8? ??75&(,0G5& /(07  ? ?8? ??75&(,05& '8X& ,8U& r8U       -( .& ,? ?8, 9G  & '? ?8& apos;:,  & ... /(,07666666666666666666666666666666666666666675& /(07  ? ?87 5&  <(,05& 8U& '8U& r8U       -( .& ? ?8? ??9& '? ?8& apos;:UR& . /(,07%  `? ?8  7*'s5&

Ngày tải lên: 07/07/2014, 22:00

... var M,S,ij:integer, BEGIN for i:=3 to 8 do for j:=2 to 9 do write(i,j,', '); for i:=10 to 99 do S:=S+i; write(‘Tong tu 10->99 ',S); M: for i:=2 to 8 do if odd{i)<>true then M:=M"i; ... trungbinh:=0; vanduoi5:=0; toanduoi5:=0; for i:=1 tondo begin if tb{i]> =8 then gioi:=gioi+1; if (7<=tb[i]) and (tb[i}< ;8) then kha:=kha+1; if (5<=tb[i]) and (tb[i]<7) then trungbinh:=trungbinh+1; ... BEGIN e=1; 'write(Nhap n = ');readIn(n); for i:=1 to n do end; write('e = ',e); readin; END {Bai 2. 38} Program HCN_sao; var d,r,ij:integer; BEGIN 'write('Nhap chieu dai, rong (d,r) = ');readin(d,r);

Ngày tải lên: 24/07/2014, 03:21

... PHAN II LỜI GIẢI, ĐÁP ÁN Chương 1 Sử dụng biểu thức câu lệnh {Bai 1.1 Bạn đọc tự làm} {Bai 1.2} Program Pascal; BEGIN writeLn( /PASCAL) ; writeLn /PASCAL& #34;:11); writeLn (PASCAL' :16); writeLn (PASCAL' :21); ... writein('Sin(',goc,’)=",sin(goc*pi/ 180 )); writeln(Cos(',goc,)=',cos(goc*pi/ 180 )); writein(‘tg(’,goc,’)=",sin(goc*pi/ 180 )/cos(goc*pi/ 180 )); writeln(‘Cotg(’,goc,"}=',cos(goc*pi/ 180 )/sin(goc*pi/ 180 )); readin; ... writeLn /PASCAL& #34;:11); writeLn (PASCAL' :16); writeLn (PASCAL' :21); writeLn( /PASCAL' :26); readin; END {Bai 1.3 Ban đọc tự trả lời} {Bai 1.4} Program Pascal; var a,b: real; BEGIN 'write(Nhap vao so a);readln(a);

Ngày tải lên: 24/07/2014, 03:21

... hay 0 tuỳ theo ô [i,j] có mìn hay không. Cách thứ hai: Mỗi ô của sân có nhiều nhất 8 ô khác nó kề cạnh với nó nh trong hình vẽ sau 1 2 4 1 0 1 16 184 96 1 28 ô i,j 8 0 1 1 58 109 194 64 32 16 1 ... A[6]A[7]A [8] A[9]A[10]A[11] Bài 37. Hãy tìm hai số nguyên dơng P, Q sao cho có số A mà khi viết trong cơ số P có dạng 0,(ab), (ab) là chu kỳ của A và khi viết trong dạng cơ số Q có dạng 0,(ba). Bài 38. ... sau: 1. Ba điểm A, B, C có lập thành một tam giác không? - 2 Bài tập cơ bản Tập I 2. Nếu ABC là một tam giác, hãy xét xem điểm D có nằm bên trong tam giác này không? Bài 20. Viết chơng trình

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

... else để giải bài tập trên. Độ khó của bài toán sẽ tăng lên nhiều nếu thêm yêu cầu có thông báo khi hai số, ba số, bốn số bằng nhau. Trang: 7 GV: LÊ THANH TÙNG BÀI TẬP PASCAL BDHSG Bài tập 2.3: ... repeat Trang: 20 GV: LÊ THANH TÙNG BÀI TẬP PASCAL BDHSG clrscr; write('Nhap so thu ',i,':...GV: LÊ THANH TÙNG BÀI TẬP PASCAL BDHSG Bài tập 2 .8: (HSG lớp 8 -TP Huế 2006-2007) Ba bạn An, ... lệnh thành một lệnh ghép Trang: 13 GV: LÊ THANH TÙNG BÀI TẬP PASCAL BDHSG CHƯƠNG III CÂU LỆNH CÓ CẤU TRÚC LẶP XÁC ĐỊNH B BÀI TẬP Bài tập 3.1: Viết chương trình in ra các số lẻ nhỏ hơn

Ngày tải lên: 25/01/2015, 12:00

... bạn có thể mô tả các bước đi của con sên trên màn hình đồ họa. Để đạt được mục đích đó số N cần được chọn không vượt quá 50. Mặc dù không yêu cầu nhưng những lời giải có mô phỏng đồ họa sẽ có ... lý thuyết của bài toán cần được chứng minh một cách chặt chẽ. Bài 20/2000 - Bạn Lan ở căn hộ số mấy? (Dành cho học sinh Tiểu học) Nhà Lan ở trong một ngôi nhà 8 tầng, mỗi tầng có 8 căn hộ. Một ... một mảng. Trang bị rơi thứ nhất có số 387 , còn trang cuối cũng gồm 3 chữ số 3, 8, 7 nhưng được viết theo một thứ tự khác. Hỏi có bao nhiêu trang sách bị rơi ra? Bài 22/2000 - Đếm đường đi (Dành

Ngày tải lên: 21/04/2015, 17:00

... Bài tập Pascal BỒI DƯỢNG HỌC SINH GIỎI HUYỆN BÀI TẬP CƠ BẢN - Đáp án ++ 1. Viết chương trình tính điểm trung bình 3 môn ... Loại Giỏi : ĐTB >= 8. 0 và không có môn nào dưới 6,5 b. Loại Khá : 6.5=<ĐTB < 8. 0 và không có môn nào dưới 5 c. Loại Trung bình : 5.0 =<ĐTB < 6.5 và không có môn nào dưới 3.5 d. ... write('ucln ',ucln); write('bcnn ',a*b/ucln:1:1); Bài tập Pascal BỒI DƯỢNG HỌC SINH GIỎI HUYỆN readln; end. 4. VCT giải hai bài toán cổ: 100 trâu 100 bó cỏ và vừa gà vừa chó 36 con 100

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

... (*=================================*) Bài tập Pascal có lời giải 13 Thầy gửi tài liệu này các em... j: integer; BEGIN Bài tập Pascal có lời giải 27 Thầy gửi tài liệu này các em xem để học (094 687 3510-Hồng ... real; Bài tập Pascal có lời giải 21 Thầy gửi tài liệu này các em xem để học (094 687 3510-Hồng Nam Trung-mientrung19@gmail.com)... ket thuc '); Readln; End Bài 7 : Bài tập Pascal ... (094 687 3510-Hồng Nam Trung-mientrung19@gmail.com) Bài tập Pascal có lời giải 1 BÀI TẬP CHƯƠNG 1:CÂU LỆNH IF ….THEN… * Bài 1 : Nhập 3 số a , b , c bất kì . Hãy kiểm tra xem ba số đó có thể

Ngày tải lên: 21/05/2015, 17:00

... BÀI TẬP CHƯƠNG 1:CÂU LỆNH IF ….THEN… * Bài : Nhập số a , b , c Hãy kiểm tra xem ba số độ dài ba cạnh tam giác hay ... ban rut ra duoc la ', tien:12:2 ,' dong ') ; readln ; END * Bài 12 : Viết chương trình tìm ƯSCLN của N số được nhập từ bàn phím GIẢI Uses crt ; Var a : Array [1 100] Of Integer ; n , i : Byte ... Thoa man : Day la canh cua mot tam giac ') Else Writeln (' Khong thoa man ! ') ; Readln ; END * Bài : Nhập N số Đếm số lớn 10 nhỏ 20 tính tổng chúng Sau , đưa hình :So cac so >10 10 ) and (

Ngày tải lên: 12/11/2015, 07:33

... Writeln(l^.name); l:=l^.next; BÀI TẬP PASCAL 52 TRƯỜNG THCS ÂN HẢO GV:CAO VĂN QUANG End; Readln; End; BEGIN Nhap; Doicho; In_kq; END BÀI TẬP CHƯƠNG 10: ĐỒ HỌA Bài : Vẽ hình chữ nhật có tâm trùng với tâm ... Write(ch,' '); Readln; END BÀI TẬP CHƯƠNG 7: KIỂU RECORD Bài 1 : Thông tin về mỗi học sinh gồm : •  Họ đệm : một xâu 25 kí tự •  Tên : một xâu 10 kí tự BÀI TẬP PASCAL 8 35 TRƯỜNG THCS ÂN HẢO ... Gotoxy(10, 4); Write(1); Gotoxy(19, 4); Write(2); Gotoxy( 28, 4); Write(3); Gotoxy(5, 6); Write(1); Gotoxy(5, 8) ; Write(2); BÀI TẬP PASCAL 8 23 TRƯỜNG THCS ÂN HẢO Gotoxy(5,10); Write(3); For

Ngày tải lên: 06/04/2016, 10:13

... dụng phép nâng lũy thừa lên 1/3.mở rộng bài tóan nhập vào n xuất ra tất cả các số có thể viết dưới dạng tổng của 2 số lập phương Giải bt14 program bt87_3; uses crt; var k,n,m,i,j,z:integer; ... readln; end Bt20 :Đệ qui quay lui và phương pháp nhánh cận Bài tóan tháp hà nội là một bài tóan cơ bản của thuật tóan đệ qui Bài tóan phát biểu đơn giản như sau : Cho 3 cọc A,B,C Coc A ... 0,1,1,2,3,5 ,8, 13,21,… bắt đầu số : và có tính chất số Fibonaci tổng số Fibonacci trước dãy xuất tự nhiên đặc biệt hình thành dạng xoắn ốc Tỷ số số Fibonacci liên tiếp hội tụ số 1.6 18 số lại xuất

Ngày tải lên: 20/04/2016, 14:58