bai tap pascal 11 kieu mang 1 chieu

... nhiƯt ®é TB cđa tn For i : =1 to n IF A[i]>TB then dem:=dem +1; i A[i] Dem=0 17 20 18 21 19 17 19 +1 +1 +1 +1 TB = 18 .7 Προγραµ ϖ 1; Υσεσ χρτ; ςαρ Khai b¸o m¶ng chiỊu Α: Αρραψ [1 366] οφ ιντεγερ; ι,ν,δεµ: ... :=0; For i : =1 to n IF A[i] mod = then S:=S+A[i]; 15 20 16 25 18 12 S = 45 Th«ng th­êng, c¸c thao t¸c xư lÝ m¶ng mét chiỊu ®Ịu dïng c©u lƯnh FOR DO 19 H·y nhí! 15 20 19 25 18 12 16  M¶ng mét ... võa nhËp - Th«ng b¸o Writeln(‘ Mang vua nhap : ’); - In gi¸ trÞ cđa c¸c phÇn tư For i: =1 to n Write(A[i]:5); KÕt qu¶ in mµn h×nh: Mang vua nhap: 17 20 18 21 19 17 19 Ø C¸c thao t¸c xư lÝ kh¸c *...

Ngày tải lên: 06/01/2015, 14:58

... xoaTatCaPhanTuX(x); Console.WriteLine( "Mang sau xoa tat ca cac phan tu {0}", x); xuatMang(); break; case (int)LietKe.xoaSoAm: Console.WriteLine( "Mang sau xoa cac so am: "); xoaSoAm(); xuatMang(); break; case (int)LietKe.thayThePhanTu: ... = int.Parse(Console.ReadLine()); switch (chon) { case (int)LietKe.tongMang: Console.WriteLine("Tong cua mang la: {0}", tongMang()); break; case (int)LietKe.xoaTheoViTri: Console.WriteLine("Nhap ... tu lon nhat cua mang: {0}", timPhanTuLonNhat()); break; case (int)LietKe.XoaCacPhanTuLonNhat: Console.WriteLine( "Mang sau xoa cac phan tu lon nhat!"); XoaCacPhanTuLonNhat(); xuatMang(); break;...

Ngày tải lên: 25/01/2014, 10:20

... tăng nhiệt độ 1D 11 D 21C 2A 12 A 22A 3C 13 B 23B 4A 14 D 24C 5C 15 A 25D 6B 16 C 26C Gv: Ngơ An Ninh + Nguyễn Thị Thanh Vân 7C 17 A 27B 8C 18 A 28B 9A 19 A 29B 10 B 20A 30B Bài tập hóa học lớp 11 3: 50 Axit ... 0,399 D 0,398 Đáp án : 1C 2B 3A 4B 5B 6A 7D 8D 9B 10 B 11 B 12 B 13 B 14 B 15 D 16 C 17 B 18 C 19 A 20C 21A 22A 23C 24A 25A 26B 27A 28B 29B 30A 31A 32C 33B 34C 35A 36D 37B 38C 39B 40A 41C 42D 43B 44B 45C 46B ... ZnO, Zn(OH)2 Đáp án : 1D 2D 11 C 12 C 21C 22A 31A 32D 41D 42C 3C 13 C 23C 33B 43A 4A 14 D 24B 34A 44D 5B 15 C 25C 35D 6B 16 D 26B 36B 7A 17 C 27A 37B 8D 18 C 28C 38A 3: 9A 19 C 29C 39A 10 B 20C 30D 40B Sự...

Ngày tải lên: 02/09/2013, 17:36

... ZnO, Zn(OH)2 Đáp án : 1D 2D 11 C 12 C 21C 22A 31A 32D 41D 42C 3C 13 C 23C 33B 43A 4A 14 D 24B 34A 44D 5B 15 C 25C 35D 6B 16 D 26B 36B 7A 17 C 27A 37B 8D 18 C 28C 38A 3: 9A 19 C 29C 39A 10 B 20C 30D 40B Sự ... 0,399 D 0,398 Đáp án : 1C 2B 3A 4B 5B 6A 7D 8D 9B 10 B 11 B 12 B 13 B 14 B 15 D 16 C 17 B 18 C 19 A 20C 21A 22A 23C 24A 25A 26B 27A 28B 29B 30A 31A 32C 33B 34C 35A 36D 37B 38C 39B 40A 41C 42D 43B 44B 45C 46B ... A.2,24g B.3,90g C.29,5g D.2,95g Đáp án : 1C 2D 3C 4C 5D 6D 7C 8B 9B 10 D 11 C 12 C 13 B 14 A 15 C 16 D 17 D 18 B 19 D 20C 21D 22B 23A 24D 25B 26C 27C 28C 29C 30C 31B 32C 33A 34B 35C 36B 37B 38A 39C 40D Gv:...

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

... i: =1; While ((i

Ngày tải lên: 11/09/2014, 06:15

Ngày tải lên: 20/09/2014, 16:55

... * t ) I1,U1,t->A1.U1 * I1 * t A,U,I->t.A / ( U * I ) A1,I1,t->U1.A1 / ( I1 * t ) A,t->Q.A * t A1,U1,t->I1.A / ( U1 * t ) Q,t->A.Q / t A1,U1,I1->t.A1 / ( U1 * I1 ) Q,A->t.Q / A A1,t->Q1.A1 * t ... t Q1,t->A1.Q1 / t Q,I,t->R.Q / ( I * I * t ) Q1,A1->t.Q1 / A1 Q,R,I->t.Q / ( I * I * R ) R1,I1,t->Q1.R1 * ( I1 * I1 ) * t Q,R,t->I.sqrt ( Q / ( R * t ) ) Q1,I1,t->R1.Q1 / ( I1 * I1 * t ) R1,R2->R.R1 ... I1 * t ) R1,R2->R.R1 + R2 Q1,R1,I1->t.Q1 / ( I1 * I1 * R1 ) R,R2->R1.R - R2 Q1,R1,t->I1.sqrt ( Q1 / ( R1 * t ) ) R,R1->R2.R - R1 I2,U2,t->A2.U2 * I2 * t U,R->I.U / R U1,U2->U.U1 + suy I I=U/R //Luật...

Ngày tải lên: 25/05/2015, 11:46

... nhiệt độ TB tuần For i : =1 to n IF A[i]>TB then dem:=dem +1; i A[i] Dem=0 17 20 18 21 19 17 19 +1 +1 +1 +1 TB = 18 .7 Program vd1; Uses crt; Var Khai báo mảng chiều A: Array [1 366] of integer; i,n,dem: ... cho S :=0; For i : =1 to n IF A[i] mod = then S:=S+A[i]; 15 20 16 25 18 12 19 S = 45 Thông thường, thao tác xử lí mảng chiều dùng câu lệnh FOR DO Hãy nhớ! 15 20 19 25 18 12 16 Mảng chiều dãy ... array [1 365] of integer; Var A,B : array [1 100] of real; Các thao tác xử lí mảng chiều a Nhập mảng chiều Ví dụ: Nhập nhiệt độ n ngày A 17 Các bước 20 18 19 21 17 19 n với n = Nhập số phần tử mảng (n)...

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

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

... ( N 0 ) and ( M A[i -1] + k) then flag:=false;...

Ngày tải lên: 15/08/2015, 14:00

... HIỆN BẰNG PASCAL B1 Nhập N dãy a1…aN; Write(‘nhap so luong phan tu cua mang: ’); Readln(N); For i: =1 to N Begin Write(‘phan tu thu’,i); Readln(a[i]); End; B2 Max← a [1] , i 1; Max:=a [1] ; B3 Nếu ... tri ̣ của phầ n tử thứ nhấ t cho B1: Nhậpgán giá A cho trước; (n phần tử) biế n max, tiế p theo lầ n lươ ̣t so sánh giá tri ̣ B2: max  A1, i  1; của max với tấ t cả các phầ ... Readln(a[i]); End; B2 Max← a [1] , i 1; Max:=a [1] ; B3 Nếu i>N đưa Max KT B4 B 41 Nếu a[i]>Max Max ←a[i] B42 i ←i +1 quay lại B3 csMax: =1; For i:=2 to N if a[i]>Max then begin Max:=a[i]; csMax:=i; end; Writeln(‘GTLN...

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

Ngày tải lên: 29/07/2013, 01:26

... tăng dần Ví dụ: Mảng A: 15 7 15 Kết quả: Mang A doi xung, Mang A khong phai la mang tang dan Mảng A: 14 17 26 26 31 Kết quả: Mang A khong doi xung, Mang A khong phai la mang tang dan Hướng dẫn: ... công sai k = 5? Ví dụ: 11 16 21 26 31 Function KtraMangCapSoCong (A :Mang2 0; N:Integer; k:Integer):Boolean; Var flag :boolean; i :Integer; Begin for i: =1 to N if(A[i] < > A[i -1] + k) then flag:=false; ... chuong trinh } Program Mang1 C; Uses crt; Type Mang2 0 = array [1 20] of Integer; Var N:Integer; A :Mang2 0; { Thu tuc nhap mang A voi N la so phan tu } Procedure NhapMang1C(Var A : Mang2 0 ;Var N:Integer);...

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

... nhiệt độ TB tuần For i : =1 to n IF A[i]>TB then dem:=dem +1; i A[i] Dem=0 17 20 18 21 19 17 19 +1 +1 +1 +1 TB = 18 .7 Program vd1; Uses crt; Var Khai báo mảng chiều A: Array [1 366] of integer; i,n,dem: ... cho S :=0; For i : =1 to n IF A[i] mod = then S:=S+A[i]; 15 20 16 25 18 12 19 S = 45 Thông thường, thao tác xử lí mảng chiều dùng câu lệnh FOR DO Ghi nhớ! 15 20 19 25 18 12 16 Mảng chiều dãy ... array [1 365] of integer; Var A,B : array [1 100] of real; Các thao tác xử lí mảng chiều a Nhập mảng chiều Ví dụ: Nhập nhiệt độ n ngày A 17 Các bước 20 18 19 21 17 19 n với n = Nhập số phần tử mảng (n)...

Ngày tải lên: 28/11/2013, 09:11

... n nguyên tố tơng đơng với n 11 / Tìm số nhỏ 10 000 ớc nguyên tố khác 3,7 ,11 13 / Đọc tất sô gần nguyên tố lớn nhỏ N (n

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

... nhị phân Với k = 21 dãy A gồm 10 số hạng sau: A 21 22 30 31 33 i 10 Lượt thứ nhất: agiữa a5 = 9; < 21 vùng tìm kiếm thu hẹp phạm vi từ a6 a10; Lượt thứ hai: agiữa a8 = 30; 30 > 21 vùng tìm kiếm ... phần tử -1, chạy ? Begin A[i]>A[i +1] Tg := A[i]; tráo đổi vị trí A[i] A[i +1] thông qua biến trung gian (Tg) A[i] := A[i +1] ; A[i +1] :=Tg; end; PROGRAM Sapxep; Uses crt; Type dayso = Array [1 250] ... Readln(n); For i: =1 to n begin write( Phan tu thu ,i, = ); readln(a[i]) end; Max a1 ; i 1; Max:=a [1] ; csmax: =1; Nếu i>N đưa MAX số i => Kết thúc; For i :=2 to n Nếu a[i]>max maxa[i], i i +1 => quay...

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

... trình: Program bai2 ; Uses crt; Const nmax =10 0; Type mang= array [1 nmax]of integer; Var A :mang; n,i,j,max:integer; Begin Write(‘Nhap so luong phan tu cua day so’); Readln(n); For i: =1 to n • Begin ... • Program sum1; Uses crt; Const nmax =10 0; Type Myarray=array [1 nmax] of integer; Var A:Myarray; s,n,k,i:integer; Begin Clrscr; Randomize; • Write(‘Nhap n=‘); • readln(n); • For i: =1 to n • A[i]:=random(300)-random(300); ... trình để thực đếm số phần tử âm mảng • Posi:=0;neg:=0; • If a[i]>0 then Posi:=Posi +1 • else if a[i]

Ngày tải lên: 11/08/2014, 06:23

... ::quangaxa@gmail.com Có mail quangaxa@gmail.com 11 : Kiểu mảng(4,4 ,1) 11 : Kiểu mảng(4,4 ,1) Tiết : Kiểu mảng chiều (Mục 1a: Khai báo) Tiết 2,3 : Kiểu mảng chiều (Mục 1b: Một số ví dụ) Tiết : Kiểu mảng hai ... Trường THTP Diên hồng ,sỉ số: 40 học sinh Lớp: 11 B6 Trường THTP Diên hồng ,sỉ số: 40 học sinh Chia làm 10 nhóm ,,mỗi nhóm có máy tính nhà Chia làm 10 nhóm nhóm có máy tính nhà Lớp ghi chép, ý tập ... rẽ nhánh lặp 12 : Kiểu xâu Kiểu liệu có cấu trúc 13 : Kiểu ghi Kiểu liệu có cấu trúc Kiểu liệu có cấu trúc Giả định chuẩn bị giáo viên: Lớp học học sinh :: Lớp học học sinh Lớp: 11 B6 Trường THTP...

Ngày tải lên: 20/10/2014, 15:50

... A[i] Dem=0 dem :=0; For i : =1 to n IF A[i]>TB then dem:=dem +1; 17 20 18 21 19 17 19 +1 +1 +1 +1 TB = 18 .7 Program vd1; Uses crt; Var Khai báoưmảngư 1 chiều A: Array [1 366] of integer; i,n,dem: ... Inưmảngưvừaưnhập - Thôngưbáoư Writeln( Mang vua nhap : ); - Inưgiáưtrịưcủaưcácưphầnưtửư For i: =1 to n Write(A[i]:5); Kếtưquảưưinưraưmànưhình: Mang vua nhap: 17 20 18 21 19 17 19 Các thao tác xử lí mảng chiều ... 365] of integer; Var M,N : array [1 100] of real; Các thao tác xử lí mảng chiều a.ưNhậpưmảngưmộtưchiều Víưdụ: Nhậpưnhiệtưđộưnưngày.ư A 17 Các b ớc 20 18 19 21 17 19 n vớiưnư=ư7 Nhậpưsốưphầnưtửưcủaưmảngư(n)...

Ngày tải lên: 13/02/2015, 09:00

... Readln(n); tb:=(t1+t2+t3+t4+t5+t6+t7)/7; dem:=0; if t1>tb then dem:=dem + 1; if t2>tb then dem:=dem + 1; if t3>tb then dem:=dem + 1; if t4>tb then dem:=dem + 1; if t5>tb then dem:=dem + 1; if t6>tb ... VD1:Type mmc=array [1 100] of integer; ? Ý nghĩa câu lệnh gì? - Tạo kiểu liệu có tên mmc, gồm 10 0 phần tử, có kiểu số nguyên VD2: Cho số khai báo sau, khai báo đúng? 1, Type Arrayr = array [1 100] ... if t4>tb then dem:=dem + 1; if t5>tb then dem:=dem + 1; if t6>tb then dem:=dem + 1; if t7>tb then dem:=dem + 1; writeln(‘nhiet trung binh tuan la:’,tb); writeln(‘so co nhiet cao hon trung binh...

Ngày tải lên: 12/06/2015, 03:00