bai tap pascal ve kieu mang xau ban ghi

... tư nhân Danh sách in theo cột, cột ghi số điện thoại, cột ghi tên quan tên chủ máy điện thoại, cột ghi loại TN (tư nhân) NN (nhà nước) Yêu cầu: • Khai báo kiểu ghi MAYDT bao gồm trường: SoDt, TenChu, ... X, m, n • TinhTich(A,X,m,n,Y) thực việc tính vector Y • LuuKetqua(Y,m) thực việc in vector Y hình lưu vào cuối file MATRIX.TXT • Thành phần thứ i vector Y tính theo công thức m Y [ i ] = ∑ A[ ... cấp mxn vector X n chiều Cách lưu trữ sau: • Dòng chứa hai số m n • Dòng thứ hai chứa vector X • m dòng chứa m hàng ma trận A • Giữa số dòng cách ký tự trắng Viết chương trình tính giá trị vector...

Ngày tải lên: 29/04/2014, 10:45

... else { tongle=tongle+a[i]; } System.out.println("Tong cac so 'chan' mang: "+tongchan); System.out.println("Tong cac so 'le' mang la:"+tongle); } } 12 Viết chương trình nhập mảng gồm n số nguyên, ... so nguyen to mang tu den "+n+" la: "+tong); } } [=========> Bổ sung viết Bổ sung viết

Ngày tải lên: 04/07/2014, 06:47

