Chào mừng quý vị đến với Thư viện Giáo án điện tử.
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành viên, vì vậy chưa thể tải được các tư liệu của Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy đăng ký thành viên tại đây hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay ô bên phải.
Bai tapPascal
Bài 16 màu (theo cột)
uses crt,graph;
var
h,gd,gm,i,j,mau:integer;
begin
gd:=detect; initgraph(gd,gm,``);
h:= getmaxX div getmaxColor+1;
setcolor(5);
{for i:= 0 to GetMaxX do }
for j:= getmaxColor downto 0 do
begin
Setfillstyle(1,j);
Bar (0,getmaxy, j*h, (j+1));
putpixel(h,j,5);
delay(30);
end;
Readkey
end.
16 màu ngang
uses crt,graph;
var
h,gd,gm,i,j,mau:integer;
begin
gd:=detect; initgraph(gd,gm,``);
h:= getmaxX div getmaxColor+1;
setcolor(5);
for i:= 0 to getmaxcolor do
{ for j:= getmaxColor downto 0 do}
begin
Setfillstyle(1,i);
Bar (0,getmaxy, i*h, (i+1));
putpixel(h,i,5);
delay(30);
end;
Readkey
end.
Bài 1: Lấp đầy màn hình, xuất phát từ một trong các góc: 1, 2, 3, 4 bằng lệnh Putpixel (thêm lệnh Delay() để quan sát cho dễ.
uses crt,graph;
var
h,gd,gm,i,j,mau:integer;
begin
gd:=detect; initgraph(gd,gm,``);
setcolor(5);
{ for i:=0 to GetMaxX do
for j:=0 to getmaxY do
begin
putpixel(i,j, 5);
delay(30);
end; } { dinh1 }
{for i:=getmaxX downto 0 do
for j:=getmaxY downto 0 do
begin
putpixel (i,j,3);
delay(1);
end; } {dinh3}
{ for i:=0 to getmaxX do
for j:=getmaxY downto 0 do
begin
putpixel(i,j,2);
delay(1);
end; } {Dinh2}
for i:=getmaxX downto 0 do
for j:=0 to getmaxY do
begin
putpixel(i,j,2);
delay(1);
end; {dinh4}
readkey;
closegraph;
end.
Bài 2: Chia màn hình thành 4 phần và tô bằng các màu ngẫu nhiên khác nhau.
uses crt,graph;
var
h,gd,gm,i,j,mau:integer;
begin
gd:=detect; initgraph(gd,gm,``);
randomize;
for i:=0 to getmaxX div 2 do
for j:= 0 to getmaxY div 2 do
putpixel(i,j,13);
for i:=(getmaxX div 2) to getmaxX do
for j:=0 to getmaxY div 2 do
putpixel(i,j, 14);
for i:= getmaxX div 2 to getmaxX do
for j:= getmaxY div 2 to getmaxY do
putpixel (i,j, 1);
for i:=0 to getmaxX div 2 do
for j:=getmaxY div 2 to getmaxY do
putpixel(i, j, 4);
delay(20);
readkey;
end.
Bài 4: Vẽ đồ thị hàm y = x2-2x+1 trong khoảng [-6,6] với 2 trục.
uses crt,graph;
var
gd,gm,i,j,mau, tx, ty:integer;
d, x, y: real;
begin
gd:=detect; initgraph(gd,gm,``);
randomize;
line (0, getmaxY div 2, getmaxX, getmaxY div 2);
line(getmaxX div 2, 0, getmaxX div 2, getmaxY);
setviewport (getmaxX div 2, getmaxY div 2, getmaxX, getmaxY, clipoff);
d:=0.001;x:=-6; tx:=20; ty:=40;
while (x>=-6) and (x<=6) do
Begin
putpixel(round(tx*x), -round(ty*(x*x - 2*x +1)), 2);
x:=x+d;
end;
readln
uses crt,graph;
var
h,gd,gm,i,j,mau:integer;
begin
gd:=detect; initgraph(gd,gm,``);
h:= getmaxX div getmaxColor+1;
setcolor(5);
{for i:= 0 to GetMaxX do }
for j:= getmaxColor downto 0 do
begin
Setfillstyle(1,j);
Bar (0,getmaxy, j*h, (j+1));
putpixel(h,j,5);
delay(30);
end;
Readkey
end.
16 màu ngang
uses crt,graph;
var
h,gd,gm,i,j,mau:integer;
begin
gd:=detect; initgraph(gd,gm,``);
h:= getmaxX div getmaxColor+1;
setcolor(5);
for i:= 0 to getmaxcolor do
{ for j:= getmaxColor downto 0 do}
begin
Setfillstyle(1,i);
Bar (0,getmaxy, i*h, (i+1));
putpixel(h,i,5);
delay(30);
end;
Readkey
end.
Bài 1: Lấp đầy màn hình, xuất phát từ một trong các góc: 1, 2, 3, 4 bằng lệnh Putpixel (thêm lệnh Delay() để quan sát cho dễ.
uses crt,graph;
var
h,gd,gm,i,j,mau:integer;
begin
gd:=detect; initgraph(gd,gm,``);
setcolor(5);
{ for i:=0 to GetMaxX do
for j:=0 to getmaxY do
begin
putpixel(i,j, 5);
delay(30);
end; } { dinh1 }
{for i:=getmaxX downto 0 do
for j:=getmaxY downto 0 do
begin
putpixel (i,j,3);
delay(1);
end; } {dinh3}
{ for i:=0 to getmaxX do
for j:=getmaxY downto 0 do
begin
putpixel(i,j,2);
delay(1);
end; } {Dinh2}
for i:=getmaxX downto 0 do
for j:=0 to getmaxY do
begin
putpixel(i,j,2);
delay(1);
end; {dinh4}
readkey;
closegraph;
end.
Bài 2: Chia màn hình thành 4 phần và tô bằng các màu ngẫu nhiên khác nhau.
uses crt,graph;
var
h,gd,gm,i,j,mau:integer;
begin
gd:=detect; initgraph(gd,gm,``);
randomize;
for i:=0 to getmaxX div 2 do
for j:= 0 to getmaxY div 2 do
putpixel(i,j,13);
for i:=(getmaxX div 2) to getmaxX do
for j:=0 to getmaxY div 2 do
putpixel(i,j, 14);
for i:= getmaxX div 2 to getmaxX do
for j:= getmaxY div 2 to getmaxY do
putpixel (i,j, 1);
for i:=0 to getmaxX div 2 do
for j:=getmaxY div 2 to getmaxY do
putpixel(i, j, 4);
delay(20);
readkey;
end.
Bài 4: Vẽ đồ thị hàm y = x2-2x+1 trong khoảng [-6,6] với 2 trục.
uses crt,graph;
var
gd,gm,i,j,mau, tx, ty:integer;
d, x, y: real;
begin
gd:=detect; initgraph(gd,gm,``);
randomize;
line (0, getmaxY div 2, getmaxX, getmaxY div 2);
line(getmaxX div 2, 0, getmaxX div 2, getmaxY);
setviewport (getmaxX div 2, getmaxY div 2, getmaxX, getmaxY, clipoff);
d:=0.001;x:=-6; tx:=20; ty:=40;
while (x>=-6) and (x<=6) do
Begin
putpixel(round(tx*x), -round(ty*(x*x - 2*x +1)), 2);
x:=x+d;
end;
readln
A Môc tiªu:
- HS viÕt ch¬ng tr×nh Pascal cã c©u lÖnh lÆp For...do.- TiÕp tôc n©ng cao kÜ n¨ng ®äc hiÓu ch¬ng tr×nh.- Ph¸t triÓn t duy thuËt to¸n.B ChuÈn bÞ
- Gi¸o viªn: M¸y chiÕu, phßng m¸y, gi¸o ¸n, SGK, SGV. - Häc sinh: ChuÈn bÞ bµiC Ho¹t ®éng trªn líp.I. æn ®Þnh líp: (1’)II. KiÓm tra bµi cò (5’) - HS1: Nªu có ph¸p vµ chøc n¨ng cña c©u lÖnh lÆp For...do? LÊy vÝ dô minh häa?III Thùc hµnh.(34’)A Môc tiªu:
- HS viÕt ch¬ng tr×nh Pascal cã c©u lÖnh lÆp For...do.
- TiÕp tôc n©ng cao kÜ n¨ng ®äc hiÓu ch¬ng tr×nh.
- Ph¸t triÓn t duy thuËt to¸n.
B ChuÈn bÞ
- Gi¸o viªn: M¸y chiÕu, phßng m¸y, gi¸o ¸n, SGK, SGV.
- Häc sinh: ChuÈn bÞ bµi
C Ho¹t ®éng trªn líp.I. æn ®Þnh líp: (1’) 8A: 8B: 8C:II. KiÓm tra bµi cò (5') - HS1: Nªu có ph¸p vµ chø n¨ng cña c©u lÖnh If lång nhau? + Có ph¸p If <®iÒu kiÖn 1> then <c©u lÖnh 1> else If <®iÒu kiÖn 2> then <c©u lÖnh 2> else <c©u lÖnh 3> ; + Chøc n¨ng: Ch¬ng tr×nh sÏ kiÓm tra ®iÒu kiÖn 1 + NÕu ®iÒu kiÖn 1 ®îc tháa m·n th× ch¬ng tr×nh sÏ thùc hiÖn c©u lÖnh 1. + Ngîc l¹i ch¬ng tr×nh sÏ kiÓm tra ®iÒu kiÖn 2. NÕu ®iÒu kiÖn 2 ®îc tháa m·n th× thùc hiÖn c©u lÖnh 2. Ngîc l¹i thùc hiÖn c©u lÖnh 3III Thùc hµnh.(34’)