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

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

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

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