... Pc 10 Pc 11 Pc 12 - 22 24 26 26 24 22 48 46 44 48 46 44 Phòng kỹ thuật: Số m cable là:300m Số server :1 Switch L2 :10 Switch L3 :1 Tủ mạng :1 Path panel :1 2 2 2 3 3 3 31 29 27 31 29 27 Cable xuống ... 03 04 05 06 07 08 09 10 11 12 Tên thiết bị Dây cable RJ 45 Wallplate 2ports Wallplate 6ports Sever Tủ mạng Path panel Hộp gen Tường lửa Switch L2 (24 ports) Switch L2 (48 ports) Switch L3 (16...

Ngày tải lên: 13/08/2012, 14:37

... printf("So phan tu thuc te cua mang N= "); scanf("%d",&N); Nhap(b,N); printf( "Mang vua nhap: "); InMang(b,N); SapXep(b,N); /* Gọi hàm xếp*/ printf( "Mang sau sap xep: "); InMang(b,N); getch(); return ... ba trở tiếp tục phần tử thứ n-1 Chương trình chia thành hàm Nhap (Nhập số), SapXep (Sắp xếp) InMang (In số); tham số hình thức hàm mảng không định rõ số phần tử tối đa, ta cần có thêm số phần ... for(i=0; i< N; i++) { printf("Phan tu thu %d: ",i);scanf("%d",&a[i]); } } Trang 74 Lập trình void InMang(int a[], int N) { int i; for (i=0; i

Ngày tải lên: 16/08/2012, 11:34

... cho file XAU. TXT dòng thứ ghi xâu S, dòng thứ hai ghi số N, N dòng tiếp theo, dòng thứ i ghi xâu Ai Kết ghi file KQ.TXT nh sau: - Nếu biểu diễn, ghi dòng chữ KHONG CO - Nếu có biểu diễn, ghi biểu ... file INP.BL3 dòng thứ ghi số N, dòng thứ hai ghi N số B[1], , B[N], dòng thứ ba ghi N số C[1], , C[N] Kết ghi file OUT.BL3 gồm hai dòng: dòng thứ ghi hiệu quả, dòng thứ hai ghi công việc làm Bàì ... (cho tới hết N số) lần l ợt số ghi Bài từ Bài đến Bài N Dữ liệu ghi file OUT.BL2 dòng thứ ghi số lợng Trong dòng tiếp theo, dòng ghi 10 số hiệu Bài đợc chọn, số hiệu ghi theo thứ tự tăng dần hết...

Ngày tải lên: 24/06/2013, 01:28

... For i:=1 to n Write(a[i]:8); Readln; End Cho file văn ghi số liệu bảng số N x M có dạng sau: - Dòng ghi hai số N, M cách dấu cách - N dòng ghi số liệu N hàng, dòng bao gồm M số cách dấu cách Sau ... Readln; End Một file văn ghi số liệu học sinh có dạng sau: Nguyen Van Hung 15 G Bui Quang Than 14 K Tran Minh Quang 16 G Le Van Minh 15 T Dữ liệu ghi file có ý nghĩa sau: - Dòng ghi số n số lượng học ... Dòng ghi số tự nhiên N (N

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

... trinh co nghiem: x>=',-b/a:4:2) Else Writeln('Bat phuong trinh co nghiem: x

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

... tên BAI1 .PAS Thoát khỏi Pascal Khởi động lại Turbo Pascal Mở file BAI1 .PAS Chèn thêm vào dòng: CLRSCR; vào sau dòng BEGIN Dịch chạy thử chương trình 10 Lưu chương trình vào đĩa 11 Thoát khỏi Pascal ... GiaoAB(n:Byte; A :Mang; m:Byte; B :Mang) ; 47 Giáo trình tập Pascal Var i:Byte; Begin For i:=1 To n Do If KiemTra(A[i],m,B) Then Write(A[i]:4); End; Begin Clrscr; Writeln('Nhap mang A: '); NhapMang(n,A); ... ; Ví dụ: TYPE Mangnguyen = Array[1 100] of Integer; Matrix = Array[1 10,1 10] of Integer; MangKytu = Array[Byte] of Char; VAR A: Mangnguyen; M: Matrix; C: MangKytu; hoặc: VAR A: Array[1...

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

... trinh co nghiem: x>=',-b/a:4:2) Else Writeln('Bat phuong trinh co nghiem: x

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

... trinh co nghiem: x>=',-b/a:4:2) Else Writeln('Bat phuong trinh co nghiem: x

Ngày tải lên: 16/09/2013, 17:10

... trinh co nghiem: x>=',-b/a:4:2) Else Writeln('Bat phuong trinh co nghiem: x

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

... Evaluation Only Giao thức sử dụng để cấu hình địa IP động, bao gồm subnet mask, default gateway, dns server là: 25 Câu Giao thức sử dụng tìm địa phần cứng thiết bị cục là: RARP b ARP c IP d ICMP e BOOTP ... Copyright(C) by Foxit Software Company,2005-2007 For Evaluation Only a 28 Câu Thông điệp DHCP Discover (chọn 2): Sử dụng FF:FF:FF:FF:FF:FF làm broadcast lớp b Sử dụng UDP làm giao thức lớp Transport...

Ngày tải lên: 19/10/2013, 02:20

... x2:=(-b-sqrt(d))/(2*a); writeln('2 nghiem PT la: ',x1:0:2,' va: ',x2:0:2); end else if d=0 then begin x1:=(-b)/(2*a); writeln('PT co nghiem kep la: ',x1:0:2); end else writeln('PT vo nghiem'); readln END Bài ... nguyên âm kí tự số Lời giải: uses crt; var s:string;dem1,dem2,i:byte; BEGIN clrscr; write('Nhap xau: ');readln(s); dem1:=0;dem2:=0; for i:=1 to length(s) begin if s[i] in ['a','e','i','o','u','y','A','E','I','O','U','Y'] ... dem1:=dem1+1; if s[i] in ['0','1','2','3','4','5','6','7','8','9'] then dem2:=dem2+1; end; writeln('Trong xau ',s,' co ',dem1,' nguyen am va co ',dem2,' ki tu so'); readln END Bài 15: Lập trình giải toán...

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

... trường THPT Hoàng Văn Thụ Nha Trang ClrScr; Writeln( 'Ghi tu file bai3 .dat sang bai3 n.dat : '); Writeln; Assign(f1, 'bai3 .dat'); Reset(f1); Assign(f2, 'bai3 n.dat'); Rewrite(f2); While not Eof(f1) Begin ... co vo so nghiem') Else Writeln('Phuong trinh vo nghiem') Else Writeln('Phuong trinh co mot nghiem : x=',-c/b : : 2) Else Begin d :=b*b-4*a*c; If d=0 then Writeln('Phuong trinh co nghiem kep : ... If dd=0 then If (dx=0) And (dy=0) then Writeln('He vo so nghiem hoac vo nghiem') Else writeln('He vo nghiem') Else Begin Write('He co nghiem : '); Writeln('x=',dx/dd : : 2,' va y=',dy/dd : : 2);...

Ngày tải lên: 30/10/2013, 08:49

... participate A) nevertheless B) on the other hand C) therefore D) otherwise 23 The windows were all left open , the room was a real mess after the windstorm A) nevertheless B) however C) consequently ... therefore C) in spite of D) yet 27 You’d better give me your answer quickly, I’ll withdraw the invitation A) although B) nevertheless C) even though D) or else 28 the salary meets the ... because of C) even though D) yet 25 Margie is an honest person, I still wonder whether she’s telling the truth about the accident A) in spite of B) Since C) Though D) In the even that 26 The...

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

