bài tập pascal về mảng 1 chiều

... So:= So:= So:= 10 11 12 13 14 15 ; Ch, ' he ', m, ' doi sang he 10 la ', STP); Biên soạn: Th.s Nguyễn Anh Việt Trang 41 Bài tập Pascal – Từ đến nâng cao Các toán cổ Bài tập 12 . 01 Trăm trâu trăm ... End Bài tập 11 .02 – Đổi số thập lục phân (hệ 16 ) thành số thập phân: Để đổi số thập phân thành số hệ 16 ta thực sau: Tính luỹ thừa 16 16 16 = 16 F 15 9 Các giá trị A, B, …, F => 10 , 11 , … , 15 ... sau: TD: Đổi số 10 0 010 01 Tính luỹ thừa = 27 12 8 26 64 25 32 Nhân tương ứng với giá trị luỹ thừa Cộng giá trị lại 12 8 0 24 16 23 8 12 8 + + = 13 7 22 21 20 1 0 Kết 10 0 010 01 = 13 7 10 Var So: Integer;

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

... ) ; 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ủ tục ... liƯu kiĩu m#ng: Bài 1 : Giải hệ phơng trình tuyến tính hai ẩn dùng ma trận : a11x + a12y = c1 a21x + a22y = c2 Bài giải: Uses Crt; Var a: array [1 2, 1 2] of real; c: array [1 2] of real; d, ... lần xuất hiện *) Readln ; END . Bài 3 : Cho số tự nhiên n , hãy lập trình để tính các tổng sau : a. a. 1 + 1/ 2 2 + 1/ 3 2 + + 1/ n 2 b. b. 1 + 1/ 2! + 1/ 3! + + 1/ n! Bài giải: a) Var n , i : Word

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

... n=’);readln(n); Gt: =1; For i: =1 to n do Gt:=gt*i; GV: Lê Bá Khánh Toàn Tin hoc 8 6 Trường T H C S Đức Phú Năm học: 2008-2009 Writeln(n,’!=’,gt); Readln; End. Bài 15 : Viết chương trình nhập vào 1 số ngun ... Readln; End. Bài 16 : Viết chương trình nhập chiều dài ,chiều rộng hình chữ nhật,bán kính hình tròn. So sánh diện tích của hình chữ nhật và hình tròn. Program so_sánh; Uses crt; Var a,b,r,s1,s2:real; ... khơng cắt nhau) Program bai18; Uses crt; Var r1,r2,d:real; Begin Clrscr; Writeln(‘vi tri tuong doi giua 2 duong tron’); Write(‘nhap ban kinh duong tron 1, r1=’); readln(r1); Write(‘nhap ban kinh

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

... (e<0. 01) ; s5: =1; i: =1; while 1/ (2*i +1) >e do begin if i mod 2=0 then s5:=s5 +1/ (2*i +1) else s5:=s5 -1/ (2*i +1) ; i:=i +1; Trang 12 end; writeln('ket qua la: ',s5:0:4); readlnEND .Bài 24:Lập ... (e<0. 01) ; s4:=0;i: =1; while 1/ (i*i)>e do begin s4:=s4 +1/ (i*i); i:=i +1; end; writeln('Ket qua la: ',s4:0:4); readlnEND .Bài 23:Nhập số thực dương e(e<0. 01) rồi tính tổngS5= 1- 1/ 3 +1/ 5 -1/ 7+…+( -1) n/(2*n +1) ... trình tính: S1= 1+ 3+5+7+…+(2*n +1) Lời giải:uses crt;var i,n,s1:integer;BEGINTrang 10 clrscr; write('Nhap n: ');readln(n); s1:=0; for i: =1 to 2*n +1 do if i mod 2<>0 then s1:=s1+i; writeln('Tong

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

... ');readIn(I2), if 12 < ;11 then writeln(‘Nhap lai l2 sao cho l2> ;11 '); until 12 > ;11 ; Trang 15 for begin if odd(i) then S:=S+i; end; writeln('Tong gia trỉ tìm duoc = ',S); readin; END +1 to 12 -1 do ... 2.52} Program Tinh_I1_I2; var I1 ,12 ,i,S:integer; BEGIN repeat write('Nhap so nguyen I1 ');readIn(l1); if I1<=0 then writeln(Nhap lai I1 sao cho I1>0!); until 11 >0; repeat 'write(Nhap so ... i: =1 to 10 0 do write(' 'i, la ',sqrt():4:2); readin; 'writeln(Can bac 3 cua’); for i: =1 to 10 0 do write(' 'j" la ',exp( (1/ 3)*In():4:2); readin; writeln('Can bac 4 cua '); for i: =1 to 10 0

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

