Thực hành pascal lớp 7

Bài tập thực hành tin học lớp 7 gồm tuyển tập bài tập thực hành pascal. Mời các bạn cùng tham khảo.
Nội dung trích xuất từ tài liệu:
Thực hành pascal lớp 7BÀI TẬP THỰC HÀNH LỚP 7 MÔN :TIN HỌC -1-BAI 1 TINH DIEN TICHProgram TinhDT;uses crt;Var{tam giac}canhdaytamgiac: real;chieucaotamgiac: real;DT_Tamgiac: real;{hinh thang}daylon,daynho,chieucao:real;DT_Thang:real;dieukien: char;BEGINclrscr;DT_Thang:=0; {gan gia tri dau}Write( Tinh dien tich hinh thang:);repeat writeln(Co tiep tuc khong c/k); dieukien:=readkey; if(dieukien =c) then begin write( Day lon = );readln(DAYLON); write( Day nho = );readln(dayNho); write( Chieu cao= ); readln(chieuCAO); DT_Thang:=(daylon+daynho)*chieucao/2; if (daylon BÀI TẬP THỰC HÀNH LỚP 7 MÔN :TIN HỌC -2- writeln(Co tiep tuc khong c/k); dieukien:=readkey; if(dieukien =c) then begin write( Canh day tam giac = );readln(canhdaytamgiac); write( Chieu cao tam giac = );readln(chieucaotamgiac); DT_Tamgiac:=canhdaytamgiac*chieucaotamgiac/2; Writeln( DIEN TICH TAM GIAC = ,DT_Tamgiac:6:3); end else break;until (dieukien = k);write(Go enter ket thuc chuong trinh---->>);readln;END.BAI2 : TIM TONG, TRUNG BINH, MAX, MIN{ Vi du ve mang mot chieu, phan tu kieu so thuc}{ Nhap mot mang mot chieu, n phan tu,hien thi mang da nhap, tinh toan tong cac phan tu va hien thi ket qua, tinh gia tri trung binh va hien thi ket qua}Program Mang; { khai bao ten chuong trinh co the co co the khong can}{ Chu y nhung gi viet trong ngoac moc nay thi khi bien dich chuong trinhse bo qua, khong bien dich}uses crt; { khai bao su dung thu vien crt, thu vien crt co rat nhieu hamchuan da duoc dinh nghia trong Pascal, nhu cac ham toan hoc, vao ra manban phim,...}{ Khai bao cac bien su dung}VAR x: array[1..100] of real;n: integer;i: integer;Tong, TrungBinh: real;min,Max: real;BEGINclrscr; { Xoa man hinh}write( Nhap so phan tu cua mang N= ); readln(n); for i:=1 to n do begin write(Nhap phan tu tu: ,i, = ); readln(x[i]); end;{ Hien thi mang so thuc da nhap}write( Go enter de xem mang da nhap:); readln;clrscr;TRUNG TÂM NGUYỄN DU GV:Nguyễn Thị Đan ThanhBÀI TẬP THỰC HÀNH LỚP 7 MÔN :TIN HỌC -3-Write( MANG DA NHAP NHU SAU: );writeln; { lenh xuong dong}for i:=1 to n dowrite(X[,i,]= ,x[i]:6:3, );writeln;writeln(Go Enter de xem cac ket qua--->);readln;clrscr;{tinh tong gia tri va tinh gia tri trung binh cua mang}Tong:=0;TrungBinh:=0;for i:=1 to n dobeginTong:=Tong + x[i];end;TrungBinh:=Tong/n;writeln(Tong gia tri cua mang ,n, phan tu = ,Tong:6:3);writeln( Gia tri trung binh cua mang do la: ,TrungBinh:6:3);readln;{ Tim min}min:=x[1];for i:=1 to n doif (x[i]max) then max:=x[i]else max:=max;writeln(Max= ,max:6:3);write(Go phim Enter de thoat khoi chuong trinh);readln;END.BAI3: SAP XEP MANG TANG DAN ,GIAM DAN{ Chuong trinh nhap 1 day so tu man hinh, kieu phan tu so thuc,In day so da nhap ra man hinh. Sap xep lai day so theo thu tu tang dan,Hien thi day so da sap xep}Program sapxep;uses crt;{Type A= array[1..100] of real;}TRUNG TÂM NGUYỄN DU GV:Nguyễn Thị Đan ThanhBÀI TẬP THỰC HÀNH LỚP 7 MÔN :TIN HỌC -4-varX: array[1..100] of real;i,j,n:integer;tg: real;BEGINclrscr; Write( Nhap so phan tu( );clrscr;{In gia tri da nhap ra man hinh}Writeln( CAC GIA TRI DA NHAP NHU SAU:);for i:=1 to n doWrite(X[i]:6:3, );{Sap xep theo thu tu tang dan}Writeln(Go enter de xem day so da sap xep);readln;{dung lai de xem}clrscr; { xoa man hinh}tg:=X[1];for i:=1 to n-1 do for j:=n downto i do if (X[i]>=X[j]) then begin tg:=X[j]; X[j]:=x[i]; X[i]:=tg; end;{ IN KET QUA}Writeln( DAY SO DA SAP XEP THEO THU TU TANG DAN NHU SAU:);for i:=1 to n doWrite(X[i]:6:3, );readln;{Sap xep theo thu tu giam dan}Writeln(Go enter de xem day so da sap xep);readln;{dung lai de xem}clrscr; { xoa man hinh}tg:=X[1];for i:=1 to n-1 do for j:=n downto i do if (X[i]BÀI TẬP THỰC HÀNH LỚP 7 MÔN :TIN HỌC -5-readln;END.BAI 4: TIM SO LON NHAT,SO BE NHAT{ Vi du ve mang mot chieu, phan tu kieu so thuc}{ Nhap mot mang mot chieu, n phan tu,hien thi ket qua da nhap,tim MIN MAX, tim va in cac so =8.5}Program Mang; { khai bao ten chuong trinh co the co co the khong can}{ Chu y nhung gi viet trong ngoac moc nay thi khi bien dich chuong trinhse bo qua, khong bien dich}uses crt; { khai bao su dung thu vien crt, thu vien crt co rat nhieu hamchuan da duoc dinh nghia trong Pascal, nhu cac ham toan hoc, vao ra manban phim,...}{ Kh ...