... trinh co nghiem: x>=',-b/a:4:2) Else Writeln('Bat phuong trinh co nghiem: x

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

... tri ban dau cua day con} while (i0) inc(i); if i-j>max then max:= i-j; if i-1-j>=1 then begin inc(k); D[k]:=j;C[k]:=i-1;end; end; if k=0 then writeln('Khong co doan duong nao mang ... D,C:array[1 100] of byte; n,i,j,k,max,d1,h:longint; begin clrscr; repeat write('Nhap so phan tu cua mang n= ');readln(n);until N>0; for i:=1 to n begin write('A[',i,']=');readln(A[i]);end; i:=1;k:=0; ... ((j+1

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

... uses crt; {BAI TOAN VE CAC LOAI HINH VOI KICH THUOC VA KI TU NHAP TU BAN PHIM} var c,h,n,d,r,luachon:integer; ch:char; begin clrscr; writeln(' Ve hinh chu nhat dac, nhap:1'); writeln(' Ve hinh chu ... chu nhat rong, nhap:2'); writeln(' Ve tam giac can dac, nhap:3'); writeln(' Ve tam giac can rong, nhap:4'); writeln(' Ve tam giac vuong dac, nhap:5'); writeln(' Ve tam giac vuong rong, nhap:6'); ... upcase(tloi)'C' then write('Tam biet') else if length(s1)

Ngày tải lên: 26/12/2013, 20:00

... g/cm3 ĐS : n = 0,74 6.2 Để xác đònh hệ số thấm phòng thí nghiệm, người ta dùng dụng cụ hình vẽ Trong h0 mực nước lúc bắt đầu thí nghiệm ( t = 0), h mực nước sau thời gian t, L chiều dầy lớp ... đoạn s Hãy xác đònh vận tốc thấm điểm tầng thấm nước vẽ lưới thủy động dòng thấm CÂU HỎI TRẮC NGHIỆM Câu Hệ số thấm đất : a) Là vận tốc thấm cột nước đo áp thay đổi đơn vò đơn vò chiều dài thấm...

Ngày tải lên: 23/04/2014, 08:31

... x2:=(-b-sqrt(d))/(2*a); writeln('2 nghiem PT la: ',x1:0:2,' va: ',x2:0:2); end else if d=0 then begin x1:=(-b)/(2*a); writeln('PT co nghiem kep la: ',x1:0:2); end else writeln('PT vo nghiem'); readln END Bài ... thuc'); Readln End 31 Viết chương trình Pascal tính tổng nghịch đảo N số nguyê Program Tong_nghich_dao; Var n,i:Integer; s:Real; Begin Writeln('TINH TONG NGHICH DAO N SO NGUYEN DAU TIEN'); Writeln(' ... S:=S+(1/i); Writeln; Writeln('+Tong nghich dao cua ',n,' so nguyen dau tien= ',S:0:2); Writeln; Writeln(' Bam phim de ket thuc'); Readln End 32 Viết chương trình Pascal tính tổng bình phương...

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