... ABS(A*A1+B*B1+C*C1)/ (sqrl(A*A+B*B+C*C)*sqrt(A1*A1+B1*B1+C1*C1)); Readin; END Trang 9 {Bai 1. 23} Program so_phuc; var a1,b1,a2,b2:real; BEGIN write(Nhap so phuc 1( a1,b1): );readin(a1,b1); write(Nhap ... Readin; END {Bai 1. 22} Program Goc_cos; var A,B,C,D, A1,B1,C1,D1:real; BEGIN write(Nhap tham so(A,B,C,D): );readin(A,B,C,D); write(Nhap tham so(A1,B1,C1,D1): ');readin(A1,B1,C1,D1); writeln(Khoang ... Trang 1 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) ;

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

... TÙNG BÀI TẬP PASCAL BDHSG 1 1 1 2 1 1 3 3 1 1 4 6 4 1 Hàng thứ n được xác định từ hàng n -1: - Phần tử đầu tiên và phần tử cuối cùng đều bằng 1 - Phần tử... HẾT – SỐ NGUYÊN TỐ B BÀI TOÁN: Bài ... nghiem'); readln end. Trang: 10 [...]... TÙNG BÀI TẬP PASCAL BDHSG F _1: =1; F_2: =1; Write(F_2,';',F _1, ';'); Repeat F:=F_2+F _1; if F< n then Write(F,';'); F_2:=F _1; F _1: =F; Until F>n; Readln; End ... GV: LÊ THANH TÙNG BÀI TẬP PASCAL BDHSG CHƯƠNG I CÁC KIỂU DỮ LIỆU CƠ BẢN KHAI BÁO HẰNG, BIẾN, KIỂU, BIỂU THỨC VÀ CÂU LỆNH B. BÀI TẬP: Bài tập 1. 1: Viết chương trình tính chu vi

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

... P3.INP P3.OUT 2 2 5 10 1XX 2 4 2 1 11 01 Quá trình biến đổi trạng thái được diễn tả trong hình dưới đây: 0 0 1 0 0 1 1 0 1 1 1 1 0 0 0 0 0 0 0 1 1 0 0 1 Bài 4 /19 99 - Trò chơi bốc sỏi (Dành cho ... và An nhé. Bài 10 /19 99 - Dãy số nguyên (Dành cho học sinh THCS) Dãy các số tự nhiên được viết ra thành một dãy vô hạn trên đường thẳng: 12 345678 910 111 213 14 (1) Hỏi số ở vị trí thứ 10 00 trong ... ta có M 1 =1, M 2 =1, M 3 =2, M 4 =5, M 5 =12 , M 6 =35, Yêu cầu bài giải đúng và trình bày đẹp. Tin học & Nhà trường 10 0 Đề Toán - Tin học 10 0 Problems & Solutions Page 7 Bài 13 /19 99 -

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

... ',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ổ: 10 0 trâu 10 0 bó cỏ và vừa gà vừa chó 36 con 10 0 chân? var d,n,g:integer; begin for d: =1 to 20 ... 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 Toán, Lý , Hoá theo hệ số 2 ,1, 1 sau đó xếp loại như ... a[i]:=random (10 00); Bài tập Pascal BỒI DƯỢNG HỌC SINH GIỎI HUYỆN for i: =1 to n -1 do for j:=i +1 to n do if a[i]<a[j] then begin tam:=a[i]; a[i]:=a[j]; a[j]:=tam; end; for i: =1 to n do

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

... dùng ma trận : a11x + a12y = c1 a21x + a22y = c2 GIẢI Uses Crt; Var a: array [1 2, 1 2] of real; c: array [1 2] of real; d, dx, dy, x, y: real; Bài tập Pascal có lời giải 21 Thầy gửi tài ... ( 1 + 1/ 1 2 ) ( 1 + 1/ 2 2 ) … ( 1 + 1/ n 2 ) GIẢI Var i , n : Byte ; p : Real ; Begin Write(' Nhap n : ') ; Readln (n) ; p := 1 ; For i := 1 To n Do p := p * ( 1 + 1/ sqr(i) ... liệu này các em xem để học (0946873 510 -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

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

... * 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 ( So < 20 ) Then Begin Tong := Tong + So ; Dem := Dem + ; End ; End ; Writeln (' So cac so >10 ... 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 ... va [...]... + 1 ; until tien >= x ; writeln (' Ban phai gui tien trong ', thang div 12 , ' nam ', thang mod 12 ,' thang ') ; writeln (' Khi do so tien ban rut ra duoc la ', tien :12 :2 ,' dong ')

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

... begin dem1:=dem1 -1; b[dem1]:=a[i]; end; for i:=dem1 to n -1 for j:=i +1 to n if(b[i]>b[j]) then begin tam:=b[i]; b[i]:=b[j]; b[j]:=tam; end; for i:=dem1 to n write(b[i]:4); dem2:=dem; for i: =1 to n ... b[dem]:=a[i]; end; for i: =1 to dem -1 for j:=i +1 to dem if(b[i]>b[j]) then begin tam:=b[i]; b[i]:=b[j]; b[j]:=tam; end; for i: =1 to dem write(b[i]:4); dem1:=n +1; for i: =1 to n if (a[i] mod 3=0) ... thu hai : a[',i +1, ' ',n,']'); end; write('tiep tuc ');readln(ok) until upcase(ok)='K'; end; begin test; 35 end Bài 1. 6 (Chia mảng tỷ lệ 1: k) Tìm cách chia mảng nguyên dương a [1 n] cho trước

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