Giải bài tập tin học lớp 11

Giải bài tập tin học 11
Nội dung trích xuất từ tài liệu:
Giải bài tập tin học lớp 11BµitËpTinhäc11PASCAL§ÆngH¶iNam usescrt;Chương 2 constg=9.8;Bài thực thành số 1 varv,h:real;Bài 8. begina)programbai8a; clrscr;usescrt; repeatvarx,y:real; write(Nhapdocao:);kt:boolean; readln(h);begin ifh0;write(Nhapy:);readln(y); v:=sqrt(2*g*h);kt:=false; write(Vantoc:,v:8:3);if((yabs(x)) readlnor(y=abs(x))) end.then Chương 3kt:=true; Bài thực hành số 2ifktthenwrite(Diemvuanhapthuocphangachcheo) Bài 3.elsewrite(Khongthuoc); programtong1a;readln usescrt;end. varS:real;b)programbai8b; a,N:integer;usescrt; beginvarx,y:real; clrscr; write(Nhapa:);readln(a);kt:boolean; S:=1.0/a;begin N:=1;clrscr; whilenBµitËpTinhäc11PASCAL§ÆngH¶iNamend; writeln(Giatrie(n):,e:10:6); readlnreadln end.end.b)programbai4b; Bài 6. programBai6;usescrt; usescrt;varx,y,z,a,b,r:real; varx,y:byte;begin beginclrscr; clrscr;write(Nhapx:);readln(x); forx:=1to36dowrite(Nhapy:);readln(y); fory:=0to20dowrite(Nhaptoadotamhinhtron:); if(x+y=36)and(2*x+4*y=100)thenreadln(a,b); beginwrite(Nhapbankinhr:); writeln(Co,x,conGa);readln(r); write(Co,y,conCho);ifsqrt(sqr(xa)+sqr(xb))2*cthenfori:=1tondo writeln(Sau,b2*c,namtuoichaY:=i/(i+1); segapdoituoicon);Write(TongY:,y:9:3); readlnReadln end.end. Bài 8.b) programBai8;programbai5b; usescrt;usescrt; varA,B,St,Luu:real;varn:longint; n:byte;e,sh:real; beginbegin clrscr;clrscr; write(Nhapsotiengui:);sh:=1/2; readln(a);n:=2; write(Nhapsotiennhan:);e:=2+sh; readln(b);whilesh>=2*1e16do luu:=A;n:=0;st:=a;begin whileStBµitËpTinhäc11PASCAL§ÆngH¶iNamwriteln(Sothangcanla:,n); usescrt;readln varA:array[1..250]ofinteger;end. n,i,j,y,dem,t:integer;Chương 4 begin clrscr;Bài thực hành số 3 randomize;Bài 1. write(Nhapn:);readln(n);programsum1; fori:=1tondousescrt; A[i]:=random(300)random(300);constnmax=100; fori:=1tondowrite(A[i]:5);typeNAM=array[1..nmax]ofinteger; writeln;varA:NAM; dem:=1;s,n,i,k:integer; forj:=ndownto2doposi,neg:integer; fori:=1toj1dobegin ifA[i]>A[i+1]thenclrscr;randomize; beginwrite(Nhapn:);readln(n); t:=a[i];fori:=1tondo a[i]:=a[i+1];A[i]:=random(300)random(300); A[i+1]:=t;fori:=1tondowrite(A[i]:5); dem:=dem+1;writeln; end;fori:=1tondo write(Saukhidao,dem,lan);ifA[i]>0thenposi:=posi+1 fori:=1tondoelseifA[i]a[i1]thenmax:=A[i]; varS:string;forj:=1tondo i,n,dem:integer;ifa[j]=maxthen ch:char;writeln(chisophantulonnhat: begin,j); clrscr;readln write(Nhapxau:);readln(S);end. fori:=1tolength(S)doBài thực hành số 4 s[i]:=upcase(s[i]);Bài 1.BµitËpTinhäc11PASCAL§ÆngH¶iNamforch:=AtoZdo varA:array[1..100]ofinte ...