 Diễn đàn công nghệ thông tin Diễn đàn công nghệ thông tin |
 | hoadao08 (556) tinhonline204 (426) phanvanthuan_rau_ (335) tiger (129) hoamai08 (117) tranthemy (109) thanhluan_audio (106) nguyenanhtuan (97) gauk0j (84) Admin (82) |
|
| Similar topics | - » Giải bài tập tin học 1
- » Giải bài tập tin học 4
|
|
| Bài Viết MớiPhần mềmThống kê | | iOnline - Chơi game dân gian nhận quà hấp dẫn [Hot] : Trúng ngay iPhone 5S cùng iOnlineChơi game cờ tướng trực tuyến[Open Beta - ĐTKT] Game quản lý bóng đá HOT nhất hiện nayiOnline – Chơi game Khủng, trúng iPhone 5S. CỰC HOT!!!Ra mắt Billiard Pro - Game Bi-a HOT trên di động (game)Tưng bừng chào đón World Cup cùng Đường Tới Khung ThànhTải Opera mini mới nhất cho điện thoại di độnglink download opera mini trực tiếp cho điện thoại java, adnroid và ios hoàn toàn miễn phíTrình duyêt được sử dụng thông dụng nhất tạii việt nam và trên thế giới! Bạn có thể tải opera mini hoặc sử dụng phiên bảĐam mê cùng game quản lý bóng đá hot nhất 2014LỊCH VẠN SỰ - Tải ứng dụng hay, trúng ngay thẻ cào!Vui World Cup 2014 cùng ứng dụng bóng đá trực tuyếnRa mắt phiên bản iOnline 3.0 – game dân gian thuần việt 2014Ứng dụng Bóng đá trực tuyến - Chia sẻ mới dành cho những ai yêu thích bóng đáMời các bạn giải bài tập Tin Học 11Tử vi mỗi ngày - Xem tử vi chính xác, nhanh chóng & tiện lợi Báo bóng đá Plus - sự lựa chọn mới cho bạn[ EVENT THÁNG 11 ]: iOnline – Đón xuân sang, rộn ràng trúng Honda RSX Plugin hỗ trợ kiếm thế tốt nhất nhì---123letsgo---, update.... PluginProVN 24/2/2010----VN1601Ứng dụng bongda plus: Một chia sẻ-Một góc nhìn[NEW EVENT] iOnline: Chơi liền tay - Trúng ngay iPhone 5S |  |
|
| | phần mềm tạo nhạc chuông theo tênphần mềm V-Pascalcat, noi video tien loiIDM 5.18 đây +crackPhân chia lại ổ cứng mà không mất dữ liệuIDM KHÔNG CẦN CRACKIE 8 bản fullGoogle Chrome 7.0.517.24 Dev / 6.0.495.0 Dev / 6.0.472.63 Stable / 5.0.396.0 Dev / 5.0.375.127 StableConvert file PDF sang Word không bị lỗi font.Chuyển đổi định dạng video cực nhanh(Speed Video Converter 4.4.34)phan mem fast copyantassetup dvdInternet Download Manager 6.02 Beta 2 / 5.19 Build 3Google Chrome 7.0.517.8Nitro PDF Reader 1.3.0.24 Beta(cỏ thể chỉnh sữa nội dung)Bộ sưu tập 126 Font Thư Pháp và 1400 Font Việt NamPhần mềm dọn dẹp máyPhan mem tieng anhPowerISO 4.7 - Tạo ổ đĩa ảo chơi gamecùng xem word cup khi không có tivi nào | nguyenvietlosptin thanhluan_audio thanhluan_audio tinhonline204 nguyenanhtuan no_handsome91 tinhonline204 phanvanthuan_rau_ nguyenanhtuan phanvanthuan_rau_ thanhluan_audio thanhluan_audio phanvanthuan_rau_ phanvanthuan_rau_ phanvanthuan_rau_ phanvanthuan_rau_ thanhluan_audio lehieu0709 phanvanthuan_rau_ thanhluan_audio |
|
| | Bài viết trong ngàyCác bài viết trong thángThống kê tổng thểTopic sôi nổi nhấtTopic xem nhiều nhấtThành viên có nhiều chủ đề nhấtThành viên post bài nhiều nhất trong 1 tuầnThành viên post bài nhiều nhất trong thángTop posterSố topic trong tháng |
|
| | Diễn đàn công nghệ thông tin :: DIỄN ĐÀN LỚP TIN A :: CÁC MÔN HỌC LỚP TIN 2007 - 2011 :: CÁC MÔN HỌC KÌ 2 NĂM 3 :: Phương pháp giải bài tập tin học | Share | |
| Mời các bạn giải bài tập Tin Học 11 |    |
| | Tác giả | Thông điệp |
|---|
tinhonline204Tỷ phú  Tổng số bài gửi : 426Điểm : 841Reputation : 3Birthday : 20/04/1988Join date : 22/10/2009Age : 37Đến từ : Hà Nội |  Tiêu đề: Mời các bạn giải bài tập Tin Học 11  14/3/2010, 8:07 am | | Nhằm để giữ lại tài liệu và tiện lợi cho các bạn sau này đi thực tập ,ai có bài nào làm được thì đưa lên nhé,thankssau đây là những bài mà nhóm mình vừa làm được hihihiBai 4.36type kA= array[1..100] of integer;var i,k,n:integer;A: kA;BEGINWrite(' Nhap n:');readln(n) ;for i:=1 to n dobeginwrite(' A[',i,']=');readln(A[i]);end;write(' cac cuc dai dia phuong: ');for i:=1 to n doif (((i=1) and (a[1]>a[2])) or ((a[i]>a[i-1])and(a[i]>a[i+1])) or ((i=n) and (a[n]>a[n-1]))) thenwrite(a[i],' ');readln;END.Bai 4.10 Code: type kA= array[1..100] of integer;kB= array[1..100] of integer; vfkC= array[1..100] of integer;var i,k,n:integer;A: kA;B:KB;C:KC;BEGINWrite(' Nhap n:');readln(n) ;for i:=1 to n dobeginwrite(' A[',i,']=');readln(A[i]);end;for i:=1 to n dobeginwrite(' B[',i,']=');readln(B[i]);end;For i:=1 to n do c[2*i-1]:=a[i] ;For i:=1 to n do c[2*i]:=b[i];writeln('DAy A');for i:=1 to n do write(A[i],' ');writeln;writeln('DAy B');for i:=1 to n do write(B[i],' ');writeln;writeln('DAy C');for i:=1 to 2*n do write(C[i],' ');writeln;readln;END. Được sửa bởi tinhonline204 ngày 18/3/2010, 6:40 am; sửa lần 5. |
|  | | tinhonline204Tỷ phúTổng số bài gửi : 426Điểm : 841Reputation : 3Birthday : 20/04/1988Join date : 22/10/2009Age : 37Đến từ : Hà Nội | | Tiêu đề: Re: Mời các bạn giải bài tập Tin Học 11 15/3/2010, 10:34 am | | Bài 4.11 Code: type kA= array[1..100] of integer; kB= array[1..100] of integer; kC= array[1..100] of integer;var i,j,k,n:integer;A: kA;B:KB;C:KC;BEGIN Write(' Nhap n:');readln(n) ; for i:=1 to n do repeat write(' A[',i,']='); readln(A[i]); until (a[i] <= 32000); for i:=1 to n do repeat write(' B[',i,']=');readln(B[i]); until( b[i] <= 32000); j:=1;k:=1; a[n+1]:=32001;b[n+1]:=32001; for i:=1 to 2*n do if (A[j]<b[k]) then begin c[i]:=a[j]; inc(j); end else begin c[i]:=b[k]; inc(k); end; writeln('DAy A'); for i:=1 to n do write(A[i],' '); writeln; writeln('DAy B'); for i:=1 to n do write(B[i],' '); writeln; writeln('DAy C'); for i:=1 to 2*n do write(C[i],' '); writeln; readln;END. |
| | | | Sponsored content | | Tiêu đề: Re: Mời các bạn giải bài tập Tin Học 11 |
| | | | tinhonline204Tỷ phúTổng số bài gửi : 426Điểm : 841Reputation : 3Birthday : 20/04/1988Join date : 22/10/2009Age : 37Đến từ : Hà Nội | | Tiêu đề: Re: Mời các bạn giải bài tập Tin Học 11 15/3/2010, 10:36 am | | Bài 4.12 Code: type kA= array[1..100] of integer;var i,max,min,tg,vtmax,vtmin,n:integer;A: kA;BEGIN Write(' Nhap n:');readln(n) ; for i:=1 to n do begin write(' A[',i,']='); readln(A[i]); end; vtmin:=1;vtmin:=n; max:=a[n];min:=a[1]; for i:=1 to n do if (a[i]<=min) then begin min:=a[i]; vtmin:=i; end; for i:=n downto 1 do if (a[i]>=max) then begin max:=a[i];vtmax:=i; end; write(' vi tri max',vtmax,'vi tri min',vtmin); writeln('DAy truoc'); for i:=1 to n do write(a[i],' '); writeln; tg:=a[vtmin]; a[vtmin]:=a[vtmax]; a[vtmax]:=tg; writeln('DAy sau '); for i:=1 to n do write(a[i],' '); writeln; readln; END. |
| | | | tinhonline204Tỷ phúTổng số bài gửi : 426Điểm : 841Reputation : 3Birthday : 20/04/1988Join date : 22/10/2009Age : 37Đến từ : Hà Nội | | Tiêu đề: Re: Mời các bạn giải bài tập Tin Học 11 15/3/2010, 10:36 am | | Bài 4.37 Code: var thang,p:string;i:integer;BEGIN write(' nhap thang ');readln(thang); write( ' mua la: '); for i:=1 to length(thang) do thang[i]:=upcase(thang[i]); p:='GIENGHAIBATUNAMSAUBAYTAMCHINMUOIMOTCHAP'; { ham kiem tra xau thang co xuat hien trong xau p khong, neu co thi tra ve vi tri xuat hien dau tien cua xua "thang"} case pos(thang,p) of 1,6,9: write(' mua xuan ') ; 11,13,16: write(' mua he'); 19,22,25: write(' mua thu'); 29,33,36: write(' mua dong'); end; readln;END. |
| | | | tinhonline204Tỷ phúTổng số bài gửi : 426Điểm : 841Reputation : 3Birthday : 20/04/1988Join date : 22/10/2009Age : 37Đến từ : Hà Nội | | Tiêu đề: Re: Mời các bạn giải bài tập Tin Học 11 18/3/2010, 6:32 am | | BÀI TẬP 4.394.39 Hãy lập trình: - Nhập một xâu S chỉ chứa các ký tự La tinh in thường và các ký tự số từ 0 đến 9. - Đếm và đưa ra màn hình số ký tự khác nhau trong xâu S.BƯỚC 1. - Input: Xâu S. - Output: Số ký tự khac nhau và các ký tự đó trong xâu S.BƯỚC 2. B1: Nhập xâu s. B2: i:=1; : n:=length B3: k:=i+1; nếu (s[i]=s[k] thì delete(s,k,1); k:=k+1; k>n sang b3B4: i:=i+1; nếu i0 do delete(st1,pos(‘ .’,st1),1); while pos(‘ ,’,st1)>0 do delete(st1,pos(‘ ,’,st1),1); end;BEGIN write('nhap xau s=');readln(s); xoa(s); st:=s; while pos(#32,st)0 do begin dem:=dem+1; delete(st,pos(#32,st),1); end; writeln('so tu co trong xau la:', dem+1); readln;END. BƯỚC 4: - Text: nhập xâu :”lop tin 3a”. Số từ trong xâu là: 3.- Mở rộng bài toán: in ra từ đầu tiên của xâu. |
| | | thanhluan_audioĐịa chủ  Tổng số bài gửi : 106Điểm : 249Reputation : 0Birthday : 03/02/1988Join date : 22/10/2009Age : 37Đến từ : Đông Hà - Quảng Trị | | Tiêu đề: Re: Mời các bạn giải bài tập Tin Học 11 18/3/2010, 8:45 am | | chu nhan cua nhung bai nay thong cam cho minh nghe. minh chi post len cho cac thanh vien khac tham khao thoi. hehehehehe... nhung bai nay khong dung hoan toan, ai cop ve xem thi nho chinh sua lai cho chuan rui day ngheBài tập 4.44, trang 47, sách bài tập tin học lớp 11.Hãy lập trình:· Nhập từ bàn phím dãy số nguyên khác 0. Dấu hiệu kết thúc nhập là số 0.· Đưa ra màn hình:+ Số lượng các số đã nhập (không kể số 0 – dấu hiệu kết thúc);+ Số lượng các số chia hết cho 3, nếu không có thì đưa ra số 0;+ Số lượng các số âm chẵn, nếu không có thì đưa ra số 0.Bài làm:Bước 1. Xác định bài toán.· Input: Dãy số nguyên khác 0.· Output: + Số lượng các số đã nhập (dem).+ Số lượng các số chia hết cho 3 (dem1).+ Số lượng các số âm chẵn (dem2).Bước 2. Ý tưởng giải thuật.Liệt kê các bước.· Bước 1) Nhập dãy số nguyên khác 0 lưu vào mảng a (dấu hiệu kết thúc nhập là số 0);· Bước 2) i:=1; dem:=0; dem1:=0; dem2:=0;· Bước 3) * Nếu a = 0 thì qua Bước 5;* Ngược lại:+ Inc(dem);+ Nếu ((a[j]>0) and (a[j] mod 3=0)) thì Inc(dem1);+ Nếu ((a[j] 0, khởi tạo Plush1, trong khi kết quả thực hiên vẫn còn < N thì tiếp tục nhân đôi ( Dup ), sau đó dùng Inc để được kết quả cần có + Với N < 0, khởi tạo Minus1, các bước còn lại tương tự- Diễn tả thuật toán:Liệt kê các bước:B1: Nhập N;B2: Nếu N > 0 thì qua B3Còn không: qua B6B3: i:=1, viết ‘ Plush1 ’;B4: Nếu 2*I =N thì: i=2*i, viết ‘ Dup ’ →quay lại B7;Còn không: qua B8;B8: Kiểm tra i< N:Nếu đúng: i:=i+1, viết ‘ Inc ’→ quay lại B8;Còn không: B9;B9: Kết thúc;Bước 3: Cài đặt:Program khoi_tao_hang_nguyen;Var n,i: integer;BeginWrite (‘ Nhập vào số N:’ ); Readln ( n );If ( n>0 ) thenBegini:=1;Writeln( ‘Plush1’);While ( 2*i =x3 ) and (y3=x3) and (y3
Copyright © 2022 | Thiết Kế Truyền Hình Cáp Sông Thu
|
|
|
